Salvar Información de formulario (Urgente!!!!)

meriu
19 de Noviembre del 2003
Hola necesito saber cual es el codigo para salvar la información almacenada en un formulario en tiempo de ejecución, y luego como buscarla. Lo que tengo son una cantidad de textbox

sdemingo
19 de Noviembre del 2003
Hola,

¿dónde lo quieres salvar? en una base de datos?

meriu
19 de Noviembre del 2003
Hola, la trate de salvar en una base de datos en access 2000 utilizando el ado control, son alrededor de 200 campos y cuando la quiero abrir o guardar me dice que la consulta es demasiado compleja.
Gracias!!!

sdemingo
19 de Noviembre del 2003
Hola,

si vieramos tu código sería más fácil ayudarte

saludos

meriu
19 de Noviembre del 2003
Para el caso del Ado Control no uilizo codigo para enlazar los controles a la tabla de Access, lo hago con las propiedades del control. Este es el codigo que utilizo para añadir un nuevo registro, salvarlo o borrarlo... De todas formas si hay otra forma de guardar la información que no sea con ese control????
Sub Limpiar()
Dim X As Control
For Each X In Me.Controls
If TypeOf X Is TextBox Then
X.Text = ""
End If
Next X
End Sub
Private Sub chkSalir_Click()
chkSalir.Value = 0
Unload Me
End Sub
Private Sub cmdAdd_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub cmdDel_Click()
On Error GoTo MiError
RES = MsgBox(" Please verify the deletion of Projects!", vbYesNoCancel + vbInformation, "Verify Deletion")
If RES = vbYes Then
Adodc1.Recordset.Delete
Limpiar
End If
Exit Sub
MiError:
MsgBox Error, vbCritical
End Sub
Private Sub cmdSave_Click()
On Error GoTo MiError
RES = MsgBox(" Do you want Save this Project?", vbYesNoCancel + vbInformation, "Verify Save")
If RES = vbYes Then
Adodc1.Recordset.Save
End If
Exit Sub
MiError:
MsgBox Error, vbCritical
End Sub
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
' Mostrar el ID del registro actual
' si se pasa del primero o del último, dará error

On Local Error Resume Next

' Mostrar el ID del registro actual usando el recordset pasado como parámetro
'Adodc1.Caption = "ID del Registro: " & pRecordset!ID
' También se puede usar:
Adodc1.Caption = " Record:" & Adodc1.Recordset!Id
Err = 0

rafa
19 de Noviembre del 2003
Hola. puedes usar adodb.recordset sin necesidad de usar el control. Solo debes crear una conexion ADODB y enlazar el recordset a esa conexion:
Public cnConexion As ADODB.Connection ' Es la conexión con la base de datos
Public Function AbrirCn() As Boolean

Dim strConection As String
Dim strRuta As String
Set cnConexion = New ADODB.Connection

Ruta = App.Path & bbdd

On Error GoTo Errores:
strConection = "Provider=MSDASQL.1;Password=;User =Administrador;" & _
"Data Source=MS Access Database;Initial Catalog= " & Ruta

cnConexion.ConnectionString = strConection
cnConexion.Open
AbrirCn = True
VarAyuda = ""
Exit Function

Errores:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Error de Conexión"
AbrirCn = False
End Function

meriu
19 de Noviembre del 2003
Muchas gracias rafa...lo que sucede es que soy bien novata en esto de visual y necesito que me expliquen como a un niño...te agradecería mucho si me puedes explicar un poco el codigo
Gracias!!!!!