tengo una pequeña bd con una tablita "clientes" y termina con engine=innodb;
tengo bien la conexion
Public Class datos
Public conn As mysqlconnection
Public Sub conectar()
Dim cadena As String
cadena = "server=localhost;user id=root; password=''; database=almacen"
'"Database=almacen; data source=localhost; user id=root; password='root'"
Try
conn = New MySqlConnection(cadena)
conn.Open()
Catch ex As MySqlException
MsgBox("Error En La Conexion")
End Try
End Sub
End Class
el boton de guardar esta bien hecho
Public Class Form1
Dim emp As New datos
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim mytrans As MySqlTransaction
Dim mycommand As New MySqlCommand
Dim sql, ne As String
emp.conectar()
mytrans = emp.conn.BeginTransaction
Try
'primera transaccion
sql = "insert into clientes values(178954,'armando giraldo','cra 4a n 22-32','2614207')"
mycommand.Connection = emp.conn
mycommand.Transaction = mytrans
mycommand.CommandText = sql
mycommand.ExecuteNonQuery()
sql = "insert into clientes values(20031234,'juan giraldo','cra 4a n 22-32','2624122')"
'segunda transaccion
mycommand.CommandText = sql
mycommand.Transaction = mytrans
mycommand.ExecuteNonQuery()
mytrans.Commit()
Catch ex As Exception
ne = ex.Message + Chr(13) + "provocado por la siguiente instruccion" + sql
MsgBox(ne)
Clipboard.SetText(ne)
mycommand.Transaction.Rollback()
End Try
End Sub
End Class
lo que no he podido es creale el boton de eliminar
les agradesco la ayuda no soy tan experta con las transacciones
