transformer requête sql sous langage delphi

language delphi et sql 2000 server

bonjour a tous

j'ai une table "liste_a_controler" et je voudrai voir les personnes qu'ont le même nom et prénom et date naissance situant dans ma 2ème table "dem_liquid" et les transmettre a

ma 3ème table " benef_trouver"

jai pu mettre une requette sql qui est :
Code:

1 2 3 4 5 6 7 SELECT DISTINCT * FROM Liste_A_Controler WHERE EXISTS (SELECT * FROM dem_liquid WHERE liste_a_controler.nom = dem_liquid.nom AND liste_a_controler.prenom = dem_liquid.prenom AND liste_a_controler.date_naiss = dem_liquid.date_nais)
requette sans insertion a ma 3ème table qui est benef_trouver

et je cherche comment la traduire sous language delphi
j'espère que ma question est claire et merci d'avance pour vos propositions.

La question n'est pas très clair, que voulez vous dire par transformer une requete SQL en langage Delphi ???

Il n'y a pas de transformation à effectuer, vous utilisez un query dans lequel vous mettez votre requete et vous ouvrez le query en question pour avoir le résultat...

Votre requete ne fait pas ce que vous décrivez, elle n'insère pas comme vous le dite dans la table benef_trouver le résultat.
Il faudrait quelque chose du genre :
Code:

1 2 3 4 5 6 7 8 Insert into benef_trouver (col1,col2,col3,...) (SELECT DISTINCT Col1, col2, col3,... FROM Liste_A_Controler WHERE EXISTS (SELECT * FROM dem_liquid WHERE liste_a_controler.nom = dem_liquid.nom AND liste_a_controler.prenom = dem_liquid.prenom AND liste_a_controler.date_naiss = dem_liquid.date_nais))
Dans ce cas là votre query ne retourne pas de donnée, un simple execute suffit pour insérer le résultat de votre requete dans benef_trouver

Bonjour,

Effectivement c'est pas très clair, sinon pour executer la requete dans Delphi et récupérer les données ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Qry.SQL.Clear;
Qry.SQL.Append('SELECT DISTINCT *');
Qry.SQL.Append('FROM Liste_A_Controler');
Qry.SQL.Append('WHERE EXISTS');
Qry.SQL.Append('	(SELECT *');
Qry.SQL.Append('	FROM dem_liquid');
Qry.SQL.Append('	WHERE liste_a_controler.nom        = dem_liquid.nom AND'); 
Qry.SQL.Append('		  liste_a_controler.prenom     = dem_liquid.prenom AND'); 
Qry.SQL.Append('		  liste_a_controler.date_naiss = dem_liquid.date_nais)');
 
Qry.Open;
Qry.First;
 
while not Qry.Eof do 
begin
	// ...
end;

Citation:
Envoyé par retwas
Bonjour,

Effectivement c'est pas très clair, sinon pour executer la requete dans Delphi et récupérer les données ..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Qry.SQL.Clear; Qry.SQL.Append('SELECT DISTINCT *'); Qry.SQL.Append('FROM Liste_A_Controler'); Qry.SQL.Append('WHERE EXISTS'); Qry.SQL.Append(' (SELECT *'); Qry.SQL.Append(' FROM dem_liquid'); Qry.SQL.Append(' WHERE liste_a_controler.nom = dem_liquid.nom AND'); Qry.SQL.Append(' liste_a_controler.prenom = dem_liquid.prenom AND'); Qry.SQL.Append(' liste_a_controler.date_naiss = dem_liquid.date_nais)'); Qry.Open; Qry.First; while not Qry.Eof do begin // ... end;
effectivement ma requette ne comprend pas l'insertion dans la table benef_trouver et 'est ce que je cherche ma requette + insertion dans benef_trouver

merci pour votre réponse c gentil

jai pu inserer en sql avec cette requette qui est :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
 
INSERT INTO Benef_Trouver
                      (nom, Prenom, Date_naiss)
SELECT DISTINCT Nom, Prenom, Date_naiss
FROM         Liste_A_Controler
WHERE     EXISTS
                          (SELECT     *
                             FROM         dem_liquid
                             WHERE     liste_a_controler.nom = dem_liquid.nom AND liste_a_controler.prenom = dem_liquid.prenom AND 
                                                   liste_a_controler.date_naiss = dem_liquid.date_nais)

mais en language delphi j'ai pas pu :oops:

comment mettre en place cette requette en delphi c sa mon pb je ne sais pas par ou commencé . merci

Citation:

Envoyé par wiski08000

je ne sais pas par ou commencé . merci

Par lire la FAQ ? :weird:

Si tu veux executer ta requete dans Delphi tu ajoutes ton SQL dans un Query et ExecSQL

Citation:

Envoyé par retwas

Par lire la FAQ ? :weird:

Si tu veux executer ta requete dans Delphi tu ajoutes ton SQL dans un Query et ExecSQL

c tout simple, merci