IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Bases de données Delphi Discussion :

MySql et Delphi


Sujet :

Bases de données Delphi

  1. #1
    Membre régulier
    Inscrit en
    Juillet 2005
    Messages
    83
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 83
    Points : 70
    Points
    70
    Par défaut 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 Delphi : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Membre chevronné

    Profil pro
    Inscrit en
    Novembre 2007
    Messages
    1 519
    Détails du profil
    Informations personnelles :
    Âge : 40
    Localisation : France

    Informations forums :
    Inscription : Novembre 2007
    Messages : 1 519
    Points : 2 153
    Points
    2 153
    Billets dans le blog
    1
    Par défaut
    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.
    La FAQ - les Tutoriels - Le guide du développeur Delphi devant un problème

    Pas de sollicitations techniques par MP -

  3. #3
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 410
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 410
    Points : 5 801
    Points
    5 801
    Par défaut
    salut

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  4. #4
    Membre régulier
    Inscrit en
    Juillet 2005
    Messages
    83
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 83
    Points : 70
    Points
    70
    Par défaut 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.

  5. #5
    Membre régulier
    Inscrit en
    Juillet 2005
    Messages
    83
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 83
    Points : 70
    Points
    70
    Par défaut MySql et Delphi
    anapurna
    t'es fort coté syntaxe,je pense même coté orientée objet

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème de connexion à une Db MySql avec delphi
    Par Lctl65 dans le forum Bases de données
    Réponses: 6
    Dernier message: 18/11/2006, 18h20
  2. Connexion distante à une BD MySQL avec delphi ?
    Par maamar1979 dans le forum Bases de données
    Réponses: 13
    Dernier message: 15/11/2006, 08h57
  3. Arrêt de l'exécution d'une requête MySQL dans DELPHI.
    Par joelmarc dans le forum Bases de données
    Réponses: 9
    Dernier message: 11/10/2004, 17h11
  4. [mysql] Connection delphi à mysql
    Par pataluc dans le forum Bases de données
    Réponses: 3
    Dernier message: 24/06/2004, 17h37
  5. [Mysql] Connection delphi à une bdd sous easyphp...
    Par pataluc dans le forum Bases de données
    Réponses: 2
    Dernier message: 14/06/2004, 10h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo