I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
