|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : SQL... erreur [ Archives / J'AI BESOIN D'AIDE !!!! :O ] (cmeme)
 Informations & options pour cette discussion
dimanche 4 décembre 2005 à 15:24:41 |
SQL... erreur
cmeme
|
Merci encore pour ton aide: je vais commenter le probleme.
En réalité, j'ai plusieurs bouton: Ajouter, Sélectionner, Modifier, Supprimer.
Ce que je voudrais réaliser en claire c'est lorsque je pointe le curseur de ma souris sur ma dbgrid pour selectionner le champs dans ma table FORMAT (réaliser en interbase) lorsque ce dernier est pointé, j'appuie sur le bouton Selectionner, ce bouton (Selectionner) m'affiche la donnée de mon champs TYPE_FORMAT de ma dbgrid dans mon Edit1 et de la je change le type de format au lieu de A4 j'ecris A3 et lorsque j'appuie sur le bouton Modifier le champs A4 dans mon dbgrid ce change en A3.
procedure TGes_Format.BitBtn5Click(Sender: TObject); begin
begin if (edit1.Text = '')then begin messagedlg('Veuillez sélectionner le champs à modifier',mtWarning,[mbok],0); end
else
begin with DataModule2.IBQuery_Format do begin SQL.Clear; SQL.Add('Update FORMAT'); DataModule2.IBQuery_Format.ParamByName('TYPE_FORMAT').AsString:=edit1.text; ExecSQL; BitBtn4.Enabled:=true; BitBtn6.Enabled:=true; edit1.Text := '' end;
end;
end;
end;
J'ai essayé d'écrire ca comme code mais ca me fonctionne pas si qqu'un pourrait m'aider..
Merci encore
|
|
|
lundi 5 décembre 2005 à 14:53:33 |
Re : SQL... erreur
vincentstryckmans
|
Bonjour,
Dans les composants Interbase Express il y a TIBDataset qui fait tout le travail pour toi.
Tu écris une requête SELECT pour ton dataset dans la propriété SELECTSQL ou via click droit 'Edit SQL', ensuite via un click droit ' Dataset editor' tu peux générer automatiquement les commandes INSERT, UPDATE et DELETE pour ta requête.
Dans ton code, tu n'as plus qu'à , par exemple, pour un update :
if not mytransaction.intransaction then mytransaction.starttransaction;
with myquery do
begin
modify;
fieldbyname('field1').as ... := valeur;
...
post;
end;
if mytransaction.intransaction then mytransaction.commit;
Le tout emballé dans un try except.
Pour ton information, un update d'une table en sql s'écrit :
update mytable set field1 = 'toto' where .... donc ton code SQL.Add('Update FORMAT'); ne sait pas fonctionner car il devrait être :
sql.add('update format set type_format = :type_format');
Le forum SQL de www.developpez.com dispose d'un titutorial vachement bien fait sur les bases du SQL
Et comme disait ma grand-mère : il y a toujours du soleil derrière les nuages.
Vincent Stryckmans.
|
|
|
mardi 6 décembre 2005 à 00:12:30 |
Re : SQL... erreur
cmeme
|
Mercii pour ta reponse je vais regarde ca tout de suite ;)
|
|
|
mardi 6 décembre 2005 à 12:08:49 |
Re : SQL... erreur
cmeme
|
Réponse acceptée !
En faite voilà, voila la solution à mon probléme :
Voici la Source
var
OldType: string;
procedure TGes_Format.Modifier_FormatClick(Sender: TObject); //Bouton pour "Modifier"
begin
begin
if (edit1.Text = '')then
begin
messagedlg('Veuillez sélectionner le champs à modifier', mtWarning,[mbok],0);
end
else
with DataModule2.IBQuery_Format do
begin
SQL.Clear;
SQL.Add('Update FORMAT set TYPE_FORMAT=:Type_Format');
SQL.Add('WHERE TYPE_FORMAT = :OldType');
DataModule2.IBQuery_Format.ParamByName('Type_Format').AsString:=edit1.text;
DataModule2.IBQuery_Format.ParamByName('OldType').AsString:=OldType;
ExecSQL;
Refresh_Format.Click; //Bouton qui rafraichi
edit1.Text:='';
Ajouter_Format.Enabled:=true; end;
end;
end;
Voila voila ...
|
|
|
Cette discussion est classé dans : bouton, end, sql, format, begin
 Répondre à ce message
 Sujets en rapport avec ce message
Unicode SQL [ par domchap ]
salutje fais un prg pour aider à apprendre le polonais, tout de suite j'ai été confroté au problème des lettres de la langue, j'ai donc utilisé l'unic
bouton dynamique [ par killerdam ]
bonjour. j ai créé des pages control et des tabsheet dynamiquement, et sur chaque je créé aussi un bouton, un edit, une colorbox (tout ca dynamiquemen
Probleme de requete UPDATE pour modifier de champs dans ma dbgrid [ par cmeme ]
Salut merciii à l'avance pour votre aide ;) Voila mon code mais la requete ne fais rien , elle change rien dans ma DBgrid <
Affichage du contenu d'une colonne? (voici mes codes) [ par jennybless ]
Salut tout le monde! Je travaille sur une toute petite base de donnée et souhaite juste avoir le contenu d'un champ (par exemple: Entreprise). C'est
SavetoFile ne fonctionne pas avec D2005 , [ par MarcelF ]
Bonjour,J'ai un pb avec D2005, je voudrais sauver le contenu du clipboard dans un fichier. Ceci fonctionnait sans pb avec Office 2003.Avec Office 2007
Error E/S 32 sur ecriture et suppresion [ par te56350 ]
slt tt le mondej'Ai besoin d'une solution pour mon projet en cour SVPMon projet gère des comptes utilisAteurs Et qu'An j'enregistre des comptes çA fon
Dichotomie Pascal [ par uesgui ]
Bonjour,J'ai récupéré un code pour faire un exercice de maths sur la dichotomie , j'ai bidouillé le code pour l'adapter à mon exercice mais je ne trou
Fermer Forms Dynamiques [ par nirG ]
Bonjour,Je recherche une façon de fermer mes forms dynamiques. Je vous présente un bout de mon code afin que vous compreniez.for I := 0 to Compteurcha
l'algorithme du pivot total de gauss en delphi [ par etoilefilante21 ]
aidez moi svp.j'ai un probleme avec mon algorithme je sais pas ou sa cloche mais les resultat sont faux.voila mon algorithme.bein je suis debutante do
Rajouter un TreeNode dans un TreeView [ par Francky23012301 ]
Salut à tous,Je suis entrain de réaliser un composant dont voici le code :unit BrowserEffects;interfaceuses Windows, Messages, SysUtils, Classes, Con
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
HTC Touch HD
Entre 25€ et 605€
|