ASP - este es mi codigo

 
Vista:

este es mi codigo

Publicado por luisbeto (20 intervenciones) el 14/01/2001 00:00:00
<%
Param = Request.QueryString("Param")
Data = Request.QueryString("Data")
%>
11 <%
12 If IsObject(Session("base_conn")) Then
13 Set conn = Session("base_conn")
14 Else
15 Set conn = Server.CreateObject ("ADODB.Connection")
16 conn.open "base","",""
17 Set Session("base_conn") = conn
18 End If
%>
Este es el codigo, el error me lo marca en la linea quince y para ser sincero este codigo lo genera access, intente hacer la coneccion en inicio|configuracion|panelcontrol|odbc y defini origen de datos del sistema a la base de datos que se llama datos, pero la ruta se la di c:\....datos, no se si ese se el error...

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE: Conexion con Microsoft Access

Publicado por Melvin Nava (49 intervenciones) el 15/01/2001 00:00:00
Un buen ejemplo de una conexión con una DB de Access 97...

<%
DIM strDB, strParam, strData
strDB = "/direccion-hasta/tu-db.mdb"
strParam = Request.QueryString("Param")
strData = Request.QueryString("Data")

strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(nuestraDB)

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open strConn

mySQL = "select * from nombretabla where Columna1 LIKE ´%" & strParam & "%´ OR Columna2 LIKE ´%" & strData & "%´ order by Name"

Set nuestro_Query = myConn.Execute(mySQL)

Do Until nuestro_Query.EOF
deColumna1 = rstemp.fields("Columna1")
deColumna2 = rstemp.fields("Columna2")
Response.Write("<font face=arial size=2>")
Response.Write(deColumna1 & "<br>" & deColumna2)
Response.Write("</font>")
nuestro_Query.movenext
Loop

conn.Close
Set conn = Nothing
%>

Solo es cuestion de mirarla bien para entenderla, trata de no usar Access para crear codigo (very scratchy), observa sobre todo la parte donde especificamos la ubicacion y el tipo de DB:

strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(nuestraDB)

"nuestraDB" es la variable donde esta la direccion fisica del archivo mdb, por ej:

strDB = "/cgi-bin/base-de-datos.mdb"

Espero que te sirva este codigo
Suerte!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar