Fórum Gravar Dados Checklistbox - SQL Delphi #525510
12/07/2015
0
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
Curtir tópico
+ 2Posts
12/07/2015
Hggggggggg
Gostei + 0
12/07/2015
Hggggggggg
Gostei + 0
14/07/2015
Paulo Freire
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
15/07/2015
Marcelo Henriques
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
Clique aqui para fazer login e interagir na Comunidade :)