ADO sin Data Control y SQL
Publicado por Nerio (8 intervenciones) el 27/04/2005 18:37:44
Hola a todos, mi problema es que tengo un sistema en VB 6.0 y Acces 2003, el mismo emplee ADO para la conexion, pero no emplee el objeto DataControl de ADO, lo hice con la siguiente codigo
Option Explicit
Private Sub IniciarSistema()
rutaBD = "c:\SistemaOperaciones\Operaciones.mdb"
'Objeto Connection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source='" & rutaBD & "';Password=;"
Set objConnection = New ADODB.Connection
objConnection.Open strConnection
'Objetos Recordset
strSQL = "SELECT * FROM funcionario"
Set rsFuncionario = New ADODB.Recordset
With rsFuncionario
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open strSQL, objConnection
End With
.........
En estos momentos estoy migrando la BD a SQL 2000, y no se como conectarla con el sistema, si me pudiesen ayudar se los agradeceria Mucho.
Gracias por adelantado
Option Explicit
Private Sub IniciarSistema()
rutaBD = "c:\SistemaOperaciones\Operaciones.mdb"
'Objeto Connection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source='" & rutaBD & "';Password=;"
Set objConnection = New ADODB.Connection
objConnection.Open strConnection
'Objetos Recordset
strSQL = "SELECT * FROM funcionario"
Set rsFuncionario = New ADODB.Recordset
With rsFuncionario
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open strSQL, objConnection
End With
.........
En estos momentos estoy migrando la BD a SQL 2000, y no se como conectarla con el sistema, si me pudiesen ayudar se los agradeceria Mucho.
Gracias por adelantado
Valora esta pregunta
0