Fórum Como salvar conteúdo do listview no banco de dados? #381759

      for x:=0 to listbox1.Items.Count-1 do
      begin
         if (listbox1.Selected[x]) then
            begin
               qrmusica.Close;
               qrmusica.SQL.Clear;
               qrmusica.SQL.Add('select * from tbmusica');
               qrmusica.SQL.Add('where tbmusica.nome_musica = ''' + listbox1.Items.strings[x] + '''');
               qrmusica.Open;
               tbmusica.Open;
               if qrmusica.IsEmpty then
                  begin
                     tbmusica.insert;
                     tbmusicanome_musica.asstring:=listbox1.Items.strings[x];
                     tbmusicaidartista_musica.AsInteger:=edt_nome.EditValue;
                     tbmusicaano_musica.AsString:=edt_ano.Text;
                     tbmusicaidgenero_musica.AsInteger:=edt_genero.EditValue;
                     tbmusicaidcompositor_musica.AsInteger:=edt_compositor.EditValue;
                     tbmusicatitulo_musica.AsString:=edt_trabalho.Text;
                     tbMusica.post;
                     Gauge1.Position := gauge1.Position + 1;
                     Application.ProcessMessages;
                  end;
                  QRMusica.Close;
                  tbmusica.Close;
            end;
      end;