|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
|
|
#1
March 9th, 2006, 06:57 PM
|
|||
|
|||
|
Run-time error '3001'
I have an vb6 application with install in single machine and contain same web application version build with vs2003.net
when i register the business component to COM+, error message Run-time error '3001' Arguments are of the wrong type, are out of acceptable range, or conflict with one another. any suggestion here? code 'VPDal5 is the component i have register Public goVpDal As VPDal5.VpDataWrap dta As ADODB.Recordset ... ... Call goVpDal.RsOpenReadWrite(dta, strSQL) 'error occur here ... ... Any help would be appreciate
|
|
#2
March 9th, 2006, 07:39 PM
|
||||
|
||||
|
Is VPDal5.VpDataWrap expecting an ADO recordset and (presumably) string as arguments? I'm not familiar with this component.
__________________
medialint.com "Beware of the man who works hard to learn something, learns it, and finds himself no wiser than before. He is full of murderous resentment of people who are ignorant without having come by their ignorance the hard way." - Vonnegut - Cat's Cradle, 1963
|
|
#3
March 9th, 2006, 08:39 PM
|
|||
|
|||
|
'strSQL = SELECT * FROM ToDoList_Global WHERE AdminCode = 'SM'
'##SUMMARY Opens a read-write ADO Record-set. '##PARAM RecSet An ADODB.Record-set object. '##PARAM Source Standard sql statement. '##PARAM VpRsOptions Combination of different values for record-set Public Function RsOpenReadWrite(ByRef RecSet As adodb.Recordset, ByVal Source As String, _ Optional ByVal VpRsOptions As VpRsOption) As Boolean
|
|
#4
March 9th, 2006, 08:55 PM
|
||||
|
||||
|
Did you instantiate dta before you passed it?
For example, broken and works in this: Code:
Sub AcceptADO(ByRef rs0 As ADODB.Recordset, ByVal strSQL As String)
rs0.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
End Sub
Sub Broken()
Dim rs0 As ADODB.Recordset
AcceptADO rs0, "SELECT * FROM MyTable;"
End Sub
Sub Works()
Dim rs0 As New ADODB.Recordset
AcceptADO rs0, "SELECT * FROM MyTable;"
End Sub
Different errror, but you should get the point
|
|
#5
March 9th, 2006, 10:22 PM
|
|||
|
|||
|
i think not coz when retrive from immediate windows
?dta.Source no output in the windows. before call the rsOpenreadWrite This problem occur only when the dll were register into Component Services->...->......->COM+ Applications->....<Component> -EDITED- When not registered dta value after exec that line of code (no error) ?dta.Source SELECT * FROM ToDoList_Global WHERE AdminCode = 'SM' ORDER BY DueDate Last edited by kingshah : March 10th, 2006 at 12:19 AM. Reason: something
|
|
#6
March 9th, 2006, 10:39 PM
|
||||
|
||||
|
I don't really know then. Maybe someone else will suggest something. Offhand I might guess that your registered component is using one version of ADO where your app is using a different one, maybe ... but this is out of my range of expertise. Sorry.
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Run-time error '3001' |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
