Hola a todos. Deseo hacer esta conexion pero me arroja un error, debe estar mal estructurado.. alguien sabe cual es mi error? Se los agradeceria. Quiero dejar la tabla como variable... ;_;
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
(lo anterior en un modulo)
(y lo de acontinuacion en el form)
Private Sub Form_Load()
Dim table_name As String
table_name = Combo1.List(Combo1.ListIndex)
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"
--------------------
Ahora, de esta manera me funciona sin problemas:
Private Sub Form_Load()
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockPessimistic
Alguien sabe? de antemano muchas gracias.
Hmmmm... asdasd todo esto es lo q tengo en el form
--me tira un error-- 3709 : "no se puede utilizar la conexion para realizar esta operacion. Esta cerrada o no es validad en este contexto."
Private Sub Form_Load()
Dim dbname As String
Dim qdef As QueryDef
Dim db1 As Database
Dim td As TableDef
Dim table_name As Variant
table_name = Combo1.List(Combo1.ListIndex)
'Project-------> Rfrence-------> Microsoft ActiveX 2.0 Object Library [ ADO ]
db.Provider = "Microsoft.JET.OLEDB.4.0;"
db.Open App.Path & "\Cortes.mdb"
rs.Open "[" & table_name & "]" & ", db, adOpenStatic, adLockPessimistic"
'Call ViewRecord
'Call comboRecord
'Combo1 lista tablas---------------------------------------------
' Abrir base de datos.
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "Cortes.mdb"
Set db1 = OpenDatabase(dbname)
' Listar las tablas.
For Each td In db1.TableDefs
' no mostrar las tablas del sistema
If Left$(td.Name, 4) <> "MSys" Then _
Combo1.AddItem td.Name
Next td
' control Data database.
Data1.DatabaseName = dbname
' Abrir tabla seleccionada.
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\CodigosCR.mdb;" & _
"Persist Security Info=False"
Adodc2.RecordSource = "Codigoscorte"
' Refresh es necesario para que se cargue la tabla
Adodc2.Refresh