dodo1309
Messages postés218Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention30 mai 2011
-
27 déc. 2006 à 19:15
dodo1309
Messages postés218Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention30 mai 2011
-
27 déc. 2006 à 19:30
Bonjour
voila j'ai le contenu d'un BD access a metre dans une combobox et une listbox ( et j'ai trouver cette source sur le forum)
Quand j'execute mon code il me met format de base de donnée inconu. Alors que j'ai VB6 pro et le SP6 installer.
Set db = OpenDatabase("c:\dodo\time\timezone1.mdb")
Rq = "SELECT timezone FROM Feuil2"
Set Acces = db.OpenRecordset(Rq)
If Acces.RecordCount <> 0 Then
Do Until Acces.EOF
Combo1.AddItem Acces("Timezone")
Acces.MoveNext
Loop
End If
Rq = "SELECT index FROM Feuil2"
Set Acces = db.OpenRecordset(Rq)
If Acces.RecordCount <> 0 Then
Do Until Acces.EOF
List1.AddItem Acces("index")
Acces.MoveNext
Loop
End If
dodo1309
Messages postés218Date d'inscriptionmercredi 17 mai 2006StatutMembreDernière intervention30 mai 2011 27 déc. 2006 à 19:17
oops dsl j'étais avec le navigateur opera et dsl pour la faute d'orthographe :s
voici le code :
Set db = OpenDatabase("c:\dodo\time\timezone1.mdb")
Rq = "SELECT timezone FROM Feuil2"
Set Acces = db.OpenRecordset(Rq)
If Acces.RecordCount <> 0 Then
Do Until Acces.EOF
Combo1.AddItem Acces("Timezone")
Acces.MoveNext
Loop
End If
Rq = "SELECT index FROM Feuil2"
Set Acces = db.OpenRecordset(Rq)
If Acces.RecordCount <> 0 Then
Do Until Acces.EOF
List1.AddItem Acces("index")
Acces.MoveNext
Loop
End If
cs_DARKSIDIOUS
Messages postés15814Date d'inscriptionjeudi 8 août 2002StatutMembreDernière intervention 4 mars 2013130 27 déc. 2006 à 19:18
Tout dépend le format de ta base : tu utilise DAO, qui date vraiment ! Utilise ADO plutôt, tu aura moins de problème de compatibilité (après la version 97 d'access, DAO devient assez incompatible !)