5 svar · 166 visningar · startad av ironhead
...eller är det bara jag som inte kan nåt :)
Jag får ett fel när jag ska lista data ur en SQL-databas med en komponent. Så här ser det ut:
Set rst = Server.CreateObject("ADODB.RecordSet")
Set objHandBook = Server.CreateObject ("HandbokSokning.HandBookSearch")
set rst = objHandBook.GetHandBooks
while not rst.EOF
<%= rst.Fields("sName")%>
rst.MoveNext
wend
set rst = nothing
Är det något fel på denna kod? Får det inte att funka utan får felmeddelandet Argument not optional: 'GetHandBooks'
Please Help :)
\\Peter Johansson
Allt är ju ASP, inte bara utskriften som du angett! :-)
Byt:
<%= rst.Fields("sName")%>
Till:
response.write rst.Fields("sName") & "<BR>" & vbCRLF
[r]response.write rst("sName") & "<BR>" & vbCRLF
Vad är fields för något!?[/r]
...och så sätter du all kod inom <% ... %>
[r2]
Dessutom ska du avsluta med LOOP, inte WEND.
[/r2]
------------------
"Never underestimate your opponents." - Name the movie.
[Redigerat av Eclipse den 27 mar 2001]
[Redigerat av Eclipse den 27 mar 2001]
hej där! :)
metoden GetHandBooks har argument som inte är valbara, utan måste anges. hur ser den funktionen ut i komponentkoden?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
bah! fick till det till slut...man blir kod-blind :)
Jag glömde skicka med argumenten till komponenten, det skulle vara:
set rst = objHandBook.GetHandBooks(Application("provider"), Application("conStr"))
Dessutom ska du avsluta med LOOP, inte WEND
nja...
do-loopar loopas med loop.
while-loopar loopas med wend. :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>
Jag är inte säker på att du måste instantiera ett recordset. skulle kunna tänka mig att du endast behöver dimma en variablen för recordset:et eftersom din komponentmetod returnerar ett recordset. I sådana fall blir koden:
Dim rst
Set objHandBook = Server.CreateObject ("HandbokSokning.HandBookSearch")
Set rst = objHandBook.GetHandBooks
while not rst.EOF
response.write rst.Fields("sName")
rst.MoveNext
wend
set rst = nothing
Det är värt ett försök.... :)
------------------
/ Torbjörn Hansson, webbutvecklare
Endero Sverige