Discussion :

[xspray]

Bonjour

J'ai un petit problème avec la récuperation d'un enregistrement à partir d'une dbgrid

J'ai essayer ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm6.Ajouteramaliste1Click(Sender: TObject);
var
cnum:integer;
cnom,citemprt :string;
csct,csmt,cslt,crct,crmt,crlt : real;
 
begin
 dm.IBQuery1.Close;
 dm.IBQuery1.SQL.Clear;
 dm.IBQuery1.SQL.Text:=('select NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT,    RMT, RLT from '+ ComboBox1.text); 
 dm.IBQuery1.Open;
  cnum:= dm.IBQuery1.FieldByName('num').AsInteger;
  cnom:=dm.IBQuery1.FieldByName('nom').asString;
  citemprt:=dm.IBQuery1.FieldByName('itemprt').asString;
  csct:=dm.IBQuery1.FieldByName('SCT').AsFloat;
  csmt:=dm.IBQuery1.FieldByName('SMT').AsFloat;
  cslt:=dm.IBQuery1.FieldByName('SLT').AsFloat;
  crct:=dm.IBQuery1.FieldByName('RCT').AsFloat;
  crmt:=dm.IBQuery1.FieldByName('RMT').AsFloat;
  crlt:=dm.IBQuery1.FieldByName('RLT').AsFloat;
 
dm.IBQuery1.Close;
dm.IBQuery1.SQL.Clear;
dm.IBQuery1.SQL.Add('insert into ' + combobox2.Text + '(NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT, RMT, RLT) values ('+inttostr(cnum)+','+cnom+','+citemprt+','+floattostr(csct)+','+floattostr(csmt)+','+floattostr(cslt)+','+floattostr(crct)+','+floattostr(crmt)+','+floattostr(crlt)+')');
decimalseparator:=',';
dm.IBQuery1.ExecSQL;
 
end;

combobox1 contient le nom de la table de l'enregistrement à copier
et combobox2 le nom de la table de destination

Le but de cette procedure qui ce trouve dans un menupopup est qu'en me positionnant sur une ligne d'une dbgrid je puisse recopier juste cette ligne vers mon autre table .

Actuellement j'ai un message d'erreur me disant "token unknown-line1,char 85 _AC...".

Le 1_AC est une donner de ma table mais il m'indique "_AC "je sais que mon code copie le premier enregistrement de ma table mais ce n'est pas ce que je recherche si quelqu'un pouvait me donner une piste pour me positionner sur le bon enregistrement via la dbgrid ce serrait sympa

Merci à tous

[ShaiLeTroll]

Regarde plutôt ParamByName, il y a plein de sujet sur le forum, cela aidera pour gérer les " ou ' dans un SQL, cela évitera des concaténations de chaines pas très lisible

ton ... Text:=( ... est très étrange ...

Ensuite, tu utilise un DBGrid d'une étrange façon ...


ajoute la Balise [ CODE] par via l'icone #

[xspray]

ok merci pour ta reponse

la dbgird represente une liste générale et j'aimerais utiliser des liste plus petites et changer leurs contenus régulierement. Je pourrais passer par la creation de vues via sql mais le probleme resterait le meme en ce qui concerne la copie des lignes individuelles vers une autre table ou autre vue, simplement en positionant le curseur sur l'enregistrement de la dbgrid et en appellant ma procedure via un menupopup.

[xspray]

Finalement en utilisant un IBTable je me raproche de ce que je voudrais faire
le code devient

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
begin
 
dm.Queri1.Close;
dm.Queri1.SQL.Clear;
dm.Queri1.SQL.Add('select NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT, RMT, RLT from '+ ComboBox1.text);
dm.Queri1.Open;
 
 
  cnum:= dm.IBTable1NUM.Value;
  cnom:=dm.IBTable1NOM.Value;
  citemprt:=dm.IBTable1ITEMPRT.Value;
  csct:=dm.IBTable1SCT.Value;
  csmt:=dm.IBTable1SMT.Value;
  cslt:=dm.IBTable1SLT.Value;
  crct:=dm.IBTable1RCT.Value;
  crmt:=dm.IBTable1RMT.Value;
  crlt:=dm.IBTable1RLT.Value;
 
dm.Queri1.Close;
dm.Queri1.SQL.Clear;
dm.Queri1.SQL.Add('insert into ' + combobox2.Text + '(NUM, NOM, ITEMPRT, SCT, SMT, SLT, RCT, RMT, RLT) values ('+inttostr(cnum)+','+quotedstr(cnom)+','+quotedstr(citemprt)+','+floattostr(csct)+','+floattostr(csmt)+','+floattostr(cslt)+','+floattostr(crct)+','+floattostr(crmt)+','+floattostr(crlt)+')');
decimalseparator:=',';
dm.Queri1.ExecSQL;
 
end;

Mais j'ai souvent le message d'erreur "Count of columns does not equal count of values"

Si quelqu'un a une idée pour résoudre ce probleme elle est la bien venue.
Je pense qu'il me manque une instruction pour dire au programe de rajouter la ligne copiée en fin de table et d'ignorer le reste..? enfin je crois .
Merci pour votre aide

[xspray]

Voila probleme résolu
Pourquoi faire compliquer quand on a des ibtable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
begin
  cnum:= dm.IBTable1NUM.Value;
  cnom:=dm.IBTable1NOM.Value;
  citemprt:=dm.IBTable1ITEMPRT.Value;
  csct:=dm.IBTable1SCT.Value;
  csmt:=dm.IBTable1SMT.Value;
  cslt:=dm.IBTable1SLT.Value;
  crct:=dm.IBTable1RCT.Value;
  crmt:=dm.IBTable1RMT.Value;
  crlt:=dm.IBTable1RLT.Value;
 
  dm.IBTable1.Active:=false;
  dm.IBTable1.TableName:=(combobox2.text);
  dm.IBTable1.Active:=true;
  dm.IBTable1.Append;
 
  dm.IBTable1NUM.Value:=cnum;
  dm.IBTable1NOM.Value:=cnom;
  dm.IBTable1ITEMPRT.Value:=citemprt;
  dm.IBTable1SCT.Value:=csct;
  dm.IBTable1SMT.Value:=csmt;
  dm.IBTable1SLT.Value:=cslt;
  dm.IBTable1RCT.Value:=crct;
  dm.IBTable1RMT.Value:=crmt;
  dm.IBTable1RLT.Value:=crlt;
 
  dm.IBTable1.Next;
  dm.IBTable1.close;
  dm.IBTable1.TableName:=(combobox1.Text);
  dm.IBTable1.Active:=true;
end;

[evarisnea]

Mais j'ai souvent le message d'erreur "Count of columns does not equal count of values"

ce message d'erreur signifie simplement que pour ton ordre sql

Code :

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

INSERT INTO TABLENAME (COL1, COL2, COL3) VALUES (VAL1,VAL2,VAL3)

le nombre de colonnes indiqué (col1, col2, ...)ne correspond pas au nombre de valeurs spécifiées (val1, val2, ...).
vérifie si ton code à un moment ou à un autre n'omet pas certaines valeurs.

Pourquoi faire compliquer quand on a des ibtable

si par compliqué tu entends utiliser des XXQuery, eh bien c'est tout simplement parce que si ta table a un nombre important d'enregistrements tu va au devant de beaucoup de soucis

[xspray]

salut evarisnea

Je vais donc retourner voir ce qui clochait avec les querys car à un momment ou à un autre je devrait surement avoir besoin de gerer des quantitées importantes de données

Merci pour ta reponse