lcscne
12-11-2003, 02:10 PM
OK when the following code is executed with strDbType = "Access_Jet", the 'objAlumConn.Execute qrystring' generates 500 Server Error. However when strDbType = "Access_ODBC", the 'objAlumConn.Execute qrystring' runs fine. Is there a known problem running the execute method with the OLE Jet driver?
Dim objAlumConn
Dim strDbType
Dim strConn
'strDbType = "Access_Jet"
strDbType = "Access_ODBC"
Select Case strDbType
Case "Access_Jet"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\DataStores\Alumni\Alumni.mdb;" & _
"User Id=admin;" & _
"Password=;"
Case "Access_ODBC"
strConn ="PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=C:\DataStores\Alumni\Alumni.mdb;" & _
"UID=admin;" & _
"PWD=;"
End Select
Set objAlumConn = Server.CreateObject("ADODB.Connection")
objAlumConn.Open strConn
qrystring = "INSERT INTO cminfo (fname, mname, lname, password, email, yog, memo, accepted) VALUES ('Darin', '', 'Marsh', 'password', 'dog@yahoo.com', 1985, 'no', false);"
objAlumConn.Execute qrystring
Dim objAlumConn
Dim strDbType
Dim strConn
'strDbType = "Access_Jet"
strDbType = "Access_ODBC"
Select Case strDbType
Case "Access_Jet"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\DataStores\Alumni\Alumni.mdb;" & _
"User Id=admin;" & _
"Password=;"
Case "Access_ODBC"
strConn ="PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=C:\DataStores\Alumni\Alumni.mdb;" & _
"UID=admin;" & _
"PWD=;"
End Select
Set objAlumConn = Server.CreateObject("ADODB.Connection")
objAlumConn.Open strConn
qrystring = "INSERT INTO cminfo (fname, mname, lname, password, email, yog, memo, accepted) VALUES ('Darin', '', 'Marsh', 'password', 'dog@yahoo.com', 1985, 'no', false);"
objAlumConn.Execute qrystring