zouzou333
Messages postés11Date d'inscriptionjeudi 7 décembre 2000StatutMembreDernière intervention 5 novembre 2008
-
15 oct. 2008 à 15:59
zouzou333
Messages postés11Date d'inscriptionjeudi 7 décembre 2000StatutMembreDernière intervention 5 novembre 2008
-
23 oct. 2008 à 10:11
Salut tous le monde.
Voila j'ai de nouveau un problème...
Je dois lire le contenu d'une table et les valeur contenu dans un champ...mais le format de la base est en .accdb et non .mdb.
Je ne peux pas non plus revenir dans un format antérieur car la base utilise des fonctions qui ne fonctionne que sur ce format.
Comment puis-je lire le contenu d'une table et d'un champ dans une base au format accdb ?
Merci tous le monde
zouzou333
zouzou333
Messages postés11Date d'inscriptionjeudi 7 décembre 2000StatutMembreDernière intervention 5 novembre 2008 23 oct. 2008 à 10:11
Je m'auto répond encore... :)
Option Explicit
Dim objConnection
Dim objRecordset
Dim objCommand
Dim strQuery
Dim test
Dim objField
Set objConnection = CreateObject("ADODB.Connection")
set objRecordSet = CreateObject("ADODB.Recordset")
Set ObjCommand = CreateObject("ADODB.Command")
Set objField = objRecordset.Fields
objConnection.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\test\test.accdb;Persist Security Info=False;"
strQuery = "SELECT NomMateriel FROM MAT_T_TypeMateriel " & _
"INNER JOIN MAT_T_Materiel ON MAT_T_TypeMateriel.NumTypeMateriel = MAT_T_Materiel.NumTypeMateriel "& _
"WHERE ((MAT_T_TypeMateriel.LibelleTypeMateriel) LIKE 'serveur%' )" ,objConnection
zouzou333
Messages postés11Date d'inscriptionjeudi 7 décembre 2000StatutMembreDernière intervention 5 novembre 2008 15 oct. 2008 à 16:33
Re, je m'auto répond :
Il faut utiliser Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\test\test.accdb;Persist Security Info=False;"
Voila.
Je vous tiens au courant si j'ai d'autres problèmes.
Merci
Bye
zouzou333
zouzou333
Messages postés11Date d'inscriptionjeudi 7 décembre 2000StatutMembreDernière intervention 5 novembre 2008 16 oct. 2008 à 16:05
Bonjours tous le monde.
Je comprend pas grand chose a l'objet ado :s mais j'ai reussi a faire un petit truc.
Ma requete sql ne fonctionne pas sous vbs mais sous access oui. J'ai le message d'erreur suivant "fin d'instruction attendu" :s
Mon deuxieme problème c'est que je ne sais pas comment faire une boucle pour afficher LES valeurs que contiennent le champ nom materiel.
Ici j'ai que la premiere valeur du champ qui s'affiche.
Voici mon code :
Option Explicit
Dim objConnection
Dim objRecordset
Dim objCommand
Dim strQuery
Dim test
Dim objField
Set objConnection = CreateObject("ADODB.Connection")
set objRecordSet = CreateObject("ADODB.Recordset")
Set ObjCommand = CreateObject("ADODB.Command")
Set objField = objRecordset.Fields
objConnection.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source=C:\test\test.accdb;Persist Security Info=False;" strQuery "SELECT MAT_T_Materiel.NomMateriel FROM MAT_T_TypeMateriel INNER JOIN MAT_T_Materiel ON MAT_T_TypeMateriel.[NumTypeMateriel] MAT_T_Materiel.[NumTypeMateriel] WHERE (((MAT_T_TypeMateriel.LibelleTypeMateriel) Like "serveur*"));" '<-- Le message d'erreur vient d'ici