conexion ado con tabla variable.

Jdemarest
24 de Febrero del 2006
Hola a todos, uh, 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 & "\Phone.mdb"
rs.Open "[Table1]", db, adOpenStatic, adLockPessimistic

Alguien sabe? de antemano muchas gracias.


csdk
24 de Febrero del 2006
Public ADOCONN As New ADODB.Connection \'CONEXION*************
Public Function conex()
nombre=combo1.text
ADOCONN.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog="nombre db ";Data Source=server"
ADOCONN.Open
End Function
Public Function desconectar()
ADOCONN.Close
End Function

daniel316
24 de Febrero del 2006
Podría intentarlo de esta forma también:

Private Sub Form1_Load()
Dim Conexion As String
Dim RecordsetADO As ADOB.Recordset

Conexion="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Cortes.mdb" & ";User Id=admin;Password="

Set RecordsetADO = New ADODB.Recordset
RecordsetADO.CursorLocation = adUseClient
RecordsetADO.Open "Select * From " & Combo1.Text", Conexion, adOpenStatic, adLockReadOnly, adCmdText
End Sub