Set RS = Conn.Execute("SELECT * FROM user") Do While Not RS.EOF %> <%=Rs("username") %><br> <% RS.MoveNext loop %>
fejl ...
Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet, og der er ikke angivet en standarddriver. /login/test.asp, line 12
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.
SET conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") ---------> er det navnet på din databse?
prøv det her.....du kan vel selv lige skifte det der skal skiftes: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") SQL = "SELECT * FROM User" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open conn, sql, 1, 3
do while not (rs.eof or rs.bof) Response.Write rs("Username") rs.movenext loop %>
------------------------------------ Kommer der fejl så udskift "rs.Open conn, sql, 1, 3" med "rs.Open sql, conn, 1, 3"
for at gøre koden "idiotsikker" kan du jo bruge: --------- ACCESS --------- <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb") SQL = "SELECT * FROM User" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open conn, sql, 1, 3
if (rs.eof or rs.bof) then Response.Write "Der er ingen brugere endnu." else do while not (rs.eof or rs.bof) Response.Write rs("Username") rs.movenext loop end if %>
--------- MYSQL --------- <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={MySQL};Server=localhost;Database=host4you_dk_db;UID=;Pwd=;" SQL = "SELECT * FROM User" Set rs = SQL
if (rs.eof or rs.bof) then Response.Write "Der er ingen brugere endnu." else do while not (rs.eof or rs.bof) Response.Write rs("Username") rs.movenext loop end if %>
doh! først nu ser jeg det.....sry den mindre spam....ret lige:
Set rs = SQL med Set rs = Conn.Execute(SQL)
BEKLAGER OG UNDSKYLDER SPAM :/
Synes godt om
Slettet bruger
19. august 2002 - 21:48#9
Kig lige en exter gang på den kode der er angive. det virker ikke !!!!
Synes godt om
Slettet bruger
20. august 2002 - 07:42#10
Lukker den spam da jeg ikke kan få hjælp til mit problem..
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
