Projet VB v6 : utilisation de requête SQL dans mon code

Version imprimable

27/10/2005, 13h30
MITCH31

Projet VB v6 : utilisation de requête SQL dans mon code
Développeur du dimanche que je suis, j'étais habitué à utiliser comme source de base de données Access et écrire mon code en VB

une fois ma base et mes tables déclarées, mon code pour rechercher des données dans une table T1 était :
Code:

1 2 3 4 5 6 7 8 9 T1.movefirst do while T1.eof=false if T1![monchamps]=macondition then action (exemple afficher valeur ds un flexgrid) end if t1.movenext loop [/quote]
comment déclarer et utiliser, des commandes SQL pour
1 - réduire mes lignes de code
2 - simplifier et accentuer la recherche

bref comment intégrer la commande
Code:

1 2 3 4 SELECT monchamps FROM T1 WHERE monchamps = macondition
si lien vers FAQ et Code Source existent alors autant pour moi je ne les ai pas trouvés ! :oops:

merci de votre aide
27/10/2005, 14h25
pc75

Bonjour,

Montre nous comment tu utilises le SQL actuellement pour que l'on puisse comprendre.

Hello,
moi, je fais comme ça, j'ai un peu de code réutilisable:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Function ConnexionBase() As ADODB.Connection
 
    Set ConnexionBase = New ADODB.Connection
 
    'Définition du pilote de connexion
    ConnexionBase.Provider = "Microsoft.Jet.Oledb.4.0"
 
    'Définition de la chaîne de connexion : chemin complet du .mdb
    ConnectStr = "Z:\BlaBlaBla\MaBaseAccess.mdb"
    ConnexionBase.ConnectionString = ConnectStr
 
    'Ouverture de la base de données
    ConnexionBase.Open "Data Source=" & ConnectStr
 
End Function
 
Function MakeRequete(Requete As String) As ADODB.Recordset
    'Debug
    'WorkSheets("Test").Cells(10, 10).Value = Requete
    'MsgBox ("Pause")
 
    Dim cnx As ADODB.Connection
 
    Set cnx = ConnexionBase()
    Set MakeRequete = New ADODB.Recordset
 
    'Exécution de la requête
    MakeRequete.Open Requete, cnx
 
End Function

Et ensuite, il ne me reste, pour effectuer une requete SQL, qu'à faire ça partout où j'en ai besoin:

Code:

1
2
3
4
5
 
Dim Resultat As ADODB.Recordset
Dim MaRequete As String
MaRequete = " SELECT MAX(" & MaColonne & ") FROM " & MaTable
Set Resultat = MakeRequete(MaRequete)

Et j'ai mon résultat dans le ResultSet "Resultat".
Il faut penser à ajouter les références ADO dans le projet.

Justement, je ne l'utilise pas !

j'ai découvert le langage SQL sur un autre compilateur ! et donc je souhaite utiliser des commandes SQL plutôt que des commandes VB cad :

Objectif :
afficher ds un FlexGrid la liste des films en VO

Actuellement, j'écris :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 TabMesFilms.movefirst TabMesFilms.index="Tri_par_Type" TabMesFilms.seek"=","VO" if tabMesFilms.nomatch=False then do while TabMesFilms.eof=false if TabMesFilms![Type]="VO" then grille(1,1)=tabMesFilms![titre] end if TabMesFilms.movenext loop end if
je voudrais simplifier par
Code:

1 2 3 4 requete="SELECT TITRE FROM MESFILMS where type="VO""
Mon souci, ma question :
est ce possible ? comment déclare t on la requete ? comment récupérer les données sélectionnées ?
existe il un code source exemple ?

27/10/2005, 15h02
jacma

Tu trouvera de quoi t'inspirer avec le praticiel Accès aux données dont l'adresse est en signature.