Cita:
Y no tengo ni idea de porque puede ser, ya que el codigo es el mismo que para el boton agregar y alli no da problemas.Usuario no encontrado: you have an error in your sql syntax; check the manual that corresponds to your mysql server version to the right syntax to use near ')' at line 1
La cosa es que el ELSE lo hace sin problemas, si tu metes Admin no te deja borrar pero si pones cualquier otro nombre este o no en la tabla, salta ese error!
Os pongo todo el codigo a ver si asi me podeis echar una mano.
Cita:
Imports System.Windows.Forms
Imports MySql.Data.MySqlClient
Public Class Borrar
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Dim Tabla As New DataTable 'se encarga de representar la tabla de datos en la memoria
Dim conexion As MySqlConnection 'gestiona la conexion a la Base de Datos
Dim Ds As New DataSet 'representa la memoria interna de los datos
conexion = New MySql.Data.MySqlClient.MySqlConnection
conexion.ConnectionString = "server=localhost; user=root; password=''; database=proyecto; port=3306;"
conexion.Open()
Dim ct = TextBox1.Text
If ct = "Admin" Then
MessageBox.Show("Admin no puede ser borrado.")
Else
Dim borrar As New MySqlDataAdapter("Delete from usuarios where Nombre = ct", conexion)
Dim Cmd As New MySqlCommandBuilder(borrar)
Try
borrar.Fill(Tabla)
MessageBox.Show("Usuario borrado con éxito.")
conexion.Close()
Catch mierror As MySqlException
MessageBox.Show("Usuario no encontrado: " & mierror.Message)
Finally
conexion.Dispose()
End Try
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
End Class
Imports MySql.Data.MySqlClient
Public Class Borrar
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Dim Tabla As New DataTable 'se encarga de representar la tabla de datos en la memoria
Dim conexion As MySqlConnection 'gestiona la conexion a la Base de Datos
Dim Ds As New DataSet 'representa la memoria interna de los datos
conexion = New MySql.Data.MySqlClient.MySqlConnection
conexion.ConnectionString = "server=localhost; user=root; password=''; database=proyecto; port=3306;"
conexion.Open()
Dim ct = TextBox1.Text
If ct = "Admin" Then
MessageBox.Show("Admin no puede ser borrado.")
Else
Dim borrar As New MySqlDataAdapter("Delete from usuarios where Nombre = ct", conexion)
Dim Cmd As New MySqlCommandBuilder(borrar)
Try
borrar.Fill(Tabla)
MessageBox.Show("Usuario borrado con éxito.")
conexion.Close()
Catch mierror As MySqlException
MessageBox.Show("Usuario no encontrado: " & mierror.Message)
Finally
conexion.Dispose()
End Try
End If
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
End Class
MUCHAS GRACIAS a todos!