25. januar 2004 - 00:35Der er
32 kommentarer og 1 løsning
SQL - Update eller Insert
Hvis Record findes læg 1 til Count ellers tilføj ny record
kan ikke finde ud af det !! hjælp mig med at rette følgende:
Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\Seach.mdb") Set RS = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM KeyWords WHERE KeyWords = '" & Request.Form("SeachFor") & "'" RS.Open SQL, Conn, 3, 3
If RS.EOF then strSQL = "Insert into personer (KeyWords) " & "values( '" & Request.Form("SearchFor") & "')" 'RS.Execute(strSQL) else RS.Update RS("Count") = RS("Count") + 1 RS.Update End if
If RS.EOF then strSQL = "Insert into personer (KeyWords) " & "values( '" & Request.Form("SearchFor") & "')" 'RS.Execute(strSQL) else RS.Update RS("Count") = RS("Count") + 1 RS.Update End if
Skal rette til dette:
If RS.EOF then strSQL = "Insert into personer (KeyWords) " & "values('" & Request.Form("SearchFor") & "')" Conn.Execute(strSQL) else RS("Count") = RS("Count") + 1 RS.Update End if
Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x240 Thread 0x934 DBC 0x9a625ac Jet'.
/Upload/Search.asp, line 53
Linie 53: Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\..\db\Seach.mdb")
nogle ting burde fungere som XHTML... (selv-rettende)
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.
