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.