Cambien el nombre de “guestbook.mdb” por el nombre de su base datos, asi como “SELECT t.Name, t.Comments FROM tblComments t”, con la consulta segun su tabla a mostrar.

<%
Dim oConn,rs
Set oConn = Server.CreateObject(“ADODB.Connection”)
oConn.Open(“DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“guestbook.mdb”))
‘ Realizamos la consulta
set rs = oConn.Execute(“SELECT t.Name, t.Comments FROM tblComments t”)
‘ Hacemos un bucle hasta que no  queden datos

Response.Write(“<TABLE BORDER=”"1″”>”)
Response.Write(“<TR>”)
‘ Recorremos los nombre de los campos. Restamos uno porque los índices empiezan en 0
for I=0 to rs.Fields.Count-1

Response.Write(“<TD><b>”&rs.Fields(I).Name&”</b></TD>”)

next
‘ Ahorra recorremos el recordset creando una fila nueva por cada registro
do until rs.EOF

Response.Write(“<TR>”)
for I=0 to rs.Fields.Count-1
Response.Write(“<TD>”&rs.Fields(I)&”</TD>”)
next
rs.MoveNext

loop
Response.Write(“</TABLE>”)

rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
%>

Visita la página de POllo:

POllo

http://lags.80.googlepages.com/pollo

Imports System.Globalization

Después en el código ya sea en el Page_Load() o en un evento de un botón, escribir el siguiente código:

Dim culture_object As New CultureInfo(“es-MX”)
System.Threading.Thread.CurrentThread.CurrentCulture = culture_object

Con esto si nuestro servidor esta en Inglés, nuestras fechas no seran afectadas por el formato en ese idioma.

Dim cnn As Connection

Y en el evento principal del Form Load declaramos lo siguiente:

Set cnn = New Connection
cnn.Open “PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=” & App.Path & “\bd1.mdb”

Donde “bd1.mdb” es el nombre de la base de datos, dicho archivo debe estar en el mismo directorio del proyecto de vb6.

http://dev.mysql.com/downloads/connector/odbc/3.51.html

En nuestro proyecto de VB6 debemos agregar la Referencia: “Microsoft ActiveX Data Objects 2.5 Library. Después declaramos un módulo donde pondremos una variable Pública de tipo “Connection”

Public conn As Connection

Posteriormente declaramos una función Pública llamada “CNXConectaBD” que contendrá la cadena de conexión a nuestra BD en MySQL. Dicha función manejara 4 parametros que son: Servidor, Base de datos, Usuario y Password.

Public Sub CNXConectaBD(psServer As String, psBD As String, psUsr As String, psPsw As String)

On Local Error GoTo error
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = “DRIVER={MySQL ODBC 3.51 driver};” _
& “SERVER=” & psServer & “;” _
& “DATABASE=” & psBD & “;” _
& “UID=” & psUsr & “;” _
& “PWD=” & psPsw & “;” _
& “OPTION=” & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open
MsgBox “Conexión realizada con éxito.”, vbOKOnly + vbInformation, “Conexión a MySQL”
Beep
Exit Sub
error:
‘Sino realiza la conexión mandará el siguiente mensaje de error
MsgBox “Error al establecer la conexión con el servidor. Verifique sus datos e intente nuevamente.”, vbOKOnly + vbExclamation, “Conexión a MySQL”
conn.Close
End
End Sub

Para llamar a la función para conectar a la Base de Datos, seria como se muestra:

CNXConectaBD “127.0.0.1″, “bd”,”user”,”pass”

Public conn As Connection

Posteriormente declaramos una función Pública que contendrá la cadena de conexión a nuestra BD en SQL Server 2000

Public Sub ConectaBD()

Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = “Driver={SQL Server};Server=SERVIDOR;Database=BD;Uid=user;Pwd=password;”
conn.Open
End Sub