Discuss Run-time error '3001' in the Visual Basic Programming forum on Dev Shed. Run-time error '3001' Visual Basic Programming forum discussing VB specific programming information. Quickly prototype and build applications with this robust and simple language.
Receive the tools necessary to be the rock star of your field. Our 12-month program teaches you the evolving world of multi-channel marketing as well as the complex issues and opportunities found in the industry.
ASP Free and Iron Speed Designer are giving away $5,500+ in FREE licenses. Iron Speed's RAD CASE toolset can save up to 80% of your coding time. One free license per week, one perpetual license per month! Download and Activate to enter!
Web development can be a daunting task, even for specialists. There is a lot of information to absorb and a lot of technologies to learn in order to manage a superior website. When trying to learn the ropes, developers need a reliable source to introduce new ideas that can be easily implemented. When working on large projects, even web veterans may run into a technology or an aspect of a technology that they are unfamiliar with.
Posts: 31
Time spent in forums: 10 h 33 m 57 sec
Reputation Power: 7
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
...
...
Posts: 31
Time spent in forums: 10 h 33 m 57 sec
Reputation Power: 7
'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
Posts: 14,781
Time spent in forums: 6 Months 1 Week 4 Days 18 h 59 m 6 sec
Reputation Power: 8132
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
Posts: 14,781
Time spent in forums: 6 Months 1 Week 4 Days 18 h 59 m 6 sec
Reputation Power: 8132
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.
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
