Gravar dados numa tabela a partir de um listbox

Delphi

19/02/2009

Olá,

Como faço para capturar os nomes que estão em um listbox para inclui-los num campo chamado user de uma tabela usando o codigo abaixo. Por exemplo, tenbo um listbox assim:

JOSE
JULIO
MARCOS
MURILO
PAULO
SERGIO
...

preciso saber como criar um loop no codigo abaixo que vá pegando cada nome que está no listbox e gravando no campo user da tabela. Se alguem puder ajudar.

with .QryINSCONT do
begin
......
ParamByName(´user´).asstring := //aqui pegaria o nome que está no listbox ;

ExecSql;
End;

Grato

Luiz Carlos


L_carlos

L_carlos

Curtidas 0

Respostas

Dedi

Dedi

19/02/2009

Var i:integer;
begin
 for i:= 1 to listbox1.count do begin
 //...
 ParamByName(´user´).asstring :=ListBox1.Items.Strings[i-1];
 //...
 end;
end;



GOSTEI 0
L_carlos

L_carlos

19/02/2009

Vlw Dedi. Problema resolvido.

Luiz


GOSTEI 0
POSTAR