07. maj 2002 - 22:39
Der er
3 kommentarer og 1 løsning
Edit database
Hej Jeg bruger denne kode til at ændre i min database: <% Dim rs Dim ID, tekst 'Creating the Recordset Object Set rs = Server.CreateObject("ADODB.RecordSet") 'Creating a DSN-Less connection to your Database strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb") rs.Open "indhold", strDSN, adOpenDynamic, adLockReadOnly, adCmdTable tekst = rs("tekst") rs.close set rs = Nothing %> Men jeg vil gerne kunne ændre i flere rækker, så jeg tænkte på edit.asp?id=4 f.eks. Så skal den hente teksten fra række med id=4 Men hvordan får jeg det til at passe med min eksisterende kode? Mvh. Sigurd
Annonceindlæg tema
Cloud & AI
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.
here you go: <% Dim rs Dim ID, tekst 'Creating the Recordset Object Set rs = Server.CreateObject("ADODB.RecordSet") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") strSQL = "UPDATE din_tabel SET kolonne1 = '" & "tekstblabla" & "' WHERE id = '" & Request.QueryString("ID") & "'" objConn.Execute (strSQL) strSQl = "SELECT * FROM din_tabel" Set rs = objConn.Execute(strSQL) tekst = rs("tekst") rs.close set rs = Nothing %> //>Rune
ups! <% Dim rs Dim ID, tekst 'Creating the Recordset Object Set rs = Server.CreateObject("ADODB.RecordSet") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") strSQL = "UPDATE din_tabel SET kolonne1 = '" & "tekstblabla" & "' WHERE id = " & Request.QueryString("ID") objConn.Execute (strSQL) strSQl = "SELECT * FROM din_tabel" Set rs = objConn.Execute(strSQL) tekst = rs("tekst") rs.close set rs = Nothing %> //>Rune
Kurser inden for grundlæggende programmering