---

Hejsa!

Jeg sidder og laver en formular hvor input smides i en access 2000
database... Formularen sender data videre til "send.asp" der indeholder:

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../fpdb/new_page_2.mdb")

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Results"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("firstvisit") = Request.form("firstvisit")
rs("graphics") = Request.form("graphics")
rs("frequency") = Request.form("frequency")
rs("ourproductsbuy") = Request.form("ourproductsbuy")
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
%>

Problemet er at jeg får en fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]Error in row
send.asp, line 40
(der svarer til linien med rs.Update...) Hvad kan der være galt?

vh
Jake

---

Hej igen,

kan det være fordi jeg vil tilføje FOR mange data til databasen på en gang
at fejlen opstår?
"schutz.dk" <info@schutz.dk> wrote in message
news:0psI7.22$ia7.53277904@news.orangenet.dk...
> Hejsa!
>
> Jeg sidder og laver en formular hvor input smides i en access 2000
> database... Formularen sender data videre til "send.asp" der indeholder:
>
> <%
> Const adOpenKeyset = 1
> Const adLockOptimistic = 3
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ="
&
> Server.MapPath("../fpdb/new_page_2.mdb")
>
> Set rs = Server.CreateObject("ADODB.RecordSet")
> strSQL = "Select * From Results"
> rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
>
> rs.AddNew
> rs("firstvisit") = Request.form("firstvisit")
> rs("graphics") = Request.form("graphics")
> rs("frequency") = Request.form("frequency")
> rs("ourproductsbuy") = Request.form("ourproductsbuy")
> rs.Update
>
> rs.Close
> Set rs = Nothing
>
> Conn.Close
> set Conn = Nothing
> %>
>
> Problemet er at jeg får en fejl:
>
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
> [Microsoft][ODBC Microsoft Access Driver]Error in row
> send.asp, line 40
> (der svarer til linien med rs.Update...) Hvad kan der være galt?
>
> vh
> Jake
>
>

---

"schutz.dk" wrote:
>
> Jeg sidder og laver en formular hvor input smides i en access 2000
> database... Formularen sender data videre til "send.asp" der indeholder:
> [Recordset benyttes til opdatering]
> <%
> Const adOpenKeyset = 1
> Const adLockOptimistic = 3
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.MapPath("../fpdb/new_page_2.mdb")
>
> Set rs = Server.CreateObject("ADODB.RecordSet")
> strSQL = "Select * From Results"
> rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
>
> rs.AddNew
> rs("firstvisit") = Request.form("firstvisit")
> rs("graphics") = Request.form("graphics")
> rs("frequency") = Request.form("frequency")
> rs("ourproductsbuy") = Request.form("ourproductsbuy")
> rs.Update
>
> rs.Close
> Set rs = Nothing
>
> Conn.Close
> set Conn = Nothing
> %>
>
> Problemet er at jeg får en fejl:
>
> Microsoft OLE DB Provider for ODBC Drivers error '80004005'
> [Microsoft][ODBC Microsoft Access Driver]Error in row
> send.asp, line 40
> (der svarer til linien med rs.Update...) Hvad kan der være galt?

Du kunne starte med at lade være med at benytte et recordset til
opdateringen og så skal du nok lige checke en gang til, at de fire
felter i databasen (firstvisit, graphics, frequency og ourproductsbuy)
virkelig *er* tekstfelter:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("../fpdb/new_page_2.mdb")
Conn.Execute "INSERT results " & _
"(firstvisit, graphics, frequency, ourproductsbuy) VALUES (" & _
StrToSql(Request.form("firstvisit")) & "," & _
StrToSql(Request.form("graphics")) & "," & _
StrToSql(Request.form("frequency")) & "," & _
StrToSql(Request.form("ourproductsbuy")) & ")"

Function StrToSql(ByVal s)
If Trim("" & s) = "" Then
StrToSql = "NULL"
Else
StrToSql = "'" & Replace(s, "'", "''") & "'"
End If
End Function

--
Anders