Discussion :

[MITCH31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

merci de votre aide

[pc75]

Bonjour,

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

[Megaxel]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[MITCH31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[jacma]

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