dbgrid et insertion dans une table

Version imprimable

Bonjour

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

J'ai essayer ça:
Code:

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

28/05/2009, 18h41
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 #
28/05/2009, 19h35
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.

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

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

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

Code:

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;

29/05/2009, 21h47
evarisnea

:salut:

Citation:

Envoyé par xspray

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:

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.

Citation:

Envoyé par xspray

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 :aie:
30/05/2009, 10h02
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 :calim2:

Merci pour ta reponse