Gravar Dados Checklistbox - SQL Delphi
Boa noite!
Tenho um formulário e ao entrar nele faça uma consulta para ver dados cadastrados em uma tabela e alimentar um checklistbox.
Como devo fazer para realizar a gravação dos itens selecionados em uma nova tabela.
Obs.: Eu tenho uma query que ja grava os outros dados, apenas essa classificação que estou com dificuldades.
Obrigado
Tenho um formulário e ao entrar nele faça uma consulta para ver dados cadastrados em uma tabela e alimentar um checklistbox.
Como devo fazer para realizar a gravação dos itens selecionados em uma nova tabela.
Obs.: Eu tenho uma query que ja grava os outros dados, apenas essa classificação que estou com dificuldades.
Obrigado
Marcelo Henriques
Curtidas 2
Mais Respostas
Hggggggggg
12/07/2015
hjjjjjjjjjjjj
GOSTEI 0
Hggggggggg
12/07/2015
nnnnnnnn
GOSTEI 0
Paulo Freire
12/07/2015
var
x: integer;
begin
for x:=0 to listbox1.Items.Count-1 do begin
if (listbox1.Selected[x]) then begin
tb.Insert;
tbNome.AsString:=listbox1.Items.Strings[x];
tb.Post;
end;
end;
x: integer;
begin
for x:=0 to listbox1.Items.Count-1 do begin
if (listbox1.Selected[x]) then begin
tb.Insert;
tbNome.AsString:=listbox1.Items.Strings[x];
tb.Post;
end;
end;
GOSTEI 0
Marcelo Henriques
12/07/2015
Paulo Freire,
muito obrigado pelo retorno.
Mas com esse processo está dando erro de violação.
eu fiz assim:
for i := 0 to chkListaClassificacao.Items.Count - 1 do
begin
if chkListaClassificacao.Checked[i] then
begin
Classific := Classific + COPY(chkListaClassificacao.Items[i], 1,100) + '; '
end
end;
DM.SQL_Fornec_Gravar.ParamByName('classificacao').AsString := Classific;
Porem ele grava "001; 002"
com isso não estou conseguindo fazer o inner join com outra tabela.
muito obrigado pelo retorno.
Mas com esse processo está dando erro de violação.
eu fiz assim:
for i := 0 to chkListaClassificacao.Items.Count - 1 do
begin
if chkListaClassificacao.Checked[i] then
begin
Classific := Classific + COPY(chkListaClassificacao.Items[i], 1,100) + '; '
end
end;
DM.SQL_Fornec_Gravar.ParamByName('classificacao').AsString := Classific;
Porem ele grava "001; 002"
com isso não estou conseguindo fazer o inner join com outra tabela.
GOSTEI 0