ADODB Reference

Just after installing MS Visual Basic 6the following line generated by the VBApplication Wizard gives a "User defined type not defined" compile error.

>>>Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)<<<<

So I must need to manually set a reference to some library to use ADODB.

Could somone help.

-Neil
neilhomanAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
MadmarlinConnect With a Mentor Commented:
Just try setting  a variable to reference a recordset.
eg
Dim Rs As ADODB.Recordset

After 'ADODB.' if it doesnt bring up a recordset in the list of objects then you know the reference to the
ActiveX Data Object 2.1 library is at fault.

Alternativly dont use the wizard and manual code heres one of my simple examples.

Dim Rs As ADODB.Recordset
Dim Cn As ADODB.Connection

Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
     
Cn.Open "Provider=SQLOLEDB;Data Source=" & g_strServer & ";Initial Catalog=" & g_strDB & ";User Id=" & g_Uid & ";Password=" & g_UPwd & "; "
'Return all active sites
Rs.Open "Select * From tblSites where active = 1", Cn

...Do Stuff with the returned data....

Set Rs = nothing
Set CN  nothing


Obviously your connection string will be different so

cn.open "YOUR CONNECTION PROPERTIES HERE"

Good luck.
Madmarlin
0
 
neilhomanAuthor Commented:
Does anyone know the reference that I should select
?
0
 
Ryan ChongCommented:
Hi neilhoman,

Try to add M$ ActiveX Data Object 2.1 (or 2.5) Library from Reference to see if problem remains.
0
Never miss a deadline with monday.com

The revolutionary project management tool is here!   Plan visually with a single glance and make sure your projects get done.

 
neilhomanAuthor Commented:
Should I try using a different approach other thatn using the wizards.
I am connecting to an ODBC data source .... which connects to mysql.

0
 
neilhomanAuthor Commented:
thx ryancys will try that now
0
 
neilhomanAuthor Commented:
it says "procedure declaration does not match description of the event or procedure having the same name
0
 
neilhomanAuthor Commented:
This is all wizard generated code.
0
 
dboeroCommented:
I had a problem like yours. When I use the app wizard.

Add a reference  ActiveX Data Object 2.1 (or 2.5)  and other to Microsoft ActiveX Data Objects Recordset 1.5 library.





0
 
neilhomanAuthor Commented:
I have already tried that
.... thanx anyway ...

im gonna try just adding every ADO reference and see what happens
0
 
dboeroCommented:
Have you installed a Service Packs?
0
 
Ryan ChongCommented:
If it's not working, try download the MDAC from M$ website:

http://www.microsoft.com/Data/download.htm
0
 
TimCotteeCommented:
Change it to this:

Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error,
adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset20)

Manually in your code, also you will need to change any similar event raised by this control. The reason is that you have the older version of the control that is only compatible with ADO 2.0, as you have ADO 2.1 or higher installed (probably 2.6 by now if you have followed other advice here) there was a change in the recordset object's interface from 2.0 to 2.1. Whilst this is something that should never have happened without changing the name of the object it did and we have to work around it. The only other workaround is to install VB SP4 or higher so that the newer version of this control is available that handles this automatically.

The change in the interface for this object is not something that will affect operation in any way that you will notice so don't worry about it.
0
 
Éric MoreauSenior .Net ConsultantCommented:
0
 
dboeroCommented:
with a service pack 3 and references to ActiveX Data Object 2.1 (or 2.5)   and  ActiveX Data Objects Recordset 1.5 library. works fine

0
 
neilhomanAuthor Commented:
Recreated the app using adodb code...
And this got rid of my problems.
Accepting this answer to award points for the useful code (I am a beginner) and it is a good starting point.

Thanx to all for the useful comments though...
Keep up the good work guys,
-Neil
0
 
neilhomanAuthor Commented:
What's going on ...

There is no subform tool in my toolbox.

I want to embed an existing wizard generated form into a tab control on another page but I cant find my subform tool... how do I add it to my toolbox.
0
All Courses

From novice to tech pro — start learning today.