problemas para agregar y modificar datos
Hola....
Soy nuevo en esto de la programacion de VB y estoy dando mis primeros pasos en ella. Desearía que alguno de ustedes pudiera ayudarme así puedo continuar en el mundo de la programacion de VB pues por ahora estoy atascado en un problemita...
He creado un formulario que contiene un ADO data control las propiedades del mismo son
nombre: adoagrecli
connectionString: FILE NAME=C:BALANCEvinbdbrvv.mdl.UDL
RecordSource: Select * from clientes
CursorLocation : adUseClient
CursorType : adOpenDynamic
LockType : adLockOptimistic
En el formulario ademas puse 5 TextBox las propieades de los mismos son:
DataSource : adoagrecli
el el DataFiel de cada textBox cambia de acuerdo al campo que quiera mostrar
DataField : nomcli
cuando ejecuto todo bien.. el problema es cuando quiero agregar un registro
para ello agrege un CommandButton
llamado cmdagregar
cuando hago click en él se ejecuta esto
Private Sub Cmdagregar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
.AddNew
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
Else
MsgBox "Cliente existente - verifique", vbExclamation, "Atención"
End If
End With
End Sub
y aqui se detiene el programa y me sale un error con el siguiente mensaje: " error 91 en tiempo de ejecucuion - variable de tipo Oject o la variable de bloque wjth no está establecida" y se detiene en la linea de código siguiente
.MoveFirst
aqui mi pregunta como soluciono este error?, agradeceria muchisimo su ayuda
tambien agrege un CommandButton
llamado cmdmodificar
cuando hago click en él se ejecuta esto
Private Sub Cmdmodificar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
MsgBox "No se encuentra el registro", vbExclamation, "Atención"
Else
.Edit
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
End If
End With
End Sub
a este no lo he probado pero quería preguntarles si está bien para que no me de error.
desde ya muchas gracias Daniel
Soy nuevo en esto de la programacion de VB y estoy dando mis primeros pasos en ella. Desearía que alguno de ustedes pudiera ayudarme así puedo continuar en el mundo de la programacion de VB pues por ahora estoy atascado en un problemita...
He creado un formulario que contiene un ADO data control las propiedades del mismo son
nombre: adoagrecli
connectionString: FILE NAME=C:BALANCEvinbdbrvv.mdl.UDL
RecordSource: Select * from clientes
CursorLocation : adUseClient
CursorType : adOpenDynamic
LockType : adLockOptimistic
En el formulario ademas puse 5 TextBox las propieades de los mismos son:
DataSource : adoagrecli
el el DataFiel de cada textBox cambia de acuerdo al campo que quiera mostrar
DataField : nomcli
cuando ejecuto todo bien.. el problema es cuando quiero agregar un registro
para ello agrege un CommandButton
llamado cmdagregar
cuando hago click en él se ejecuta esto
Private Sub Cmdagregar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
.AddNew
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
Else
MsgBox "Cliente existente - verifique", vbExclamation, "Atención"
End If
End With
End Sub
y aqui se detiene el programa y me sale un error con el siguiente mensaje: " error 91 en tiempo de ejecucuion - variable de tipo Oject o la variable de bloque wjth no está establecida" y se detiene en la linea de código siguiente
.MoveFirst
aqui mi pregunta como soluciono este error?, agradeceria muchisimo su ayuda
tambien agrege un CommandButton
llamado cmdmodificar
cuando hago click en él se ejecuta esto
Private Sub Cmdmodificar_Click()
Dim cadenacuit As String
cadenacuit = Txtagregarclientecuit.Text
With adoagrecli.Recordset
.MoveFirst
.Find "cuitcli=" & cadenacuit, 0, adSearchForward
If .EOF Then
MsgBox "No se encuentra el registro", vbExclamation, "Atención"
Else
.Edit
.Fields("cuitcli") = Txtagregarclientecuit.Text
.Fields("nomcli") = Txtagregarclientenombre.Text
.Fields("dircli") = Txtagregarclientedireccion.Text & ""
.Fields("telcli") = Txtagregarclientetelefono.Text & ""
.Fields("inbcli") = Txtagregarclienteingbru.Text & ""
.Update
End If
End With
End Sub
a este no lo he probado pero quería preguntarles si está bien para que no me de error.
desde ya muchas gracias Daniel