Error con RecordSet

[2Fast To You]

Hoal Amigos

Bueno, estoy desarrollado un Programa y transfiero Datos de un Form a Otros. ¿Como Funciona?

Bien, mira Form3 tiene 7 TextBox y está conectado a una BD. Tambien este Form tiene varios Botones como son (Editar - Guardar - Buscar)

En Form7 está compuesto por: 1DBList y un Boton. Tambien por un Data.

En este DBlist se visualizan los Nombres de las Personas que estan en la BD.

Ahora. Cuando entro al Form7 que le doy a Buscar me sale ese Form. Despues coje y me sale la lista con los Nombres seleccione uno y cuando le doy a Aceptar automaticamente me lo envia al Form3 al TextBox (txtNombre) y despues automaticamente graciasa SQL el Form busca los Datos de ese Nombre y los Visualiza en los demas TextBox. Asta ahí vamos Bien. Despues le doy a Editar y todo bien. Se actiba el cmdGuardar y hago las Modificaciones y cuando le doy a Guardar me salo lo siguiente:



Despues cuando le doy Depurar me sale lo Siguiente:

rs.Update

Para Conectarme a mi BD estoy utilizando el Siguiente Código:

Código PHP:

  Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
 
Private Sub cmdBuscar_Click()
    On Local Error Resume Next
    Load Form7
    Form7.Show vbModal
    txtNombre = Nombre
    sql = "select Nombre,Telefono,Celular,Fax,Email,Direccion from Directorio where Nombre like '%" & txtNombre.Text & "%'"
    Set rs = Cn.Execute(sql)
    If rs.BOF = True Then
    MsgBox "        No Existen registros        "
    Else
    txtNombre.Text = rs!Nombre
    txtTelefono.Text = rs!telefono
    txtCelular.Text = rs!celular
    txtFax.Text = rs!fax
    txtEmail.Text = rs!email
    txtDireccion.Text = rs!direccion
    End If
End Sub
 
Private Sub cmdSalir_Click()
    Unload Me
    Load Form1
    Form1.Show vbModal
End Sub
 
Private Sub cmdEditar_Click()
    If Trim(txtNombre.Text) = "" Then
    MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
    txtNombre.SetFocus
    Exit Sub
    End If
    ModoEditar True
End Sub
 
Private Sub CmdGuardar_Click()
    If Trim(txtNombre.Text) = "" Then
    MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
    txtNombre.SetFocus
    Exit Sub
    End If
    rs.Update
    ModoEditar False
End Sub
 
Private Sub Form_Load()
    ModoEditar False
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\Directorio.mdb ;Admin=Admin;Pwd=896576560;"
    rs.CursorType = adOpenKeyset
    rs.Open "Select * From Directorio", Cn, adOpenStatic, adLockOptimistic
    Label8.Caption = rs.RecordCount & " Contactos Agregados a su lista"
    Set txtNombre.DataSource = rs
    txtNombre.DataField = "Nombre"
    Set txtTelefono.DataSource = rs
    txtTelefono.DataField = "Telefono"
    Set txtCelular.DataSource = rs
    txtCelular.DataField = "Celular"
    Set txtFax.DataSource = rs
    txtFax.DataField = "Fax"
    Set txtEmail.DataSource = rs
    txtEmail.DataField = "Email"
    Set txtDireccion.DataSource = rs
    txtDireccion.DataField = "Direccion"
    If Ok Then txtNombre.SetFocus
    rs.AddNew
End Sub
 
Private Sub ModoEditar(ByVal Ok As Boolean)
    txtNombre.Locked = Not Ok
    txtTelefono.Locked = Not Ok
    txtCelular.Locked = Not Ok
    txtFax.Locked = Not Ok
    txtEmail.Locked = Not Ok
    txtDireccion.Locked = Not Ok
    cmdBuscar.Enabled = Not Ok
    cmdEditar.Enabled = Not Ok
    cmdGuardar.Enabled = Ok
    cmdSalir.Enabled = Not Ok
    cmdAyuda.Enabled = Not Ok
    If Ok Then txtNombre.SetFocus
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Cn.Close
    Set Cn = Nothing
End Sub 
   

Lo mismo me pasa a la hora de Borrar. El codigo del Boton cmdEliminar es:

Código PHP:

  Private Sub CmdEliminar_Click()
    If Trim(txtNombre.Text) = "" Then
    MsgBox "No hay Registros", vbInformation, "Información"
    txtNombre.SetFocus
    Exit Sub
    End If
    rs.Delete
    If rs.EOF Then
        rs.MoveLast
    End If
    Unload Me
    Load Form4
    Form4.Show vbModal
End Sub 
   

Pero en vez de rs.Update es:

rs.Detele

Como Arreglo esto.

Saludos

[2Fast To You]

Hola Amigos

Bueno, me gustaría saber como puedo hacer para Detectar en VB la IP y el Nombre del Computador. Y despues ponerlo en un TextBox

Saludos

[acutillas]

La respuesta no te la voy a dar, me interesa más que intentes cambiar la metodología de trabajo.

Private Sub cmdEditar_Click()
If Trim(txtNombre.Text) = "" Then
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
txtNombre.SetFocus
Exit Sub
End If
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
If Trim(txtNombre.Text) = "" Then
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
txtNombre.SetFocus
Exit Sub
End If
rs.Update
ModoEditar False
End Sub



si te das cuen esto no es programación capitalista.

prueba hacer un modulo de mesg donde colocar
MsgBox "Debe escribir el nombre del Contácto.", vbInformation, "Información"
solo una vez.

[lic_dahool]

Yo por otro lado, voy a hacer otro aporte, no respondo a tu pregunta porque no veo la imágen donde se supone dice el error, así que no se cual es el problema, pero te recomendaría que cambies tu metodología de programación, pones todo el código de negocio en los eventos Click del comando, aunque funciona esto no es bueno y te puede traer muchos problemas en un futuro, te recomiendo que limpies un poco tú código. Puedes crear clases y aplicar (dentro de lo que VB6 permite) las características de la POO, o crear módulos para separar el trabajo. Sino puedes irte a lo mínimo y por lo menos quitar el código de los eventos y hacer que estos simplemente llamen a una función o procedimiento.

Es simplemente una recomendación sobre las buenas costumbres de programación. Y te será muy útil cuando tengas que modificar o ampliar tu código.

Saludos.