MySql et Delphi

Salut,
J'ai créée une base de données générer par power designer 11.
J'utilise delphi 7 entreprise, et EasyPhp 1.8 et MyDac de corlab.
Lorce que j'introduie les valeurs dans la table aquerir, celui-ci me reponds,
impossible d'introduire les clés fils, pourtant les valeurs que j'introduisent
existe et proviennent des tables: etablissement et aquerir.
les tables sont :

etablissement
ID_ETABLISEMENT varchar(5) latin1_swedish_ci Non
CODE_ETABLISSEMENT varchar(5) latin1_swedish_ci Non
NOM_ETABLISSEMENT varchar(50) latin1_swedish_ci Oui NULL

materiel
ID_MATERIEL varchar(5) latin1_swedish_ci Non
CODE_MATERIEL varchar(5) latin1_swedish_ci Non
NOM_MATERIEL varchar(50) latin1_swedish_ci Oui NULL

aquerir
ID_ETABLISEMENT varchar(5) latin1_swedish_ci Non
CODE_ETABLISSEMENT varchar(5) latin1_swedish_ci Non
ID_MATERIEL varchar(5) latin1_swedish_ci Non
CODE_MATERIEL varchar(5) latin1_swedish_ci Non
DATE_AQUISITION date Oui NULL

code dans delphi :
Code:

1 2 3 4 5 6 7 8 9 MyQuery.SQL.Clear; MyQuery.SQL.Add('INSERT INTO aquerir (ID_ETABLISEMENT, CODE_ETABLISSEMENT, ID_MATERIEL, CODE_MATERIEL, DATE_AQUISITION)'); MyQuery.SQL.Add('VALUES (:ID_ETABLISEMENT, :CODE_ETABLISSEMENT, :ID_MATERIEL, :CODE_MATERIEL, :DATE_AQUISITION)'); MyQuery.Params[0].AsString := EditIdEtablissement.Text; MyQuery.Params[1].AsString := EditCodeEtablissement.Text; MyQuery.Params[2].AsString := EditIdMateriel.Text; MyQuery.Params[3].AsString := EditCodeMateriel.Text; MyQuery.Params[3].AsString := EditDate.Text; MyQuery.Execute;
grand merci pour votre aide

Params[0], Params[1], etc... référencent-ils bien les paramètres :ID_ETABLISEMENT, :CODE_ETABLISSEMENT, etc...

Peut-être devrait-tu utiliser MyQuery.Params.ParamByName( 'ID_ETABLISEMENT' ).AsString := surtout si tu n'as pas créé les paramètres en mode conception ou pas code auparavant.

salut

pour faire çà je préfère éviter les paramettres

Code:

1
2
3
4
5
6
7
8
 
MyQuery.SQL.Clear;
st := 'INSERT INTO aquerir (ID_ETABLISEMENT, CODE_ETABLISSEMENT, ID_MATERIEL, CODE_MATERIEL, DATE_AQUISITION) VALUES ("%s","%s", "%s","%s","%s")';
 
MyQuery.SQL.Add(format(st,[
    EditIdEtablissement.Text,EditCodeEtablissement.Text
    ,EditIdMateriel.Text,EditCodeMateriel.Text,EditDate.Text);
MyQuery.Execute;

@+ Phil

MySql et Delphi

Grand merci à vous deux, ce n’est pas coté syntaxe mais pure base de données. Je venais de supprimer la contrainte externe provenant des deux tables le programme marche.
Ce n’est pas suffisant mais je peux terminer mon programme, il faut que j’étudie la base de donnée MySQL.

MySql et Delphi

anapurna
t'es fort coté syntaxe,je pense même coté orientée objet :D