On Error Resume Next
'Conexion con la base de datos
'Sólo aparece si agrego la referencia a ActiveX data objects
Dim ObjConexion As New Connection
'La ruta a la base de datos más o menos ver articulo más abajo
ObjConexion.ConnectionString = "Provider=SQLOLEDB.1;Integrated " & _
" Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind "& _
";Data Source=portatil\v2000" 'La sentencia a ejecutar ver tutorial SQL más abajo
Dim objComando As New Command
objComando.CommandText = "SELECT EmployeeID, FirstName, LastName " & _
"FROM Employees"
'Abro la conexión con la base de datos
ObjConexion.Open Dim ObjRecordset As New Recordset
'Asocio la base de datos a la sentencia a ejecutar
objComando.ActiveConnection = ObjConexion
ObjRecordset.Open objComando If Err.Number <> 0 Then
MsgBox Err.Number
Else
While Not ObjRecordset.EOF
MsgBox ObjRecordset.Fields("FirstName")
ObjRecordset.MoveNext
Wend
End If
ObjConexion.Close |