Bonjour à tous et merci d'avance de votre aide.Avant toute chose mes excuses pour mon ignorance sur listbox je débute.Je cherche depuis un petit bout de temps sans résultat
j'ai un listbox avec plusieurs ligne que je voudrais modifier dans une base de données paradox dans un champs Memo
mon lisbox contiens
Ligne1
Ligne2
Ligne3
Ligne4
Ligne5
Je voudrais enregistrer dans ma table ,tous les lignes dans un champs Mémo
j'ai fait
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('Update table_test.db set Champs_test = '+ QuotedStr(ListBox1.Items[ListBox1.Items.Text])
+' where Idtest ='+ QuotedStr(Label1.caption)+'');
Prepare;
ExecSQL;
end;
end;
mais j'ai une erreur incompatible integer et String
aprés l'enregistrement je voudrais les affichés
j'ai fait
Tu utilise Items.Text comme Index dans Items[] d'ou l'erreur !
procedure TForm1.Button1Click(Sender: TObject);
var X: integer;
begin
for X := 0 to ListValues.Items.Count-1 do
begin
with Query1 do
begin
SQL.Clear;
SQL.Add('UPDATE table_test.db SET Champs_test='''+ListValues.Items[X]+''' WHERE Idtest='+IntToStr(X)+';');
Prepare;
ExecSQL;
end;
end;
end;
