[ASP] ODBC Database probleem - Statuswaarden?

[Verwijderd]

Ik heb een database verbinding gemaakt met een access database, alleen soms als er spaties in een invoer worden gebruikt, en die worden opgeslagen in de database, geeft hij deze fout:


Soort fout:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Bij een OLE DB-bewerking die uit meerdere stappen bestaat, zijn fouten opgetreden. Controleer alle OLE DB-statuswaarden als deze beschikbaar zijn. Er is niets gewijzigd.
/log-in/test.asp, line 40


Ik hoop dat iemand weet wat dit betekend... dit is de code:

code:

<%
strAccessDB = "users"

strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=letmein; DBQ=" & Server.MapPath(strAccessDB)
     
     Set cnn = Server.CreateObject("ADODB.Connection")
     cnn.Open strCon
     
     Set rsCheckUser= Server.CreateObject("ADODB.Command")
    Set rsCheckUser.ActiveConnection = cnn

    Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblUsers.* FROM tblUsers WHERE tblUsers.UserID ='" & strUserName & "'"

rsCheckuser.CursorType = 2
rsCheckUser.LockType = 3
rsCheckUser.Open strSQL, strCon
rsCheckUser.AddNew

dim strid as string
dim strpwd
dim strweb
dim strhtml
dim strhint

strID = Request.form ("id")
strPWD = Request.Form ("pwd")
strWEB = Request.Form ("web")
strHTML = Request.Form ("html")
strhint = Request.Form ("pwdhint")

rsCheckUser.Fields("UserID") = strID
rsCheckUser.Fields("Password2") = strPWD
rsCheckUser.Fields("webadres") = strWEB
rsCheckUser.Fields("HTML") = strHTML
rsCheckUser.Fields("pwdhint") = strhint

rsCheckUser.Update

rsCheckUser.Requery

Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing

%>

[robjanssen]

En als je je code eens aanpast naar dit:

code:

<%
strAccessDB = "users.mdb"
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(strAccessDB) + ";Persist Security Info=False"
     
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strCon
     
strSQL = "INSERT INTO tblUsers (UserID, Password2, webadres, HTML, pwdhint) " _
     & "VALUES (" + CStr(Request.form("id")) + ", " _
     & "'" + CStr(Request.Form("pwd") + "', " _
     & "'" + CStr(Request.Form("web") + "', " _
     & "'" + CStr(Request.Form("html") + "', " _
     & "'" + CStr(Request.Form("pwdhint") + "')"
cnn.Execute strSQL

cnn.Close
Set cnn = Nothing
%>

[Mart!]

Op maandag 24 juni 2002 20:05 schreef robjanssen een stuk code

Ik zou er wel even een update-statement van maken in plaats van een insert-statement...

RobJansen, je hebt helemaal gelijk! Moet eens wat beter lezen voor ik blaat

[robjanssen]

Hij doet toch een AddNew???