Como trabajar con bases de datos con VB6

A pesar de que en febrero se espera que salga la versión 9 de Visual Basic todavía hay muchas empresas y muchos centros educativos que siguen trabajando con la más conocida versión 6.0 de Visual Basic así que aqui os pongo un pequeño resumen de como conectar a una base de datos.


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

Articulos relacionados:

Tutorial SQL

http://www.devjoker.com/asp/indice_contenido.aspx?co_grupo=CSQL

Generar la cadena de conexión:

http://www.devjoker.com/contenidos/Articulos/217/Como-generar-autom%C3%A1ticamente-una-cadena-de-conexi%C3%B3n-OLEDB-en-Visual-Basic-6.aspx