Multiple-step OLD DB operation generated errors
--------------------------------------------------------------------------------
I am getting the following error on some machines:
Error = -2147217887
Multiple-step OLD DB operation generated errors. Check each OLE DB status value, if
available. No work was done.
Error Source = Provider
1) On my Win 2000 development machine, I do not get this error and the routine
operates with no errors.
2) On my Win 2000 laptop that I use to transport the program to my (only) beta test
site, I get the error. If I run the program from the IDE on the laptop and choose
debug from the error message box, the error shows up on different lines of the code at
different times.
3) I always get the error at my Win 95 beta test site. The beta test site has been
running for over 45 days with many updates.
The database is Jet/Access. I use ADO 2.5, VB6.0(SP5) Version 8988 on the development
machine . The routine is an AddNew, assign values to fields, and Update.
Provided the solution that solved that situation.
My connection string is:
Public Function Connect(ByVal sUserName As String, _
ByVal sPassword As String) As Boolean
On Error GoTo ErrorHandler
Dim sPath As String
Dim sDataBaseName As String
Dim sConnectString As String
Dim sODBCDriverName As String
Connect = True
sPath = App.Path
sDataBaseName = "Information.mdb"
sODBCDriverName = "{Microsoft Access Driver (*.mdb)}"
sConnectString = "DRIVER=" & sODBCDriverName & ";" & _
"DBQ=" & sDataBaseName & ";" & _
"DefaultDir=" & sPath & ";" & _
"UID=" & Trim$(sUserName) & _
";PWD=" & Trim$(sPassword) & ";"
Set mAdoConnection = New ADODB.Connection
mAdoConnection.Mode = adModeReadWrite
mAdoConnection.Open sConnectString
Exit Function
ErrorHandler:
Connect = False
Err.Description = "Connect:" & Err.Description
Err.Raise Err.Number, Err.Source, Err.Description
End Function
Any help would be appreciated.
--
___________________________________________________________
Sign-up for Ads Free at Mail.com
http://promo.mail.com/adsfreejump.htm
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To reply to this message, go to:
http://groups.yahoo.com/group/visualbasic6programming/post?act=reply&messageNum=17766
Please do not reply to this message via email. More information here:
http://help.yahoo.com/help/us/groups/messages/messages-23.html
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/visualbasic6programming/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
