Muy buen dia compaeros.
Tengo uan duda, tengo que borrar un registro de mysql que se muestra en un ListBox.
Hago lo siguiente.
[code] Dim BORRAR As RecordSet
BORRAR=Xojo.SQLSelect(“SELECT * FROM sait_entrevistador WHERE entrevistador=’”+Trim(Listbox1.Cell(ListBox1.LastIndex,0))+"‘AND id_sesion=’"+Trim(Listbox1.Cell(ListBox1.LastIndex,4))+"’")
BORRAR.DeleteRecord
BORRAR.Close[/code]
Quiero borrar lo que esta actualmente seleccionado en el listbox, pero simplemente no lo hace.
Alguien podria ayudarme con esto? Gracias por anticipado.
Santiago,
Antes de eliminar prueba agregando la edicin.
--------------------------------------------->
BORRAR.Edit
BORRAR.DeleteRecord
BORRAR.Close
--------------------------------------------->
Ok, gracias por contestar deja intento
Este es mi cdigo para insertar registros en mysql desde XOJO, alguien podra decirme como agregar el botn borrar registro por favor agradecera mucho su ayuda soy nuevo en esta plataforma, gracias…
Dim db As New MySQLCommunityServer
Dim rs As RecordSet
db.host = “localhost”
db.port = 3306
db.DatabaseName = “xojo”
db.UserName = “root”
db.Password = “”
dim n as String
dim a as String
n = txt1.Text
a = txt2.Text
If Not db.Connect Then
Msgbox “Could not connect to database”
Else
db.SQLExecute("INSERT INTO usuario (Nombre, Apellidos) VALUES ('"+n+"' , '"+a+"')")
End If
db.SQLExecute( “COMMIT” )
rs = db.SQLSelect(“SELECT * FROM usuario”)
If rs <> Nil Then
While Not rs.EOF
Listbox1.AddRow “”
ListBox1.Cell(Listbox1.LastIndex,0) = rs.Field(“Nombre”).StringValue
ListBox1.Cell(Listbox1.LastIndex,1) = rs.Field(“Apellidos”).StringValue
rs.MoveNext
Wend
Else
If db.Error Then MsgBox(db.ErrorMessage)
db.close
rs.Close
End If
