Connecter à la base de données au lieu d'un .txt

Sinistrus Messages postés 1017 Date d'inscription mercredi 12 décembre 2007 Statut Membre Dernière intervention 6 juin 2023 - 15 nov. 2014 à 15:07
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 - 15 nov. 2014 à 16:56

Bonjour à tous !

Je sollicite votre aide afin de remplacer cette ligne de code :

Open App.Path & "\Nombres.txt" For Input As #1

par une connexion à ma table Tb_CPanel et au champ Code.

Data.DatabaseName = App.Path & "\DataBase.mdb"
Data.RecordSource = "Tb_CPanel"
Data.Refresh

Dim I As Long
Dim Item As String

Open App.Path & "\Code.txt" For Input As #1
    While Not EOF(1)
        Line Input #1, Item
        CTR_AutoComplete1.List.Add Item
    Wend
Close #1

CTR_AutoComplete1.DefItemVisible = 10
CTR_AutoComplete1.StarHook TXT_Categories.hwnd

Merci de votre aide.

Cordialement

A voir également:

Connecter à la base de données au lieu d'un .txt
Base de données javascript - Conseils pratiques -Javascript
Récupérer données json (javascript) - Conseils pratiques -Javascript
Connecter une application android à une base de données - Conseils pratiques -Java
Nomenclature base de données - Conseils pratiques -PHP
Connexion base de données - Conseils pratiques -PHP

1 réponse

Réponse 1 / 1

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
15 nov. 2014 à 16:56

Apparemment, c'est du VB6, merci de poster dans la bonne catégorie la prochaine fois.

As-tu cherché parmi les codes sources disponible sur le site ?

Discussions similaires

Problème connection base de données SQL EBP

Prob de Restauration base de données

conception base de données e-commerce

restaurer une base à partir d'un fichier bak

Erreur de conversion du type de données varchar en numeric.

Votre réponse

Discussions similaires