Preguntas más frecuentes

Preguntas frecuentes de autoayuda.

Eche un vistazo rápido a las preguntas (y respuestas) comunes en la lista predeterminada. Si no puede encontrar lo que está buscando, comience seleccionando su versión Ability Office y luego redúzcalo ingresando el texto de búsqueda y/o la categoría.

Buscar

Selecciona una categoría

Seleccione la versión de software

Artículo de la base de conocimiento 72

How do I connect to an Ability Database with ASP?

So you've got Microsoft Internet Information Server (IIS) and you want to use ASP to interact with an Ability Database. For the purposes of this exercise, you can treat an Ability database in exactly the same way as a Microsoft Access database. IIS ships with drivers for Jet databases and so there's no requirement for an ODBC driver or any other software to be installed on the server.

There is a small caveat applying to Ability Office 98 only: the database has proprietary field types not supported by Jet: Calculated, Enumerated and Incremental will be treated as Character fields (numeric for Incremental).

Below is a compete listing for an ASP page that will a) open an Ability Database and b) dump a specified table into a web page. The code assumes:

"test.adb" - database name
"mytable" - table name in database
"/database/" - server directory (location of database)

The code does not require a Data Source Name (DSN) to be setup on the server since it explicitly states the database driver and name. It would be better practice to switch to a DSN in the longer term.

<HTML>
<%
Dim cnnAB, rsAB, i

Response.Write "<p>Opening database...</p>"

Set cnnAB = Server.CreateObject("ADODB.Connection")
cnnAB.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.MapPath("/database/test.adb")
Set rsAB = Server.CreateObject("ADODB.Recordset")
rsAB.Open "SELECT * FROM MyTable" , cnnAB, 3

Response.Write "<p>And now dump the table to screen in a table...</p>"
Response.Write "<p><table border=1><tr>"

For i=0 To rsAB.Fields.Count -1
Response.Write "<th>" & rsAB(i).Name & "</th>"
Next

Response.Write "</tr>"

Do While Not rsAB.EOF
Response.Write "<tr>"
For i = 0 To rsAB.Fields.Count -1
Response.Write "<td valign=top>" & rsAB(i) & "</td>"
Next
Response.Write "</tr>"
rsAB.MoveNext
Loop

Response.Write "</table>"

%>

</HTML>