Discussion :

[bailamos]

salut;
j'ai ce probleme avec ce code c'est que j'ai cette erreur
"runtime error 3024 couldn't find file 't.mdb'"
et je ne sais pas pourquoi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Data1.DatabaseName = "t.mdb"
Data1.RecordSource = "SELECT DISTINCT a FROM tous WHERE a LIKE '" & a.Text & "*' ORDER BY a asc"
Data1.Refresh
Combo1.Clear
Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields(0).Value
Data1.Recordset.MoveNext
Loop

[SfJ5Rpw8]

salut, et tu est sur de l'emplacement de ta base de donnée..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MSgbox "Ma base de donnee : " & dir( "t.mdb")
Data1.DatabaseName = "t.mdb"

[bailamos]

salut, et tu est sur de l'emplacement de ta base de donnée..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
MSgbox "Ma base de donnee : " & dir( "t.mdb")
Data1.DatabaseName = "t.mdb"

oui l'emplacement est exacte

[Delbeke]

Et l'emplacement exact depuis la racine du disque est ?
Question subsidiare, est-ce bien le même que celui de ton éxécurtable ?

Géneralement on utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Data1.DatabaseName = App.Path & "\t.mdb""

App.Path donnant le chemin de l'exécutable, on est sur, quelque soit son emplacement, de retrouver la base de données. sutout si on a joué avec ChDir, ou modifié le raccourci en donnant un autre nom de répertoire d'exécution.

[SfJ5Rpw8]

oui l'emplacement est exacte

as tu fait l'essai avec le code dir .... ?