 Autor
|
Tema: Como cosa rara problemas con Ado (Leído 1,367 veces)
|
Zeroql
 Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
hola a todos los foreros  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.  
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
CeLaYa
Desconectado
Mensajes: 543
|
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]
|
|
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
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
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
CeLaYa
Desconectado
Mensajes: 543
|
'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 antes de RS.Open "select * from Principal", Cn, adOpenKeyset, adLockBatchOptimistic
|
|
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos".
Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
no celaya las variables ya estan declaradas asi:
public rs as new Adodc.Recordset
public BD as new Adodc.Conection
pero no funcionan
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
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 |
|
|
|
« Última modificación: 23 Diciembre 2006, 14:05 pm por Hans el Topo »
|
En línea
|
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
al buscar nada pero al editar no me reconoce los datos. probare tu forma, gracias a todos por colaborar
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
|
 |
