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 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 "Debe ingresar datos en todos los campos", 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
End With
MsgBox ("Datos exportados")
With rsTbl_Direccion
MSFlexGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
.Update
End With
While Not rsTbl_Direccion.EOF
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")
rsTbl_Direccion.MoveNext
Wend
'Insertamos la cabezera
MSFlexGrid1.TextMatrix(0, 0) = "ID"
MSFlexGrid1.TextMatrix(0, 1) = "Nombre"
MSFlexGrid1.TextMatrix(0, 2) = "Apellidos"
MSFlexGrid1.TextMatrix(0, 3) = "Direccion"
MSFlexGrid1.TextMatrix(0, 4) = "Ciudad"
MSFlexGrid1.TextMatrix(0, 5) = "Provincia"
MSFlexGrid1.TextMatrix(0, 6) = "Telefono"
MSFlexGrid1.TextMatrix(0, 7) = "CP"
Screen.MousePointer = vbDefault
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
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