webForumDet fria alternativet

koden fel?

ASP

5 svar · 243 visningar · startad av ampy

Medlem sedan feb. 20011 498 inlägg
Frågan#1

Är det någon som ser något fel med denna kod?

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"

SET shop = Server.CreateObject("ADODB.Recordset")
SQLstmt=("SELECT TOP5")
SQLstmt= SQLstmt & (" FROM members ORDER BY id ASC")
shop.Open SQLstmt, Connect

%>

Medlem sedan aug. 20013 824 inlägg
#2

prova detta:

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"

SET shop = Server.CreateObject("ADODB.Recordset")
SQLstmt=("SELECT TOP 5 * FROM members ORDER BY id ASC")
shop.Open SQLstmt, Connect
%>

det borde funka...
annars får du posta felmeddelandet

------------------
vad är det för fel mad att vara lat?, tänk om det blev krig och ingen kom dit.

Medlem sedan dec. 19996 721 inlägg
#3

Skippa parenteserna runt SQL-strängen. De ger inget fel, men de är fullständigt onödiga.

Medlem sedan okt. 20005 273 inlägg
#4

ett till förslag...

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("members.mdb")&";pwd=losen"

SQLstmt= "SELECT TOP 5 * FROM members ORDER BY id ASC"
set shop = Connect.execute(SQLstmt)
%>

:OO

------------------
Jag kommer aldrig mer att tramsa efter vad som hänt i dag 2001-09-11

Medlem sedan feb. 20011 498 inlägg
#5

det funkar nu men jag undrar hur man gör så att när ni skriver blir koderna röda och mindre?

Medlem sedan okt. 20005 273 inlägg
#6

kolla här.

------------------
Jag kommer aldrig mer att tramsa efter vad som hänt i dag 2001-09-11

264 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
134 ms — hämta tråd, inlägg och bilagor (db)
126 ms — ändringar (db)