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

Pablo  Gumpert  Fernandez (aldeamedia)
Como trabajar con bases de datos con VB6
Pablo Gumpert Fernandez (aldeamedia)

Pablo Gumpert es formador y consultor oficial de Microsoft para .NET y SQL server.Lleva desarrollando desde hace más de diez años y durante ese tiempo ha trabajado como programador de videojuegos ,analista informático, experto en seguridad, DBA ... Actualmente se dedica sobre todo a la formación. Su especialidad es la programación en .NET aunque también es experto en MSSQL Server y en el año 2002 fundó su propia empresa colaboradora de diversos centros partner Microsoft.
Fecha de alta:25/07/2007
Última actualizacion:25/07/2007
Visitas totales:11898
Valorar el contenido:
Últimas consultas realizadas en los foros
Últimas preguntas sin contestar en los foros de devjoker.com