Yo lo quiero hacer desde un boton aqui te muestro el codigo que tengo en el
Código vb:
Ver originalPrivate Sub Command1_Click()
'Todos los campos que tenemos tienen que estar rellenos
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Combo1 = "" Then
MsgBox "Debes ingresar todos los datos", vbCritical, Me.Caption
Exit Sub
End If
'crear un objeto conexion
Set cnprueba = New Connection
'Establecer sus propiedades
With cnprueba
.Provider = "Microsoft.Jet.oledb.4.0"
.ConnectionString = "prueba.mdb"
End With
cnprueba.Open
'Crear un conjunto de registros desde la tabla Tbl_Direccion
Set rsTbl_Direccion = New Recordset
'Establecer sus propiedades
With rsTbl_Direccion
.CursorLocation = adUseClient
.Open "SELECT * FROM tbl_direccion", cnprueba, adOpenDynamic, adLockOptimistic
End With
'Añadimos los registros del formulario a la base de datos
With rsTbl_Direccion
.AddNew
.Fields("Nombre") = Text1.Text
.Fields("Apellidos") = Text4.Text
.Fields("Direccion") = Text5.Text
.Fields("Ciudad") = Combo1.Text
.Fields("Provincia") = Combo2.Text
.Fields("Telefono") = Text2.Text
.Fields("CP") = Text6.Text
.Update
MSFlexGrid1.Refresh
End With
MsgBox ("Datos exportados")
End Sub
En este boton lo que quiero es que se actualize el msflexgrid cuando inserte los datos, y en otro boton que borre la fila de la base de datos que yo seleccione del msflexgrid (espero que se entienda lo que digo)
Salu2