Tema: 2 dudas que tengo
Ver Mensaje Individual
  #16 (permalink)  
Antiguo 20/04/2010, 01:56
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
No pasa nada, pero claros los tenia lo que pasa es que lo hice a prisa sin pensar, y ahora lo acabo de terminar.

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 "Debe ingresar datos en todos los campos", 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. End With
  34. MsgBox ("Datos exportados")
  35. With rsTbl_Direccion
  36. MSFlexGrid1.Refresh
  37. Text1.Text = ""
  38. Text2.Text = ""
  39. Combo1.Text = ""
  40. Combo2.Text = ""
  41. Text4.Text = ""
  42. Text5.Text = ""
  43. Text6.Text = ""
  44. .Update
  45. End With
  46. While Not rsTbl_Direccion.EOF
  47. MSFlexGrid1.AddItem rsTbl_Direccion("id") & vbTab & rsTbl_Direccion("nombre") & vbTab & rsTbl_Direccion("apellidos") & vbTab & rsTbl_Direccion("direccion") & vbTab & rsTbl_Direccion("ciudad") & vbTab & rsTbl_Direccion("provincia") & vbTab & rsTbl_Direccion("telefono") & vbTab & rsTbl_Direccion("cp")
  48. rsTbl_Direccion.MoveNext
  49. Wend
  50.     'Insertamos la cabezera
  51.     MSFlexGrid1.TextMatrix(0, 0) = "ID"
  52.     MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
  53.     MSFlexGrid1.TextMatrix(0, 2) = "Apellidos"
  54.     MSFlexGrid1.TextMatrix(0, 3) = "Direccion"
  55.     MSFlexGrid1.TextMatrix(0, 4) = "Ciudad"
  56.     MSFlexGrid1.TextMatrix(0, 5) = "Provincia"
  57.     MSFlexGrid1.TextMatrix(0, 6) = "Telefono"
  58.     MSFlexGrid1.TextMatrix(0, 7) = "CP"
  59.     Screen.MousePointer = vbDefault
  60. Set cnPrueba = New Connection
  61. 'Establecer sus propiedades
  62.      With cnPrueba
  63.         .Provider = "Microsoft.Jet.oledb.4.0"
  64.         .ConnectionString = "prueba.mdb"
  65.     End With
  66. cnPrueba.Open
  67. 'Crear un conjunto de registros desde la tabla Tbl_Direccion
  68. Set rsTbl_Direccion = New Recordset
  69. 'Establecer sus propiedades
  70. With rsTbl_Direccion
  71.     .CursorLocation = adUseClient
  72.     .Open "SELECT * FROM tbl_direccion", cnPrueba, adOpenDynamic, adLockOptimistic
  73. End With
  74. End Sub

Cita:
Resumen de codigo: Lo que hace este codigo es al llenar un formulario, este lo exporta a la base de datos de acces y actualiza el msflexgrid en modo ejecucion sin tener que entrar y salir.
Muchas Gracias Insomnia me has sido de mucha no te puedes imaginar lo desesperado que estaba con esto.

Saludos