jer1024
-
Total Posts
:
1
- Scores: 0
-
Reward points
:
0
- Joined: 9/11/2009
-
Status: offline
|
Length of field problem.. I think '80040e21
Friday, September 11, 2009 7:19 AM
( permalink)
If I try to add text to a field that is more than about 200 chars or so I get the following Error: Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done. The field is set to 'Memo' so what gives? Public Function DBaddEntry(strFields,strValue,strTable)
Dim qry
Set rsAdd = Server.CreateObject("adodb.recordset")
qry = "SELECT " & strFields & " FROM " & strTable
'Response.write(oConn & "<br />" & qry) ' debug trace output
rsAdd.open qry, oConn, 3, 3
rsAdd.addnew
arrFields = Split(strFields,",")
arrValues = Split(strValue,",")
lenFields = UBound(arrFields)
For i = 0 to lenFields
'response.write(arrFields(i) & "=" & arrValues(i) & "<br />") ' debug trace output
rsAdd(arrFields(i)) = arrValues(i)
Next
rsAdd.update
Set rsAdd = oConn.Execute( "SELECT @@IDENTITY" )
newID = rsAdd(0)
rsAdd.close ' Close the object and clean up
Set rsAdd = Nothing
DBaddEntry = True
End Function
|
|
|
|