Insertion de données avec mysql

Question

Salut, alors voila pour un prog j'ai besoin d'enregistere des info dans un BDD mysql Etant débutant je V prendre un tuto sur un site d'abord je le suis a la lettre et tout marche bien... Ensuite je change deux trois truc pour intégrer des données end ur (pas des variable) dans un autre base et une autre table du meme serveur (en local) et la Ca me fait un erreur alors je teste plein de truc toujour une erreur ensuite j'ajoute un champs dans la table qui a étéait créer pendant le tuto (la ou tout marcher bien) dans je reprendre exactement le meme code que celui du tuto en rajoutant juste ca : avant : mysql_query(mysql, pChar('INSERT INTO '+table+' (id,nom) VALUES ("", "Nom")')) (ca ca marche) -------------------- Avec les modif mysql_query(mysql, pChar('INSERT INTO '+table+' (id,nom,clan) VALUES ("", "Nom", "kor")')) Voila pas bcp de modif mais quand meme ca marche pas .... voila touie les partie du code : Déclaration : implementation CONST dbname='testdb'; table='db'; {$R *.dfm} ------------------------------- public { Déclarations publiques } mysql: PMysql; end; Et mysql déclarer dans les USES le code pour me connecté : procedure TForm1.Button3Click(Sender: TObject); Var user,host,pwd:string; portip:integer; begin user:='root'; pwd:=''; host:='127.0.0.1'; portip:=3306; MySQL := mysql_init(nil); mysql_options(mysql,MYSQL_OPT_COMPRESS,0); if mysql_real_connect(mysql, pChar(host), pChar(user), pChar(pwd), nil, portip, nil, 0)=nil then Button3.Caption:='La connexion a echouée' else Button3.Caption:='Connexion OK'; end; ---------------------------------------------- L'insértion de donnés : procedure TForm1.Button6Click(Sender: TObject); Var boucle:byte; erreur:boolean; begin if mysql_select_db(mysql, pChar(dbname)) <> 0 then Button6.Caption:='Selection de la base impossible'; erreur:=false; if mysql_query(mysql, pChar('INSERT INTO '+table+' (id,nom,clan) VALUES ("", "Nom", "kor")')) <> 0 then erreur:=true; if (erreur) then Button6.Caption:='Erreur' else Button6.Caption:='Ok'; end; Voila moi j'i capte vraiment rien pourquoi ca fonctione pas et ca mme rend fou !!! Donc si vous y voyé mieu que moi :s ben je vous en remercis d'avance ... A oui j'ai aussi la LibMySql.dll et mysql.pas (sinon la fonction du tuto ne marcherait pas :D ) Aller cordialement.

f0xi · Answer

en effet, y'a un probleme...



la syntaxe de la requette semble bonne ...





verification toute fois : le champ "clan" existe t'il dans la table ?



si non ... ben alors ? faudrait peut etre le cr&#233;er non ?



si oui ... de quel type est il ? Text ? Varchar ?



si varchar ... comment est il declar&#233; ? varchar(3)  ? varchar(10) ?



autre verification importante :

MySQL est CaseSensitive pour les nom des champs : clan n'est pas egal a Clan ou CLAN

verifie donc que "clan" est declar&#233; exactement comme cela sans majuscule aucunes.

maxoudu328 · Answer

Alors :



oui clan existe je suis d&#233;butant delphi mais ca fait un petit moment que je code en php ..;



Et il est &#233;crit exactement pareil c'est un varchar(25) comme le champs
'nom' juste au desus qui dans la requete qui fonctionne marche tr&#233;s
bien ...



Jvous dit c'est a n'y rien comprendre ....

f0xi · Answer

carrement en effet ...



je supose que le champ Id est un Int en auto-increment definis en Clef primaire ?



par contre un truc me trouble dans la declaration de ta requettes :

mysql_query(mysql, pChar('INSERT INTO '+table+' (id,nom,clan) VALUES ("", "Nom", "kor")'))

c'est mysql_query qui demande un pChar (pointeur sur Caractere)?



un autre truc me chifonne, c'est l'utilisation de " au lieu de ' ('' en delphi (double touche 4)) ...

car si tu utilise mysql avec php tu as du remarquer que les guillemets ne sont pas support&#233;e dans la requette mysql...



 est-ce que la requette fonctionne si tu l'execute dans la fenetre SQL de phpmyadmin ?



aussi tu peu utiliser format pour cr&#233;er ta requette, &#231;a eviteras de tout retaper a chaque fois :




function InsertQuery(table, nom, clan : string) : string;

begin

   result := format( 'INSERT INTO %s (id, nom, clan) VALUES ('''',''%s'',''%s'')',

                    
[Table,Nom,Clan]);

end;

f0xi · Answer

par contre tu as de la chance car je n'ai jamais reussi a faire fonctionner MySQL.Pas avec la lib et mysql ...



me demande pas pourquoi ... echec de connection en permanence...
remarque a l'epoque j'avais essayer avec un easyphp ... maintenant j'ai
une vrai install Apache/Php/MySQL faite a la main donc &#231;a devrait
surrement fonctionner.

maxoudu328 · Answer

Ben enfete ma requ&#233;tes et parfaite puisque si je ne met pas le 3eme &#233;lement ca marche nikel .....

maxoudu328 · Answer

Un pti up pour ce probleme super bizard !!!

Insertion de données avec mysql

6 réponses

Votre réponse

Discussions similaires