Como cosa rara problemas con Ado

[Zeroql]

hola a todos los foreros 
bueno tengo un programa com ADO como cosa rara
resulta que tengo este codigo...

Código [Seleccionar] Expandir


'abrir la base de datos
Public Sub OpenDB()
Dim strConect
strConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\ContF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=link"
Cn.Open strConect
RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
rsR.Open "Select * from Reporte", Cn, adOpenDynamic, adLockBatchOptimistic
End Sub

Sub SaveBD(valNew As Boolean)
'guardar un contacto
With frmEditAdd
  If valNew = True Then
     RS.AddNew
     RS!Nom = .txtNom.Text & " " & .txtApl.Text
     RS!Tel = .txtNum.Text
     RS!movil = .txtMov.Text
     RS!DirPic = DirImg
     RS.Update
     valNew = False
  End If
End With
End Sub

y no guarda con este codigo. porfa alguien que me colabore con este code y me diga por que no me guarda y cuando yo estudiaba esto funcionaba a la perfeccion.

[CeLaYa]

bueno yo lo hago asi:

Código [Seleccionar] Expandir


dim BD as database

set BD = Workspaces(0).OpenDatabase("nombreBD", Exclusivo, SoloLectura)

on local error resume next
BD.Execute "INSERT INTO Tabla " & _
               "(Campo1, Campo2, ...) VALUES " & _
               "('" & valor1 & "', '" & valor2 & "', " & ... & ")", dbFailOnError
if err then msgbox Err.Number & vbcrlf Err.description
On local error goto 0

bd.close
set bd = nothing

[/close]

[Zeroql]

bueno yo lo hacia como tu lo tienes pero a la hora de presentar informes por cristal me presenta uin error, ademas para buscar, y editar tambien presenta errores

[CeLaYa]

Código [Seleccionar] Expandir


'abrir la base de datos
Public Sub OpenDB()
Dim strConect
strConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\ContF.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=link"
Cn.Open strConect
RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
rsR.Open "Select * from Reporte", Cn, adOpenDynamic, adLockBatchOptimistic
End Sub



y no te faltaria poner

Código [Seleccionar] Expandir


set RS = new RecordSet


antes de

Código [Seleccionar] Expandir


RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic


[Zeroql]

no celaya las variables ya estan declaradas asi:
public rs as new Adodc.Recordset
public BD as new Adodc.Conection
pero no funcionan

[Hans el Topo]

prueba asi

Código [Seleccionar] Expandir

Dim cn As New ADODB.Connection    'conector datos base de datos
Dim rec As New ADODB.Recordset    'tabla objeto recordset
Dim GSql As String                'cada sentencia a enviar



    cn.Provider = "Microsoft.Jet.OLEDB.4.0"         'en este caso es para Access 2000
    cn.ConnectionString = App.Path & "/base de datos.mdb"
    cn.Open
    rec.Open "principal", cn, , adCmdText

    Gsql="INSERT INTO Tabla " & _
               "(Campo1, Campo2, ...) VALUES " & _
               "('" & valor1 & "', '" & valor2 & "', " & ... & ")"

    cn.Execute Gsql

dinos k errores te da al buscar y actualizar

[Zeroql]

al buscar nada pero al editar no me reconoce los datos. probare tu forma, gracias a todos por colaborar