Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
Der er slet ikke noget kode som åbner et recordset og lægger referencen over i RHPRS... du får kun åbnet forbindelsen til databasen.
I øvrigt er det en dårlig idé at lægger exit-kontrollen efter du har forsøgt at læse den første record - det inviterer til kørselsfejl! Benyt dette format af do while i stedet for (bemærk jeg skriver FORMAT hvilket vil sige det er en generel fremgangsmåde):
do while not rs.eof ... rs.movenext loop
Synes godt om
Slettet bruger
05. marts 2007 - 12:41#2
Jo der mangler følgende efter DSN2: Conn2.Open DSN2 StrSQL = "Select * from ph1 order by zeitstempel" RHPRS = Conn2.Execute(StrSQL) Do
Der skal set foran RHPRS (det skal der også foran RS = Conn1...), da det er et objekt som tildeles. Jeg vil foreslå denne kode i stedet for din version:
<% Set Conn1 = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/signalanlaeg/P/db1.mdb") Conn1.Open DSN set RS = Conn1.Execute("Select * from files") Do While Not rs.EOF Set Conn2 = Server.CreateObject("ADODB.Connection") DSN2 = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(RS("Filnavne")) Conn2.Open DSN2 StrSQL = "Select * from ph1 order by zeitstempel" set RHPRS = Conn2.Execute(StrSQL) Do While Not RHPRS.EOF RHPRS.MoveNext Loop Conn2.Close Set Conn2 = Nothing rs.MoveNext Loop Conn1.Close Set Conn1 = Nothing %>
Synes godt om
Slettet bruger
05. marts 2007 - 13:09#4
Tak for det.
Smider du lige et svar så jeg kan tildele dig dine point.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
