Si eres un desarrollador web que utiliza ASP y necesitas acceso a una base de datos, debes conocer la herramienta ADO (ActiveX Data Objects). A través de este artículo, aprenderás cómo utilizar ADO para acceder y manejar datos en tu base de datos ASP de manera eficiente y fácil. No te pierdas esta información valiosa que te ayudará a mejorar la calidad y la funcionalidad de tus proyectos web.
Si bien ASP como lenguaje de secuencias de comandos del lado del servidor es muy útil, sin acceso a un base de datos, por lo general estará limitado a servir contenido estático. Usando ALHARACApodemos conectarnos fácilmente a una variedad de fuentes de datos como Microsoft Access, Microsoft SQL Server, MySQL, etc.
Puede conectarse con o sin un Nombre de fuente de datos (DSN). El uso de un DSN le brinda una manera fácil de administrar la conexión de la fuente de datos y también le brinda acceso a fuentes distintas a las plataformas de bases de datos mencionadas anteriormente.
En el siguiente ejemplo, estamos conectando a una fuente de datos y consulta una mesa llamada empleados. Los resultados simplemente se muestran dentro de un elemento de tabla. Dependiendo de cómo se conecte a la fuente de datos, determinar el valor que le asignas a la variable cstr. En el siguiente ejemplo, nos estamos conectando a una base de datos MySQL, utilizando un cadena de conexión no DSN. Sin embargo, si se conecta a través de DSN, la cadena puede verse así:
cstr = "DSN=dsn_name;UID=user_name;PWD=password;Database=database_name"
or such as this if the username and password is stored in the DSN.
cstr = "DSN=dsn_name"Ejemplo
<%
Dim oConn, oRs
Dim qry, cstr
Dim db_name, db_username, db_userpassword
Dim db_server
db_server = "dbserver.com"
db_name = "databaseName"
db_username = "dbUserName"
db_userpwd = "dbPassword"
tablename = "employees"
fieldname1 = "empName"
fieldname2 = "empTitle"
fieldname3 = "empOffice"
q = request.querystring("q")
cstr = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpwd
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open cstr
qry = "SELECT * FROM " & tablename & " WHERE empID = " & q
Set oRS = oConn.Execute(qry)
response.write("<table>")
if not oRS.EOF then
while not oRS.EOF
response.write ("<tr><td>Name:</td><td>" & oRs.Fields(fieldname1) & "</td></tr>")
response.write ("<tr><td>Title:</td><td>" & oRs.Fields(fieldname2) & "</td></tr>")
response.write ("<tr><td>Office:</td><td>" & oRs.Fields(fieldname3) & "</td></tr>")
oRS.movenext
wend
oRS.close
end if
response.write("</table>")
Set oRs = nothing
Set oConn = nothing
%>