De ListBox para ListBox

Question

Srs, bom dia!Estou tentando mas n�o estou conseguindo inserir no ListBox2, um item selecionado no ListBox1. Consigo preencher o ListBox1, com dados provenientes de um banco, mas preciso possibilitar q...

Bruno Belchior · Answer

[code:1:4cbbd226cb]with ListBox1 do  ListBox2.Items.Add(Items&#91;ItemIndex&93;);[/code:1:4cbbd226cb]isso se o par�metro for realmente a string... sen�o use o [b:4cbbd226cb]AddObject[/b:4cbbd226cb] e passe um �ndice qualquer... :wink:...

Programalista · Answer

Valeu brunovicenteb, era isto que eu precisava. Deu certo!Abrigado, qq coisa estamos ai.Att,Programalista...

Programalista · Answer

Pessoal, surgiu um outro problema: Estou tentando atribuir o conte�do do ListBox2 � uma vari�vel do tipo �string� para que eu possa pass�-la como par�metro em uma query, mas o Delphi exibe um erro dizendo que os tipos String (vari�vel) e o TString (ListBox2) s�o incompativ�is.

[Error] Ulistbox.pas(106): Incompatible types: �String� and �TStrings�

Algum saberia como resolver isto?

Obrigada�o! e abra�o a todos.

Att,

Programalista.

Bruno Belchior · Answer

[code:1:5eb863458e]if ListBox1.ItemIndex <> -1 then  Query.ParByName(�Parametro1�).AsString := ListBox1.Items&#91;ListBox1.ItemIndex&93;;[/code:1:5eb863458e]...

Programalista · Answer

Bom dia Bruno, e a todos do F�rum.Eu preciso de uma query assim: [code:1:98729bd84b]select * from certificado where codigo in (125, 450, 80) order by codigo[/code:1:98729bd84b]sendo assim, ao comando do usuario, estarei passando esta query para o banco, onde os valores de par�metro dever�o ser aqueles que o usuario ir� selecionar e que v�o estar no ListBox2. Preciso desta solu��o porque o sistema que desenvolvi permite que o relat�rio seja convertido em .pdf e enviado por email, ent�o atualmente, se preciso enviar 3 relat�rios de certificado para o meu cliente, eu tenho que ger�-los um por um, converter em .pdf (atrav�s do sistema), salvar e s� depois criar um email e anexar todos. Se eu conseguir o que pretendo, o usu�rio poder� selecionar os c�digos que desejar (no ListBox1) e preencher o ListBox2 a partir da� ir� disparar a gera��o �do relat�rio� (�nico) com tantas p�ginas de acordo que os c�digos gerados, ou seja, se forem selecionados 3 c�digos, ser� gerado um �nico relat�rio com 3 p�ginas. Ent�o o sistema ir� gerar um �nico .pdf  que ser� enviado por email. Talvez tenha outra forma mais pr�tica de implementar esta solu��o, se tiver alguma sugest�o, ela ser� muito bem vinda. Agrade�o desde j�.Att,Programalista....

Bruno Belchior · Answer

acho que em vez de dois [b:f127c166fb]ListBox�s[/b:f127c166fb] pq vc n�o usa um [b:f127c166fb]CheckListBox[/b:f127c166fb] :?: Assim ele poder� escolher quantos �Relat�rios� ele quiser... n�o sei se entendi seu problema ou se estou me equivocando :oops: de qualquer forma, no ListBox vc lista um nome e quer passar um c�digo :?: ou voc� lista nomes e quer passar realmente nomes como par�metro :?:

Programalista · Answer

Mais uma vez, obrigado!Eu listo os c�digos no ListBox1 e quero pass�-los como par�metro, estes c�digos s�o do tipo inteiro. A inten��o de usar o LisBox em vez do CheckListBox � apenas para deixar de forma mais clara, o que usu�rio est� selecionando.Abra�os....

R�mulo Barros · Answer

Vamos supor que o seu ListBox2 possua os valores: 1 - 2 - 3

Logo seu select ficaria assim:

select * from certificado where codigo in (1,2,3) order by codigo

[b:b03371bc89]
Para isto, utililzei como base o c�digo abaixo:[/b:b03371bc89]

Var
   C : Byte;
   Query : String;
   Parametros : String;
begin
   With(ListBox2)Do
   Begin
      Query := �select * from certificado where codigo In�;
      Parametros := �(�;
      For C := 0 To Items.Count -1 Do
      Begin
         If(C = Items.Count -1)Then
         Begin
            Parametros := Parametros + Items[C] + �)�;
         End
         Else
           Begin
              Parametros := Parametros + Items[C] + �,�;
           End;
      End;
      Query := Query + Parametros + � order by codigo�;
      ShowMessage(Query);
   End;
end;

[b:b03371bc89]Espero q funcione de acordo com sua necessidade !!![/b:b03371bc89]

[u:b03371bc89][i:b03371bc89][b:b03371bc89][color=blue:b03371bc89]Obs:[/color:b03371bc89][/b:b03371bc89][/i:b03371bc89][/u:b03371bc89][color=red:b03371bc89] � fundamental que vc valide se o listbox2 possui itens para evitar erros.[/color:b03371bc89]

Programalista · Answer

R�mulo Barros, meu camarada [b:30c34261bb]valeu Demais[/b:30c34261bb] era exatamente isto de que eu precisava, [b:30c34261bb]o b r i g a d o![/b:30c34261bb]

Agrade�o tamb�m ao Bruno pelas suas valiosas contribui��es.

Olha gente, sou iniciante na arte de programar, mas eu estou tentando e com certeza chegarei l�, por isso eu sou muito grato a todos �queles que contribuem para o meu crescimento. Obrigado mesmo.

Abra�os.

R�mulo Barros · Answer

:arrow:  [u:827890b9a2]Relaxa !!![/u:827890b9a2]  :wink:...

Bruno Belchior · Answer

:wink: s� pra resumir mais um pouco:[code:1:e7e2935bae]var  ComandoSQL: string;begin  ComandoSQL := Format(�Select * from Tabelas where Codigo in (�s) order by � +    �Codigo�, &#91;ListBox2.Items.CommaText&93;);end;[/code:1:e7e2935bae]...

R�mulo Barros · Answer

Boa Solu��o, [u:9f898c339c]brunovicenteb [/u:9f898c339c]!!
Est� a� uma solu��o �enxuta� para o problema do nosso amigo.
Mais uma q eu n�o sabia e aprendi.
� Vivendo e aprendendo..

[b:9f898c339c]Parab�ns... !!!![/b:9f898c339c] :wink:

Bruno Belchior · Answer

:wink: como voc� mesmo disse :!: [quote:d80c91b13a=�R�mulo Barros�]:arrow:  [u:d80c91b13a]Relaxa !!![/u:d80c91b13a]  :wink:[/quote:d80c91b13a]...

Programalista · Answer

UAU!!! que enxugada.Deste f�rum eu n�o arredo mais o p�, incr�vel, aqui s� tem �feras�, desenvolvedores destemidos...e competentes. N�o sem preocupem, ainda farei parte deste time para poder contribuir com algumas [b:91778914af]m�ximas [/b:91778914af]como estas.Obrigada�o pessoal, voc�s foram muito, mas muito solid�rios!Abra�os e Parab�ns a voc� Bruno e a voc� R�mulo....

F�rum De ListBox para ListBox #294119