Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Besoin d'aide : VB6 & Requete Access [ Base de données / SQL ] (eupeup)

mercredi 7 mars 2007 à 11:37:43 | Besoin d'aide : VB6 & Requete Access

eupeup

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





mercredi 7 mars 2007 à 12:21:51 | Re : Besoin d'aide : VB6 & Requete Access

ZedMaTrix

Salut.

Tu doit ajouter dans les références de ton projet 'Microsoft DAO 2.5/3.51 Compatibility Library'.

Dans VB6, ouvre ton projet, puis dans le menu Projet -> Références
Dans la fenêtre, recherche Microsoft DAO 2.5/3.51 Compatibility Library et coche le.

ZedMaTriX

mercredi 7 mars 2007 à 14:56:47 | Re : Besoin d'aide : VB6 & Requete Access

eupeup

Merci ZedMatrix, maintenant je n'ai plus ce type d'erreur, par contre VB6 me balance un nouveau message d'erreur lors de l'ouverture de la base :

C'est au niveau de l'instruction :

Set bds = OpenDatabase("U:\COMMUN\TEC10.mdb")

Et le message d'erreur est le suivant :

Erreur d'exécution 3343:
Format de base de données ('U:\COMMUN\TEC10.mdb') non reconnu


Là je comprends vraiment pas, parce qu'en VBA sous excel c'est exactement la même instruction, et je n'ai aucun problème, ca marche trop bien...
Si qlqu'un a une piste...!?!

Merci d'avance

Eupeup

mercredi 7 mars 2007 à 15:07:35 | Re : Besoin d'aide : VB6 & Requete Access

domsig

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


mercredi 7 mars 2007 à 19:11:43 | Re : Besoin d'aide : VB6 & Requete Access

ZedMaTrix

Tout à fait domsig !
Il faut faire attention au format de la base Access. Moi sous windows 2000 avec Access 2000 Vb fonctionne, aprés je croix pas que ca fonctionne.

Convertis ( aprés avoir fais une sauvegarde ) ta base en access 2000

ZedMaTriX

mercredi 7 mars 2007 à 19:28:20 | Re : Besoin d'aide : VB6 & Requete Access

HUGOFLASH

Bonjour,
pour que le format de ta base soit reconnu il faut que tu face référence à Microsoft DAO 6.0 Compatibility Library

les versions antérieur ne supporte pas les bases au format ACCESS 2000 et supérieur.

jeudi 8 mars 2007 à 11:10:22 | Re : Besoin d'aide : VB6 & Requete Access

eupeup

Réponse acceptée !

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




Cette discussion est classé dans : vba, access, données, vb6, excel


Répondre à ce message

Sujets en rapport avec ce message

excel access par vba [ par chaudier37 ] <td id="HB_Focus_Element" valign="top" width="100%" b transfert de données de VBA vers ACCESS [ par pearl ] j'ai créé une application excel et je voudrais récupérer les données résultant du traitement pour les inserer automatiquement dans une Table Access.En access et VBA : macro vers excel [ par tari ] bjr !j'ai un pb. j'ai créé une base de données sous access ainsi qu'un interface. Je souhaite transferé des données vers excel grace a une macro. jusk inserer des données dans access avec excel en vba? [ par allowen ] bonjour,j'ai créé un tableau excel et je désire reprendre ces valeurs grâce à une macro vba afin de les mettre dans une table access, donc je dois uti access & excel [ par tonio140 ] bonjour,voici mon Pb :je souhaite extraire des données provenant d'access dans excel.j'ai fait ça :Private Sub CommandButton1_Click()      Workbooks.O excel vers access ultra debutant [ par chaudier37 ] Bonjour,je suis ultra débutante en programmation.j'ai un fichier excel et je veux entrer les données que j'enregistre dans excel par vba dans la base VBA Excel -Access [ par foxblue ] Bonjour,Pouvez-vous m'aider à écrire une procédure sous excel-VBA qui appelle un formulaire Access qui exécute un treeview ?<img src="imgs2/smile_appr Importation de données ACCESS avec EXCEL [ par durden35 ] Bonsoir à tous,Voici ma question :Je voudrais créer une boîte de dialogue sous EXCEL qui me permette avec du code vb excel de pouvoir importer des don VBA controle Excel vi Access [ par darkspoilt ] Je controle Excel via Acces et je me demandais pour un graphique s'il était possible de mettre la résultat d'une additionJ'aimerais un  truc du grence VBA Access Fermeture d'une application Excel [ par darkspoilt ] Bonjour, Je voudrais savoir comment on ferme une application excel j'ai essayé ce code mais cela ne fonctionne pasMerci d'avancedim xls as Excel.App


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version

Photothèque Nouveau !



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.