LISTBOX

MICAIU 29/03/2010 21:56:28
#338179
COMO FAÇO PARA ADD DADOS EM UMA MESMA LINHA DO LISTBOX, EXEMPLO:

NOME: FULANO DE TAL TELEFONE: 1234-5678

[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
DA maneiro que eu fiz fica aparecendo assim, exemplo:

NOME: FULANO DE TAL
TELEFONE: 1234-5678

ALGUEM SABE O Q DEVO FAZER???????????
OBRIGADO
JESUEL.OLIVEIRA 29/03/2010 22:03:18
#338180
Amigo, MICAIU

Concatena as informações segue exemplo abaixo.

 List1.AddItem [Ô]Nome: [Ô] & [Ô]Fulano de Tal[Ô] & [Ô] Telefone: [Ô] & [Ô]1234-5678[Ô]
MICAIU 29/03/2010 22:13:11
#338182
Era bem isso que eu precisava, mas agora executando vi que na verdade eu precisava que os dados quando vem do bd para aparecerem no listbox ja apareçam neste formato que vc me mando como exemplo,
entende, assim:

Eu cadastro no meu BD nome e telefone, quando eu cadastro estas informações, elas são carregadas no LISTBOX desta maneira:
Fulano
1234-5678

entendeu???,

Só que eu queria que fosse mostrado da outra forma, assim:
Fulano 1234-5678.
JESUEL.OLIVEIRA 29/03/2010 23:16:26
#338187
Amigo, verifiquei se vc carregar os dados vai sair na mesma linha se concatenar, veja o tamanho do listbox.

Poste o seu código ou o projeto para que possa analisar melhor.
MICAIU 30/03/2010 00:11:55
#338192
Ai esta, os codigos para salvar e carregar os dados.
Obrigado pela ajuda.
Abrasss
________________________________________________________________________________


Private Sub Salvar_Click()
Connect

adoteste = [Ô]select * from clientes[Ô]
record.Open adoteste, conec, , adOpenDynamic
record.AddNew

record.Fields(1) = Text1.Text
record.Fields(2) = Text2.Text

record.Update
If Not record.EOF Then record.MoveNext
record.Close
Set conec = Nothing
Set record = Nothing
MsgBox [Ô]Cadastro efetuado com sucesso![Ô], vbInformation, [Ô]Cadastro[Ô]

lista

End Sub
___________________________________________________________________________________________________________

Private Sub Form_Load()

nomes = [Ô][Ô]
Connect
record.Open [Ô]select * from clientes where nome <> [ô][Ô] & nomes & [Ô]& telefone[Ô] & [Ô][ô][Ô], conec, adOpenStatic, adLockOptimistic

Do While Not record.EOF
List1.AddItem record.Fields(1)
List1.AddItem record.Fields(2)
List1.ItemData(List1.NewIndex) = record.Fields(0)
record.MoveNext
Loop
If Not record.EOF Then record.MoveNext

record.Close
conec.Close
Set conec = Nothing
Set record = Nothing

End Sub

__________________________________________________________________________________________

Private Sub lista()

List1.Clear
nomes = [Ô][Ô]
Connect
record.Open [Ô]select * from clientes where nome <> [ô][Ô] & Nome & [Ô]telefone[Ô] & [Ô][ô][Ô], conec, adOpenStatic, adLockOptimistic



Do While Not record.EOF
List1.AddItem record.Fields(1)
List1.AddItem record.Fields(2)
List1.ItemData(List1.NewIndex) = record.Fields(0)
record.MoveNext
Loop
If Not record.EOF Then record.MoveNext

record.Close
conec.Close
Set conec = Nothing
Set record = Nothing




End Sub
TECLA 30/03/2010 15:05:06
#338247 Resposta escolhida
Altere...
Do While Not record.EOF
     List1.AddItem record.Fields(1)
     List1.AddItem record.Fields(2)
     List1.ItemData(List1.NewIndex) = record.Fields(0)
     record.MoveNext
Loop


...por isso:
Do While Not record.EOF
     List1.AddItem record.Fields(1) & [Ô]  [Ô] & record.Fields(2)
     List1.ItemData(List1.NewIndex) = record.Fields(0)
     record.MoveNext
Loop
MICAIU 01/04/2010 22:56:29
#338404
Blza, vou tentar aki, ai volto postar o resultado,
obrigado por enquanto, obrigado a todos.
MICAIU 01/04/2010 23:08:10
#338407
Maravilha, deu certinho, valeu TECLA, obrigado a todos pela força.
Tópico encerrado , respostas não são mais permitidas
Voltar