Requête SQL en Visual Basic
greg
-
khaled -
khaled -
Comment effectuer une requête sql en VB sans contrôle adodc,
comment la programmer,comment l'afficher et dans quoi l'afficher ? Cette requête sera effectuée par rapport à un champ texte que l'utilisateur aura rempli.
ex: une requête sql doit être effectuées quand l'utilisateur click sur 'go' .La requête sera effectuée par rapport à un numéro de commande que l'utilisateur a entrer dans le champ.
Si vous pouviez m'aider ce serai génial,c'est pour mon mémoire!!
comment la programmer,comment l'afficher et dans quoi l'afficher ? Cette requête sera effectuée par rapport à un champ texte que l'utilisateur aura rempli.
ex: une requête sql doit être effectuées quand l'utilisateur click sur 'go' .La requête sera effectuée par rapport à un numéro de commande que l'utilisateur a entrer dans le champ.
Si vous pouviez m'aider ce serai génial,c'est pour mon mémoire!!
A voir également:
- Requête SQL en Visual Basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
2 réponses
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
