comment utilisé les requette SQL avec vb6

Question

je veut recevoir des des codes sources d'utilisation des requette SQL avec VB6

cs_dan80 · Answer

et ben moi je veux rien te donn&#233;
 mal poli on est a pas a tes ordres

philippe laschweng 1 · Answer

Voila un petit exemple de requête SQL pour interroger et effacer une base de données ACCESS (Table nommée Q2400). Dans Command1_Click, je récupére toutes les infos de la database et je les affiche dans une listview (Mais base toit plutot sur Command2_Click ou je ne fais qu'effacer la database). Pour comprendre le fct c plus facile car quand tu récupéres c chaud à configurer la listview (probs d'indice) il faudrai ke t la même base de données Public cnn As New ADODB.connection Public rst As New ADODB.Recordset '-------------------------------------------------------------------------------------- Private Sub Command1_Click() connection 'Connection Base de Données requetSQL = "SELECT * FROM Q2400;" rst.Open requetSQL, cnn, adOpenForwardOnly, adLockReadOnly 'Recordset 'une fois requêtenvoyée il faut récupérer le résultat via le recordset If (rst.RecordCount <> 0) Then 'Test si recordset n'est pas vide If (rst.BOF = False) Then rst.MoveFirst 'On se place sur le 1er enregistrement (= première ligne DataBase) For i = 0 To 10 Set ObjListe = Form1.View1.ListItems.Add(, , i) ObjListe.SubItems(1) = rst.Fields(i).Name ValidateRect Form1.View1.hwnd, 0& 'API pour pas faire clignoter la Lisview '-- Autorise le multi-tâche DoEvents Next i InvalidateRect Form1.View1.hwnd, 0&, 0& End If End If deconnection 'Deconnection Base de Données End Sub '-------------------------------------------------------------------------------------- 'pour effacer la base Private Sub Command2_Click() connection cnn.Execute "DELETE * FROM Q2400;" deconnection End Sub '-------------------------------------------------------------------------------------- Public Sub connection() '++++++++ Ouverture de la connection ++++++++ Set cnn = New ADODB.connection cnn.Provider = "Microsoft.Jet.OLEDB.4.0" cnn.Open "Data Source=" & App.path & "\BD_Valeurs.mdb" '++++++++++++++++++++++++++++++++++++++++++++ End Sub Public Sub deconnection() '++++++++++ Fermeture de la connection ==++++++++ cnn.Close End Sub Il esxiste aussi en requête SQL: Si tu veux insérer une nouvelle ligne dans la database (admettons que tu es 2 colonnes) avec lesvaleurs comprises dans text1.text et Text2.Text : cnn.Execute "INSERT into Q2400 VALUES('" & Text1.Text & "','" & Text2.Text & "')'" A chaque fois que tu exécutera cette commande tu remplira une nouvelle ligne (la dernière de la DB) Si tu veux juste la mettre à jour (sans créer une nouvelle ligne) : cnn.Execute "UPDATE Q2400 ='" & Text1.Text & "',='" & Text2.Text & "'" Bien faire attention à la syntaxe. Toutes les valeurs (Text1.Text ...) doivent être entourées du symbole ' ==> 'Text1.Text' En espérant que ca puisse t'aider !!!! hilippe

Comment utilisé les requette SQL avec vb6

2 réponses

Discussions similaires