Como Salvar Todo O Conteúdo De Um Listbox Para Uma Tabela

[Júnior programador]

Olá amigos do fórum, uma dúvida, na qual eu já entrei em todos os tópicos do fórum que fala sobre listbox.

Tenho um programa de controle de pedido de música para rádio, para evitar que seja cadastrado música por música, fiz um trabalho onde eu importo todas as músicas de uma pasta para o listbox, ai no listbox fica somente o nome das músicas.

Para finalizar, preciso salvar o conteúdio do listbox para uma tabela, eu uso componente query, então amigos, como fazer para salvar um conteúdo do lisbox para uma tabela?

mesmo que o listbox tenha em torno de 2000 registros que foi pego de uma pasta, preciso passar todos esses nomes que estão no listbox para a tabela.

componentes do form

btnsalvar

listbox

querymusica (id, descricao)

como seria o código que salvaria o conteúdo do listbox para a tabela.

Agradeço a ajuda de todos.

[Guest Alessandro Bastos]

É muito Simples meu amigo.

Veja que eu criei uma variável do tipo inteiro para achar o indice de cada registro da listbox.

então faço um for do indice 0 até o indice final controlado pelo count do listbox depois dentro

do loop eu coloco a tabela para gravar cada indice da list box de acordo com seu indice tente

o código abaixo como exemplo que vai funcionar ok qualquer coisa entre em contato pelo meu

e-mail alessandro@viacometa.com.br

Até mais e boa sorte.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i : Integer;
begin
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    querydescricao.asstring := ListBox1.Items.Strings[i];
  end;
end;

Editado Outubro 2, 2007 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Micheus]

É muito Simples meu amigo.

Vamos complicar um pouquinho, porque senão, não vai funcionar. ;)

Vamos fazer um "up-date" no código do Alessandro:

- Adicionar o novo registro;

- Gravar o novo registro.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i : Integer;
begin
 // se a query não for aberta em outro pronto do programa
 // então, é só retirar o comentário da linha abaixo para abrí-la
 // query.Open; // * abre a consulta
  begin
    query.Append;  // inicia um novo registro "em branco"
    querydescricao.asstring := ListBox1.Items.Strings[i];
    query.Post;  // Grava registro na tabela
  end;
 // assim como para abrir, se for o caso, 
 // remover o comentário da linha abaixo
 // query.Close;  // fechar a consulta
end;

Falta ainda observar o seguinte: A menos que você possa utilizar este componente TQuery com a propriedade RequestLive = TRUE (que o driver do banco suporte), você não conseguirá gravar nada (ocorrerá erro), já que este componente ("a princípio") se presta apenas para consultas (leitura). Se isto ocorrer, troque por um TTable.

Abraços