Ayuda urgente en conexión a BD
Publicado por alfredo (10 intervenciones) el 14/03/2002 20:46:38
Hola, hice una aplicación pero al conectar a la BD me da un error que a continuación lo mostraré:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/proyecto.asp, line 12
EL CODIGO ES EL SIGUIENTE:
<%
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
idioma = Left(pais, 2)
cadena=pais
lon=len(cadena)
codigopais=mid (cadena,lon-1,2)
Set BD = Server.CreateObject("ADOdb.Connection")
BD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; PWD=burlsink74; " & "DBQ=" & Server.Mappath("repupload/bdPais.mdb")
set ejecuta=BD.Execute("SELECT paises.* FROM paises WHERE abreviacion=" & codigopais)
strPais = ejecuta("nombre")
ejecuta.Close
Set ejecuta = Nothing
BD.Close
Set BD = Nothing
Response.Write strPais
%>
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/proyecto.asp, line 12
EL CODIGO ES EL SIGUIENTE:
<%
pais = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE")
idioma = Left(pais, 2)
cadena=pais
lon=len(cadena)
codigopais=mid (cadena,lon-1,2)
Set BD = Server.CreateObject("ADOdb.Connection")
BD.Open "DRIVER={Microsoft Access Driver (*.mdb)}; PWD=burlsink74; " & "DBQ=" & Server.Mappath("repupload/bdPais.mdb")
set ejecuta=BD.Execute("SELECT paises.* FROM paises WHERE abreviacion=" & codigopais)
strPais = ejecuta("nombre")
ejecuta.Close
Set ejecuta = Nothing
BD.Close
Set BD = Nothing
Response.Write strPais
%>
Valora esta pregunta
0