Bonjour à tous,

j'ai un petit souci, j'ai codé en VBA sous excel une application qui va récupérer des données dans une base de données Access puis je traite mes données et je les retourne dans la base, sous excel mon projet fonctionne super bien.
Du coup j'ai voulu migrer de VBA vers VB6 et là j'ai un problème, donc en VBA je procédais de la manière suivante pour requêter  :
'----------------------------------------------------
Dim bds As DAO.Database
Dim rst As DAO.Recordset

Set bds = OpenDatabase("U:\COMMUN\MOAL Panorama\PAPENEL\OATTEC10\TEC10.mdb",  
                       False,False)

Req0$ = "Select * From VerifInstrument Where INSTRUMENTID = '" & p_IdDeal & "'"

Set rst = bds.OpenRecordset(Req0$)
'----------------------------------------------------
Jusque là c'est classique, après je traite les données que je récupère, enfin bon ca fonctionne bien sous excel.

Qd je migre le code sous VB6 j'ai une erreur qd la procédure arrive sur l'instruction :

Dim bds As DAO.Database

L'erreur est du type :
"Erreur de compilation : Type défini par l'utilisateur non defini"

J'imagine qu'il y a des compléments ou une librairie à importer en vba pour supporter le code propre à access(comme sous excel d'ailleurs), enfin je sais pas, donc si qlqu'un peut m'aider ce serait vraiment cool...

Merci d'avance
Eupeup

bonjour

peut-être faut-il que tu réenregistres ta base mdb dans un format compréhensible par VB ? je crois que VB6 lit jusqu'à access2002 mais je n'en suis pas plus sûr que ça en fait...

bon courage

Allez voir mon site !
http://www.amis-marolles.org
le site d'une association s'occupant de patrimoine et de traditions

Merci à tous, en fait j'ai trouvé mais j'ai procédé autrement

Si ca interesse qlqu'un, vla le code que j'ai :

Dim Cndata As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Sql As String
Dim requete As ADODB.Command

'Instancie la connexion
Set Cndata = New ADODB.Connection
Cndata.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data   
                           Source=U:\COMMUN\PAPENEL\TEC10\TEST_ACCESS\TEC10.mdb;"
                           & "Mode=Share Deny Write;" & "Persist Security
                           Info=False"

Cndata.Open
   
'on instancie le recordset
Set rst = New ADODB.Recordset
   
'on crée l'objet command
'on l'instancie
Set requete = New ADODB.Command
'1ERE METHODE   
requete.CommandType = adCmdTable
requete.CommandText = "[VolatPast]"
'2EME METHODE  
Sql = "Select * From VerifInstrument Where INSTRUMENTID = '" & p_IdDeal & "'"

'Ouverture du recordset
rst.Open Sql, Cndata, adOpenDynamic, adLockBatchOptimistic

Dim test As String
'Récupération d'un attribut du premier n-upplet
test = rst.Fields!Product





Et ca marche nikel!!!!

Bye