Necesito verificar si existe el registro en el campo "Producto" para hacer un update en el.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Conexion As New MySqlConnection("data source=localhost; user=root; password=; database=importaciones;")
Dim Comando As MySqlCommand
Dim ConsultaSQL As String
Dim Reader As MySqlDataReader
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Por favor complete todos los datos")
Else
Try
Conexion.Open()
ConsultaSQL = "UPDATE productos SET Costo='" & TextBox2.Text & "' , Precio='" & TextBox3.Text & "' WHERE Producto='" & TextBox1.Text & "' "
Comando = New MySqlCommand(ConsultaSQL, Conexion)
Reader = Comando.ExecuteReader()
Conexion.Close()
Catch Exep As Exception
MsgBox(Exep.Message)
End Try
MsgBox("Registro actualizazdo correctamente")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
Form2.actualizar()
End Sub
Select count(*) WHERE Producto='" & TextBox1.Text & "' "
. Por cierto, nunca debes construir tus querys concatenando los strings. El código que tienes es totalmente inseguro y expuesto a SqlInjection. Si yo tuviera acceso a tu aplicación, podría fácilmente eliminar todas tus tablas por ejemplo.