Salutations
bon voila , j'aimerais transformer ce code qui est en Delphi en langage sql
le problème c'est que je suis nouveau et débutant dans le langage sql
c'est un programme de recherche d'enregistrement "recherche d'une personne X qui est dans TABLE 1 dans la TABLE 2 et la mettre dans la TABLE 3"
et comme critère de recherche il y a le nom , le prénom, date de naissance ;et j'aimerais que vous m'aidiez

j'aimerais bien savoir comment mettre la commande "LIKE" comme critère de recherche
merci
voici le code :

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
32
33
34
35
36
37
38
39
40
41
42
43
begin
         mdd.TABLE1.first;
         mdd.TABLE1.edit;
         while not mdd.TABLE1.Eof do
        {2} begin
 
 
                mdd.TABLE2.edit;
                mdd.TABLE2.first;
 
                while not mdd.TABLE2.Eof do
                {3}begin
                      //   mdd.TABLE3.Edit;
                         if ((mdd.TABLE2Date_naiss.Text=mdd.TABLE1date_naissance.Text)and
                          (mdd.TABLE2nom.Text=mdd.TABLE1nom.Text)and
                          (mdd.TABLE2Prenom.Text=mdd.TABLE1prenom.Text))
 
                           then
                            {4}begin
                                      mdd.TABLE3.Edit;
                                      mdd.TABLE3.Insert;
                                      mdd.TABLE3NUM.text:=(mdd.TABLE2NUM.text+mdd.TABLE2Code_DECISION.text);
 
                                      mdd.TABLE3nom.Text:=mdd.TABLE2nom.Text;
                                      mdd.TABLE3prenom.Text:=mdd.TABLE2Prenom.Text;
                                      mdd.TABLE3Date_naiss.Text:=mdd.TABLE2Date_naiss.Text;
                                      mdd.TABLE3prenom_pere.Text:=mdd.TABLE2prenom_pere.Text;
                                      mdd.TABLE3nom_mere.Text:=mdd.TABLE2Nom_mere.Text;
                                      mdd.TABLE3prenom_mere.Text:=mdd.TABLE2Prenom_mere.Text;
 
 
                                      mdd.TABLE3.Post;
                                      mdd.TABLE3.Next;
                            {4}end;
                                     mdd.TABLE2.Next;
                  {3}end;
             mdd.TABLE1.Next;
 
 
        {2}end ;
 
 
{1} end;
merci