No es la única forma!
También se puede usar los adoDataControl, de esta forma te ahorras de pogramar la conexión a la BD. Para poder usar este control tienes que ir a componentes y seleccionar
Microsoft ADO data control ...
Pero sin duda tienes más control cuando lo haces a pie..
Para conectarte a SQLServer 2000 solo necesitas de estas líneas:
Código:
Dim cnn1 As ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn
Todas la demás líneas estan relacionadas manipular los datos con el objeto RecordSet por medio de la conexión abierta y pues procesarlo segun se necesite.
Las siguiente líneas se encargan de crear el objeto RecordSet y luego extarer los datos de una o varias tablas con el objeto.
Código:
Dim rstEmployees As ADODB.Recordset
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "empleado", cnn1, , , adCmdTable
En el caso anterior se esta abriendo la tabla empleado.
Saludes
