error con consulta sql en asp
Hola!!! En la siguiente conexión a base de datos access me da el error siguiente:
Microsoft OLE DB Provider for ODBC Driverrs (0x80040E10) [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 2.
Se que tiene que ver algo con la sentencia sql, pero no logro resolverlo. ¿Alguien podría ayudarme a salucionarlo? Muchas gracias.
<% @ LANGUAGE="VBSCRIPT" %>
<html>
<head></head>
<body>
<h1>NOMBRES Y APELLIDOS</h1>
<%
Dim BDD
Dim RS
Dim RS2
'Dim consulta
Set BDD=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
BDD.Open"vacaciones"
RS.Open"EMPLEADOS",BDD
consulta="Select EMPLEADOS.*,VACACIONES.* FROM EMPLEADOS,VACACIONES WHERE (DNI.EMPLEADOS =DNI.VACACIONES)"
Set RS=BDD.Execute(consulta)
Response.Write("<table>")
Do While Not RS.Eof
Response.Write("<tr>")
Response.Write("<td>" & RS("EMPLEADOS.nombre") & "</td>")
Response.Write("<td>" & RS("EMPLEADOS.apellidos") & "</td>" & "</tr>")
Response.Write("<td>" & RS("VACACIONES.DNI") & "</td>" & "</tr>")
RS.MoveNext
Loop
Response.Write("</table>")
'While not RS.EOF
' Response.Write("Nombre: " & RS("nombre") & "<br>")
' Response.Write("Apellidos :" & RS("apellidos") & "<br>")
' RS.MoveNext
'Wend
RS.Close
BDD.Close
Set BDD=Nothing
Set RS=Nothing
%>
</body>
</html>
Microsoft OLE DB Provider for ODBC Driverrs (0x80040E10) [Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 2.
Se que tiene que ver algo con la sentencia sql, pero no logro resolverlo. ¿Alguien podría ayudarme a salucionarlo? Muchas gracias.
<% @ LANGUAGE="VBSCRIPT" %>
<html>
<head></head>
<body>
<h1>NOMBRES Y APELLIDOS</h1>
<%
Dim BDD
Dim RS
Dim RS2
'Dim consulta
Set BDD=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
BDD.Open"vacaciones"
RS.Open"EMPLEADOS",BDD
consulta="Select EMPLEADOS.*,VACACIONES.* FROM EMPLEADOS,VACACIONES WHERE (DNI.EMPLEADOS =DNI.VACACIONES)"
Set RS=BDD.Execute(consulta)
Response.Write("<table>")
Do While Not RS.Eof
Response.Write("<tr>")
Response.Write("<td>" & RS("EMPLEADOS.nombre") & "</td>")
Response.Write("<td>" & RS("EMPLEADOS.apellidos") & "</td>" & "</tr>")
Response.Write("<td>" & RS("VACACIONES.DNI") & "</td>" & "</tr>")
RS.MoveNext
Loop
Response.Write("</table>")
'While not RS.EOF
' Response.Write("Nombre: " & RS("nombre") & "<br>")
' Response.Write("Apellidos :" & RS("apellidos") & "<br>")
' RS.MoveNext
'Wend
RS.Close
BDD.Close
Set BDD=Nothing
Set RS=Nothing
%>
</body>
</html>
Nosotras la conexion la abrimos así:
set conn = server.createObject("ADOdb.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("..portalbd.mdb")
set rs = Server.CreateObject("ADOdb.Recordset")
La verdad es que no entiendo mucho como la tienes tu, pero así funciona. Pero lo nuestro es con Access.
set conn = server.createObject("ADOdb.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("..portalbd.mdb")
set rs = Server.CreateObject("ADOdb.Recordset")
La verdad es que no entiendo mucho como la tienes tu, pero así funciona. Pero lo nuestro es con Access.