[ASP] Mostrar datos de Access en una tabla

El siguiente codigo muestra como realizar una conexión a una base de datos en Access desde ASP 3.0.

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
%>

La galeria de POllo

Visita la página de POllo:

POllo

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

[ASP .NET 2003] Formato Idioma en Fechas

Declarar primero la libreria:

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.

[VB6] Como realizar una conexion a una BD de access 97 sin usar el “Data”

Agregamos la Referencia: “Microsoft ActiveX Data Objects 2.6 Library a nuestro proyecto. Declaramos una variable global de tipo “Connection”:

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.

[VB6] Como crear una conexión a MySQL

Primero tenemos que tener instalado el Driver ODBC 3.51 de MySQL, lo encuentras aqui:

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”

K buen madrazo jaja

Esto paso afuera de mi casa, unos tipos en una camioneta azul venian bastante pedos, jaja y vean lo que pasa.

choque

[VB6] Como crear una conexión a SQL Server 2000

En nuestro proyecto de VB6 debemos agregar la Referencia: “Microsoft ActiveX Data Objects 2.6 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 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

Hola, esta es la primera entrada de este Blog :P

Probando Blog : 1,2,3,4,5….