Título: conexion ado con tabla variada changa ;_; Publicado por: jdemarest en 24 Febrero 2006, 00:06 am 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 |