4 svar · 145 visningar · startad av trexter.com
<!-- #include virtual="../inc/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\db2002.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowForums = "SELECT * FROM Forums ORDER BY C_Priority"
RecSet.Open ShowForums, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF %>
<%=RecSet("TitleofForum")%><br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
Felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
/forum/default2.asp, line 9
Testa
<!-- #include virtual="../inc/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("c:\trexter\databas\db2002.mdb" )&";pwd="
ShowForums = "SELECT * FROM Forums ORDER BY C_Priority"
Set Recset = Connect.Execute(ShowForums)
Do Until RecSet.EOF %>
<%=Recset("TitleofForum")%> <br>
<%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
Tack men jag löste det själv. Dumma jag hade glömt att jag döpte alla mina kolummer med "F_" i början och skrev istället C_....
:l
OKI... :-)
Inte för att vara petig, men jag hade nog använd mig av "response.write" i stället för att växla mellan asp & html.
<!-- #include virtual="../inc/adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\trexter\databas\db2002.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
ShowForums = "SELECT TitleofForum FROM Forums ORDER BY F_Priority"
RecSet.Open ShowForums, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF
Response.write RecSet("TitleofForum") & "<br>"
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
%>
RED. samt att om du bara ska använda dig av fältet TitleofForum, behöver du ju bara hämta det. (Fast koden kanske inte är komplett iofs...)