Ver Mensaje Individual
  #3 (permalink)  
Antiguo 17/04/2010, 13:48
Avatar de Sergio18
Sergio18
 
Fecha de Ingreso: abril-2010
Ubicación: No quieras saberlo
Mensajes: 94
Antigüedad: 14 años, 1 mes
Puntos: 0
Respuesta: 2 dudas que tengo

Yo lo quiero hacer desde un boton aqui te muestro el codigo que tengo en el

Código vb:
Ver original
  1. Private Sub Command1_Click()
  2. 'Todos los campos que tenemos tienen que estar rellenos
  3. If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Combo1 = "" Then
  4. MsgBox "Debes ingresar todos los datos", vbCritical, Me.Caption
  5. Exit Sub
  6. End If
  7. 'crear un objeto conexion
  8. Set cnprueba = New Connection
  9. 'Establecer sus propiedades
  10.     With cnprueba
  11.         .Provider = "Microsoft.Jet.oledb.4.0"
  12.         .ConnectionString = "prueba.mdb"
  13.     End With
  14. cnprueba.Open
  15. 'Crear un conjunto de registros desde la tabla Tbl_Direccion
  16. Set rsTbl_Direccion = New Recordset
  17. 'Establecer sus propiedades
  18. With rsTbl_Direccion
  19.     .CursorLocation = adUseClient
  20.     .Open "SELECT * FROM tbl_direccion", cnprueba, adOpenDynamic, adLockOptimistic
  21. End With
  22. 'Añadimos los registros del formulario a la base de datos
  23. With rsTbl_Direccion
  24. .AddNew
  25. .Fields("Nombre") = Text1.Text
  26. .Fields("Apellidos") = Text4.Text
  27. .Fields("Direccion") = Text5.Text
  28. .Fields("Ciudad") = Combo1.Text
  29. .Fields("Provincia") = Combo2.Text
  30. .Fields("Telefono") = Text2.Text
  31. .Fields("CP") = Text6.Text
  32. .Update
  33. MSFlexGrid1.Refresh
  34. End With
  35. MsgBox ("Datos exportados")
  36. 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