Utilisation d'un objet data avec sql server 7, en vb6


Télécharger le projet
Commenter

Description

Après avoir créé un projet et une feuille, il faut ajouter le composant "Microsoft Data Bound List Controls 6.0" dans le projet. Pour ceux qui ne savent pas comment faire, il faut aller dans le menu "Projet", sous-menu "Composants" (ou directement accessible avec les touches Ctrl et T).
Ensuite, il faut créer un objet Data (Data1 dans le projet), puis un objet DBCombo ou DBList (DBList1 dans le projet).
Enfin, il faut mettre Data1 (ou le nom de votre objet Data) comme valeur des propriétés DataSource et RowSource de l'objet DBList1.

Dans l'ouverture du formulaire, voici le code pour se connecter à une base de données SQL Server :

Source / Exemple : 


Private Sub Form_Load()
    
Rem Connexion à la base de données Via ODBC
Data1.Connect = "ODBC;driver={SQL Server};" & _
    "Server=NOM DE VOTRE SERVEUR SQL;" & _
    "Database=NOM DE VOTRE BASE DE DONNEES;" & _
    "UID=sa;PWD=;"

Rem Déclaration de la requête de l'objet Data
Data1.RecordSource = "SELECT * FROM TABLE ; "
Data1.Refresh

Rem Initialisation des données visible et invisible de DBList1
DBList1.ListField = "Champ visible"
DBList1.BoundColumn = "Champ index - invisible"

End Sub

Conclusion :


On pourrait ajouter la procédure de changement de lignes de la DBList :

Private Sub DBList1_Click()

MsgBox (DBList1.BoundText)

End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vow)