Comment decouper une requete SQL trop longue sous DELPHI

Le
ookahh Hors ligne
Bonjour, je developpe une application sous DELPHI7 et le programme me demande
de decouper ma requete INSERT .Comment faire voici le code ;

procedure TF_pharm.Button1Click(Sender: TObject);
begin
With DM_Query do
Begin
Q_Insert.Close;
Q_Insert.Prepared:úlse;
Q_Insert.SQL.Text:='INSERT INTO Pharmacie(Nom_pharm,Civilite_proprio,Nom_proprio,Situation_geo
Contact_fixe,Contact_orange,Contact_moov,Contact_mtn,Contact_koz,Contact_green,Autre_contact,login_pharm
Mot_de_passe,Fiche_Nom_pharm,Fiche_Situation_geo,Fiche_Contact_fixe,Fiche_Contact_orange,
Fiche_Contact_moov,Fiche_Contact_mtn,Fiche_Contact_koz,Fiche_Contact_green,plan_acces,Photo)'

VALUES(:Nom_pharm,:Civilite_proprio,:Nom_proprio,:Situation_geo,:Contact_fixe,:Contact_orange, :Contact_moov,:Contact_mtn,:Contact_koz,:Contact_green,:Autre_contact,:login_pharm,:Mot_de_passe,
:Fiche_Nom_pharm,:Fiche_Situation_geo,:Fiche_Contact_fixe,:Fiche_Contact_orange,:Fiche_Contact_moov,
:Fiche_Contact_mtn,:Fiche_Contact_koz,:Fiche_Contact_green,:plan_acces,:Photo)';

Q_Insert.ParamByName('Nom_Clt').Value:íit1.Text;
Q_Insert.ParamByName('Adresse').Value:íit2.Text;
Q_Insert.ParamByName('Tel').Value:íit3.Text;
Q_Insert.Prepared:=true;
Q_Insert.ExecSQL;

end;
end;
end.


Que faire
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Publicité
Poster une réponse
Anonyme