Como salvar todo o conte�do de um listbox para uma tabela?

Question

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 ...

Martins · Answer

[quote:f61a970a21=�junior-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, com uma grande ajuda do tamb�m participante do f�rum Adriano_servitec.

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 registro, preciso passar todos esses nomes que est�o no listbox para a tabela.

Agrade�o a ajuda de todos.[/quote:f61a970a21]

Fa�a um la�o no [b:f61a970a21]ListBox[/b:f61a970a21], assim vai funcionar.

Junior-programador · Answer

Ol� amigo Martins, obrigado pela aten��o, poderia por favor colocar em c�digo como eu faria isso?
items: listbox
btnsalvar
qrmusicas (id, descricao)

Estou online, aguardando amigo, obrigado.

Rinez · Answer

Prezado Junior:Qual o banco e qual o componene de acesso que tens ao seu banco?...

Paulo · Answer

Testa a�...[quote:5f65b52c93]procedure TForm1.Button1Click(Sender: TObject);vari:integer;begin  Table1.Open;  for i := 0 to (ListBox1.Items.Count - 1) do begin   Table1.Append;   Table1.fieldbyname(�Nome�).AsString := ListBox1.Items.Strings;   Table1.Post; end;end;[/quote:5f65b52c93]...

Junior-programador · Answer

RESOLVIDOprocedure TFImportar.btnimportarClick(Sender: TObject);varx: integer;begin   for x:=0 to listbox1.Items.Count-1 do begin      if (listbox1.Selected[x]) then begin      tbmusica.insert;      tbMusicaDescricao.asstring:=listbox1.Items.strings[x];      tbMusica.post;      end;   end;end; Est� ai amigos, para quem precisar salvar todo o conte�do de um listbox para um banco de dados....

F�rum Como salvar todo o conte�do de um listbox para uma tabela? #346868