A voir également:
- Requête SQL en Visual Basic
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Microsoft visual c++ runtime - Guide
- Visual petanque - Télécharger - Sport
- Visual paradigm - Télécharger - Gestion de données
2 réponses
mpb_fp
Messages postés
15
Date d'inscription
jeudi 8 mars 2001
Statut
Membre
Dernière intervention
30 octobre 2003
1
9 avril 2003 à 00:13
9 avril 2003 à 00:13
Rem: Tu ne peux utiliser un contrôle. Ma réponse suppose que tu peux utiliser l'objet ADODB. Dans le cas contraire, ce qui suit est obsolète.
1)Ajoute une référence à ton projet :
projet -> reference -> microsoft ActiveX Data Object
2)
' Declare
Dim oCnx As ADODB.Connection
Dim oCnxErr As ADODB.Error
Dim oRs As ADODB.RecordSet
Dim sSql As String
' Instantiate
Set oCnx = New ADODB.Connection
Set oRs = New ADODB.RecordSet
' Initialize
sSql = txtQuery ' crée un form + une textbox nommée txtQuery
' tu t'en servira pour y écrire ton string sql
' Connection
oCnx.Open tonConnectionString
If oCnx Is Nothing Then GoTo hEnd
' Query
oRs.Open sSql, oCnx
3)Crée un listbox que tu remplira avec le contenu du oRs
4)Crée un btn 'cmdGo' dont la propriété .caption=GO
Crée ici le code qui rempli ta listbox
oRs.MoveFirst
Do until oRs.EOF
...
oRs.MoveNext
Loop
Quand ta listbox est remplie, tu améliores :
-tu peux afficher dans un datagrid
-dans ta textbox, tu remplaces ta query par un num
-etc...
PS Essaye de dégrossir le travail par toi même et puis pose des questions plus ciblées et pertinantes; tu aurras plus de change d'avoir une réponse rapidement. En effet, le forum ccm répond déjà à bon nombre de tes questions. Sert toi en, merci.
Réponse souhaitée!
Pas d'excitation prolongée sans avis médical
1)Ajoute une référence à ton projet :
projet -> reference -> microsoft ActiveX Data Object
2)
' Declare
Dim oCnx As ADODB.Connection
Dim oCnxErr As ADODB.Error
Dim oRs As ADODB.RecordSet
Dim sSql As String
' Instantiate
Set oCnx = New ADODB.Connection
Set oRs = New ADODB.RecordSet
' Initialize
sSql = txtQuery ' crée un form + une textbox nommée txtQuery
' tu t'en servira pour y écrire ton string sql
' Connection
oCnx.Open tonConnectionString
If oCnx Is Nothing Then GoTo hEnd
' Query
oRs.Open sSql, oCnx
3)Crée un listbox que tu remplira avec le contenu du oRs
4)Crée un btn 'cmdGo' dont la propriété .caption=GO
Crée ici le code qui rempli ta listbox
oRs.MoveFirst
Do until oRs.EOF
...
oRs.MoveNext
Loop
Quand ta listbox est remplie, tu améliores :
-tu peux afficher dans un datagrid
-dans ta textbox, tu remplaces ta query par un num
-etc...
PS Essaye de dégrossir le travail par toi même et puis pose des questions plus ciblées et pertinantes; tu aurras plus de change d'avoir une réponse rapidement. En effet, le forum ccm répond déjà à bon nombre de tes questions. Sert toi en, merci.
Réponse souhaitée!
Pas d'excitation prolongée sans avis médical
