Pecorrer o listbox e salvar no mysql!

Delphi

23/03/2017

Ola pessoal!
como percorrer todos os itens de listbox e salvar num banco de dados?
exemplo:

lista1
lista2
lsita3
e inserir 3 registros no banco de dados!


grato,

Adriano.
Adriano Pereira

Adriano Pereira

Curtidas 0

Respostas

Claudiney Cogo

Claudiney Cogo

23/03/2017

Bom dia Adriano, tudo bem?

Você não passou muitos detalhes de como seria a sua estrutura de dados, mas, considerando que você já tenha a conexão feita com o banco de dados e a sua tabela se chame TABELAMYSQL, e também que já tenha a variável I criada para percorrer a lista, seria mais ou menos o seguinte:

for i:=0 to listbox.count -1 do
begin
dm.tabelamysql.insert;
dm.tabelamysql.fieldbyname('nomecampo').value := listbox.Itens[i];
dm.tabelamysql.post
end;

Dessa forma você percorre todos os itens do listbox. A partir daí você pode personalizar o resultado, fazendo os testes que forem necessários dentro desse looping.

Os itens do listbox serão sempre retornados como strings, então caso necessário você deve fazer o cast correto.

Caso não seja bem isso que você precise pergunte novamente passando mais detalhes ok.

Abraço.
Claudiney
GOSTEI 0
POSTAR