Julio 24, 2009
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
%>
Deja un Comentario » |
ASP, Access | Etiquetado: access 97, ASP |
Permalink
Escrito por lags80
Enero 19, 2009
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.
Deja un Comentario » |
ASP .NET 2003 | Etiquetado: ASP .NET 2003, fechas, idioma |
Permalink
Escrito por lags80
Septiembre 10, 2008
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.
Deja un Comentario » |
Access, VB6 | Etiquetado: access 97, bd, conexión, VB6 |
Permalink
Escrito por lags80
Septiembre 2, 2008
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”
Deja un Comentario » |
MySQL, VB6 | Etiquetado: bd, conexión, MySQL, VB6 |
Permalink
Escrito por lags80
Agosto 18, 2008
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
Deja un Comentario » |
VB6, sql server 2000 | Etiquetado: bd, conexión, sqlserver 2000, VB6 |
Permalink
Escrito por lags80