16/01/2006, 19:36
|
| | | Fecha de Ingreso: enero-2006 Ubicación: Montevideo, Uruguay
Mensajes: 10
Antigüedad: 19 años, 3 meses Puntos: 0 | |
| Sólo tenés que cambiar el string de conexión y agregar una referencia a ADO, luego trabajás sin problemas.
Si querés el SQL Server, aunque ud. no lo crea Microsoft está ofreciendo una versión Express gratuita, la cual (doy fe) es muy operativa.
Acá te paso un ejemplo que encontré en EL GUILLE:
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
Set cnn = Nothing
Set rst = Nothing
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
' abrir la base usando las credenciales de Windows
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=pubs; " & _
"Data Source=(local)\NETSDK; " & _
"integrated security=SSPI; persist security info=True;"
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub |