ChecklistBox - BD - Excluir

Delphi

15/12/2010

Bom Dia   Deu em branco aqui , seguinte tenho uma tabela Acess de itens onde os dados contidos e carregado no ChecklistBox , minha duvida é o seguinte como faço para excluir o item selecionado do ChecklistBox e tambem da tabela.   Assim ele só está excluindo do listbox mas da tabela de itens não , gostaria tambem de remover da tabela o item selecionado.   
i : Integer;     
begin
 for I := listaentrega.Items.Count -1 downto 0 do
 if listaentrega.Checked[i] then
 begin
  listaentrega.Items.Delete(i);
  Grato  
Frost

Frost

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

15/12/2010

é porque o seu comando esta excluindo apena o item enao o registro. Você quer deletar o registro de sua tabela?
GOSTEI 0
Frost

Frost

15/12/2010

Boa Tarde Leonardo   Isso mesmo , quero tambem deletar da tabela o item selecionado   grato
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

15/12/2010

qual componente você esta utilizando apra conectar sua tabela?
GOSTEI 0
Frost

Frost

15/12/2010

Boa Tarde Leonardo   Estou usando ADOQuery.   Para carregar os dados estou usando assim.   
listaentrega.Items.Clear;
Q_entrega.First;
while not Q_entrega.Eof do
begin
listaentrega.Items.Add(Q_entrega.FieldByName('items_entrega').AsString);
Q_entrega.Next;
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

15/12/2010

Faça assim:
Este grid tem que estar relacionado com o componente Q_entrega.
i : Integer;     
begin
 for I := listaentrega.Items.Count -1 downto 0 do
 if listaentrega.Checked[i] then
 begin
  listaentrega.Items.Delete(i);

    Q_entrega.delete;


Tente assim e veja o que acontece.
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

15/12/2010

Faça assim:
Este grid tem que estar relacionado com o componente Q_entrega.
i : Integer;     
begin
 for I := listaentrega.Items.Count -1 downto 0 do
 if listaentrega.Checked[i] then
 begin
  listaentrega.Items.Delete(i);

    Q_entrega.dataset.delete;


Tente assim e veja o que acontece.
GOSTEI 0
Frost

Frost

15/12/2010

Bom dia
Leonardo


Funcionou certinho.


Obrigado pela força.



GOSTEI 0
POSTAR