Discussion :

[aliaccess]

salut
je m'explique donc j'ai deux tables en ma possession
tblclient tblcommande
clientID idcom
nom date_com
prenom nature_com
age

relier entre elle une a plusieurs un client plusieurs commandes,
j'ai le code suivant:

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
 
procedure TForm2.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into client,commande');
ADOQuery1.SQL.Add('nom,prenom,age,date_com,nature_com');
ADOQuery1.SQL.Add('values(aydin,petro,30,03/11/2019),trimibutine');
ADOQuery1.SQL.Add('where clientID=idcom');
ADOQuery1.ExecSQL;
 
with ADOQuery1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('select client,conmmande where clientID=idcom');
  Open;
end;
end;

j'aimerais avoir votre avis.
sincerly merci.

one apple a day keeps doctors away

[SergioMaster]

Bonjour,

Mon/Mes avis
1- une évidence : vous ne maitrisez pas les bases de données
2- votre structure pour la table commande est imparfaite et nécessiterait un numéro de commande unique ne serait-ce qu'un auto-incrément
3- votre requête insert est incorrecte
a) la syntaxe est incorrecte https://docs.microsoft.com/fr-fr/off...oft-access-sql, on ne fait un INSERT que sur une table
b) le passage des valeurs est incorrect les chaines de caractères doivent être entre quotes, la date sous le format de la bdd et entre quotes, le mieux étant de passer par des requêtes paramétrées
conclusion du point 3 , il faut deux requêtes SQL

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    ADOQuery1.SQL.Text:='insert into client(id,nom,prenom,age) values(:id,:nom,:prenom,:age) ';
    ADOQuery1.Params.ParamByName('id').asInteger := ; // à remplir
    ADOQuery1.Params.ParamByName('nom').asString :='aydin' ; 
    ADOQuery1.Params.ParamByName('prenom').asString :='petro' ;
    ADOQuery1.Params.ParamByName('age').asInteger :=30; 
    ADOQuery1.ExecSQL;
    ADOQuery1.SQL.text:='Insert into commande(id_com,nature_com,date_com) values (:id,:nat,:dcom)';
    ADOQuery1.Params.ParamByName('id').asInteger := ; // à remplir
    ADOQuery1.Params.ParamByName('nat').asString :='trimibutine' ;
    ADOQuery1.Params.ParamByName('dcom').asDate :=StrToDate('03/11/2019'); 
    ADOQuery1.ExecSQL;

* Note concernant les paramètres, comme il s'agit de ADO avec lequel je ne suis pas très à l'aise il sera peut-être nécessaire qu'ils soient déclarés avant

enfin, pour vérifier le résultat (requête Select) votre requête , qui ne fonctionnera pas car il manque à minima '* FROM' , est loin d'être normalisée prenez l'habitude d'utiliser des jointures

Code :

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

1
2
3
4
5
6
with ADOQuery1 do
begin
  Close;
  SQL.Text:='select * from client left join commande where client.ID=commande.idcom';
  Open;
end;

de même il est mieux d'indiquer les colonnes que vous voulez récupérer plutôt que *, dans le SQL du code au dessus vous aurez deux fois l'id du client, une fois en tant qu'id , une fois en tant que idcom, la rédaction devenant plus "longue" il est aussi de "bon ton" d'utiliser des alias de table pour rendre la lecture plus facile

Liste de tout les clients qu'ils aient 0 à n commandes

Code SQL :

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

SELECT C.ID,C.Nom,C.Prenom,C.age,M.Nature_com,M.date_com from client c left join commande m on m.idcom=c.id

Liste de tout les clients ayant passé commande (on pourrait dire liste des commandes clients)

Code SQL :

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

SELECT C.ID,C.Nom,C.Prenom,C.age,M.Nature_com,M.date_com from client c join commande m on m.idcom=c.id

Bien sûr un ORDER BY ne serait pas de trop


Dernière chose, je vous avais déjà recommandé d'ouvrir une nouvelle discussion pour ce sujet , je déplace cette discussion mais j'aurai aimé ne pas avoir à le faire !

[MIWAN]

je savais pas que Mr sergio avait besoin du café et du thé (Bases access)

[SergioMaster]

@Miwan
J'ai trois bêtes noires : ACCESS , ADO et DBExpress et je ne cache pas ce fait ces parties ne sont pas ma tasse de thé (déjà que je ne suis pas un grand consommateur de thé )
Sans mon café du matin (seul de la journée) je ne suis qu'un ours attention de ne pas me prendre par surprise au réveil

[aliaccess]

SALUT
j'ai ameliorer mon MSsql mais desole pour le moment je ne connais que base de donnees ms access,donc tout mon travail est baser
sur cet apprentissage alors si vous pouvez m'aidez je vous serais tres reconnaissant.
merci

[aliaccess]

salut
j'ai un probleme avec la position du curseur ,faut t_il utiliser un recnomber ou locate
merci