hola a todos los foreros :P
bueno tengo un programa com ADO como cosa rara
resulta que tengo este codigo...
'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. :xD :rolleyes:
bueno yo lo hago asi:
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]
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
Cita de: Zeroql en 22 Diciembre 2006, 03:05 AM
'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
set RS = new RecordSet
antes de
RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
no celaya las variables ya estan declaradas asi:
public rs as new Adodc.Recordset
public BD as new Adodc.Conection
pero no funcionan
prueba asi
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
al buscar nada pero al editar no me reconoce los datos. probare tu forma, gracias a todos por colaborar