Discussion :

[saimb]

bonsoir
comment accéder aux champs d'enregistrements d'un table de base de donneés interbase et l' introduire des commandes sql dans le code source .
D'avance merci.

[VLDG]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IBQuery.fielbyname('NOM_DU_CHAMP').AsString

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IBTable.fielbyname('NOM_DU_CHAMP').AsString

je suis pas sur d'avoir bien compris la question !

[kroma23]

est ce que vous voulez acceder a vos champs pour les modifier ou autre chose
en tout cas pour modifier un champ vous pouver utiliser les requetes parametrer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
update table nom_table set champ1=:val1,champ2:=val2,.. where condition
parambyname('champ1').asinteger:=val1;
parambyname('champ2').asinteger:=val2;
execsql;

jai suposé que champ1,champ2 son de type integer;

[saimb]

bonsoir
VLDG , kroma23 merci,
je désire de modifier le champ 'NOM' par le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  update  MATABLE  set  NOM :='saimb' WHERE PK_NUMERO=5;
  parambyname('NOM').asstring:='saimb';
  execsql;
end;

mais le compilateur signale une erreur(opérateur ou point virgule manquant).

[rsc]

1/ Attention à la syntaxe qui t'a été indiquée !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  update  MATABLE  set  NOM = :saimb WHERE PK_NUMERO=5

2/ UPDATE est une instruction SQL, pas une instruction Delphi. Tu dosi la passer par un TQuery (ou TIBQuery), dont tu fais pointer la propriété DataBaseName vers ta base. Tu fais ensuite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MonQuery.Sql.Text := 'update  MATABLE  set  NOM = :saimb WHERE PK_NUMERO=5';
MonQuery.ParamByName....
....
MonQuery.ExecSql;

[saimb]

bonsoir
j'ai essaié de respecter la syntaxe de SQL dans cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
UnitBD.DataModule1.IBQuery1.SQL.Text:='update  etudiant  set  nom =:saim where numero=2';
UnitBD.DataModule1.IBQuery1.ParamByName('nom').AsString:='saim';
UnitBD.DataModule1.IBQuery1.ExecSQL;
end;

mais cette fios il y'a une erreur d'execution :
(provoque classe d'exeption base"IBQuery1 paramètre'nom' non trouvée " ),
sachant que la propriété SQL de IBQuery1 préalablement est :
select * from etudiant

[qi130]

Normal...

Comme tu l'as codé,
-nom est une colonne de la table
-le paramètre est :saim

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UnitBD.DataModule1.IBQuery1.ParamByName('saim').AsString:='nouveau nom';

serait plus correct

[Andry]

bonsoir
j'ai essaié de respecter la syntaxe de SQL dans cet exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
UnitBD.DataModule1.IBQuery1.SQL.Text:='update  etudiant  set  nom =:saim where numero=2';
UnitBD.DataModule1.IBQuery1.ParamByName('nom').AsString:='saim';
UnitBD.DataModule1.IBQuery1.ExecSQL;
end;

mais cette fios il y'a une erreur d'execution :
(provoque classe d'exeption base"IBQuery1 paramètre'nom' non trouvée " ),
sachant que la propriété SQL de IBQuery1 préalablement est :
select * from etudiant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
UnitBD.DataModule1.IBQuery1.SQL.Text:='update  etudiant  set  nom = :PNOM where numero=2';
UnitBD.DataModule1.IBQuery1.ParamByName('PNOM').AsString:='saim';
UnitBD.DataModule1.IBQuery1.ExecSQL;

A mon avis, ça doit marcher

[saimb]

Bonjour

'PNOM' représente qoui ?

[qi130]

C'est le paramètre

[saimb]

aucune erreur mais:
si on clique sur button1 la table etudiant qui a affiché dans le DIBGRID avant de cliquer est masqué totalement , pourquoi?