13. juli 2004 - 15:54Der er
10 kommentarer og 1 løsning
valider data inden write
Hej igen Som før har jeg en databasen som der kan skrives til. Databasen indeholder 10 kolonner/felter men kun ét er vigtigt at få kontroleret når nye data skal indskrives. Feltet hedder "spiller" og kan have alle numre, men 2 må selvfølgelig ikke være ens. Hvordan kontrolerer jeg det via form-feltet? Min koder ser sådan ud:
<% dim data, rs, sql set rs = server.createobject("adodb.connection") sql = "select * from spiller where spiller = " & request.querystring("spiller") set rs = rs.execute(sql) if rs.eof then Set data=Server.CreateObject ("ADODB.Recordset") data.Open "spiller", database, 2, 2 %>
<% data.AddNew data("spiller")=Request.QueryString("spiller") data("pabryst")=Request.QueryString("pabryst") data("paryg")=Request.QueryString("paryg") data("trbryst")=Request.QueryString("trbryst") data("trryg")=Request.QueryString("trryg") data("trærmeh")=Request.QueryString("trærmeh") data("trærmev")=Request.QueryString("trærmev") data("shbag")=Request.QueryString("shbag") data("shbenh")=Request.QueryString("shbenh") data("shbenv")=Request.QueryString("shbenv") data.Update Response.Redirect("readall.asp") else response.write "Spilleren findes allerede" end if %>
Altså at du laver et kald i datbasen hvor du chekker for om han allerede findes i databasen.. Gør han ikke det, så indsættes data, ellers skrives at spilleren allerede findes..!
<% dim data, rs, sql set rs = server.createobject("adodb.connection") sql = "select * from spiller where spiller = " & request.querystring("spiller") rs.open connect set rs = rs.execute(sql) if rs.eof then Set data=Server.CreateObject ("ADODB.Recordset") data.Open "spiller", database, 2, 2 %>
<% data.AddNew data("spiller")=Request.QueryString("spiller") data("pabryst")=Request.QueryString("pabryst") data("paryg")=Request.QueryString("paryg") data("trbryst")=Request.QueryString("trbryst") data("trryg")=Request.QueryString("trryg") data("trærmeh")=Request.QueryString("trærmeh") data("trærmev")=Request.QueryString("trærmev") data("shbag")=Request.QueryString("shbag") data("shbenh")=Request.QueryString("shbenh") data("shbenv")=Request.QueryString("shbenv") data.Update Response.Redirect("readall.asp") else response.write "Spilleren findes allerede" end if %>
Sådan her skal det se ud :-) Glemte lige at åbne rs..
Error Type: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
hvilken linie.? Hvis det er en af dem jeg har skrevet, så prøv det her:
<% dim data, rs, sql set rs = server.createobject("adodb.connection") sql = "select * from spiller where spiller = " & request.querystring("spiller") DSN="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("../databaser/testdatabase.mdb")
rs.open DSN set rs = rs.execute(sql) if rs.eof then Set data=Server.CreateObject ("ADODB.Recordset") data.Open "spiller", database, 2, 2 %>
<% data.AddNew data("spiller")=Request.QueryString("spiller") data("pabryst")=Request.QueryString("pabryst") data("paryg")=Request.QueryString("paryg") data("trbryst")=Request.QueryString("trbryst") data("trryg")=Request.QueryString("trryg") data("trærmeh")=Request.QueryString("trærmeh") data("trærmev")=Request.QueryString("trærmev") data("shbag")=Request.QueryString("shbag") data("shbenh")=Request.QueryString("shbenh") data("shbenv")=Request.QueryString("shbenv") data.Update Response.Redirect("readall.asp") else response.write "Spilleren findes allerede" end if %>
Den betyder at den connection man prøver at udføre ikke findes.. Altså kan det være fordi din database ikke ligger på den placering som du har angivet..!
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.