conexion ado con tabla variable.
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.
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.
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
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
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
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