CONCATENAR

USUARIO.EXCLUIDOS 16/09/2006 14:22:20
#171868
Pessoal como posso fazer para pegar a primeira parte de uma concatenação de campos da minha tabela.
Seria esta situação, jogo em um list1 dois campos da tabela :
List1.AddItem TbCadastroSup("Codigo") & " - " & TbCadastroSup("Descricao")

E o clicar no list preciso pegar somente o primeiro campo alguém sabe como faze-lo???


Estou fazendo assim para pegar o nome no list:

'Pesquisa o nome selecionado (List1.Text)
 'atribuindo-o à  variável Dado.
 Dado = List1.Text
 
 'Monta o comando SQL e o armazena na String Consulta_SQL.
 
 Consulta_SQL = "SELECT * FROM cadastrosup WHERE Codigo = '" _
                + Dado + "' "



O problema esta em pegar o primeiro campo do list para lançar na pesquisa...
Desde já agradeço pela ajuda.......
CAIO.IN.DUST 16/09/2006 14:28:08
#171870
Coloque um listview e no form e teste, ve se é isso que vc quer


Private Sub Form_Load()
List1.AddItem "Caio - Humberto"
List1.ListIndex = 0
a = Split(List1.Text, "-")
MsgBox a(0)
MsgBox a(1)
End Sub
USUARIO.EXCLUIDOS 16/09/2006 16:31:16
#171881
Beleza seria isto, só um detalhe como faço para ele percorer a lista toda :

List1.ListIndex = 0
A = Split(List1.Text, " - ")
Dado = A(0)

Desta maneira ele fica somente no primeiro registro da lista.
CAIO.IN.DUST 16/09/2006 16:47:12
#171885
Assim fera, é so fazer uma rotina repetitiva [for]...

Private Sub Form_Load()
Dim i As Integer
List1.AddItem "Caio - Humberto"
List1.AddItem "Carlos - Henrique"

For i = 0 To List1.ListCount - 1
    List1.ListIndex = i
    a = Split(List1.Text, "-")
    MsgBox a(0)
    MsgBox a(1)
Next i
End Sub
USUARIO.EXCLUIDOS 16/09/2006 19:01:18
#171894
Caio não sei o que esta pegando veja retorna erro:

For i = 0 To List1.ListCount - 1
List1.ListIndex = i
A = Split(List1.Text, " - ")
Dado = A(0)
Next i

As vezes da um branco quando você fica demais em cima de um problema que talvez não estou enchergando o obvio......
USUARIO.EXCLUIDOS 16/09/2006 19:05:45
#171895
Estou com o codigo no evento Click do list
CLEVERSON.F 16/09/2006 19:33:43
#171898
tem q ser no evento item_click
USUARIO.EXCLUIDOS 16/09/2006 19:42:09
#171900
preciso ao clicar no list transportar os dados da pesquisa para outros textbox........
USUARIO.EXCLUIDOS 16/09/2006 21:55:00
#171918
qual o erro que ta dando?? em qual linha?
CAIO.IN.DUST 17/09/2006 02:07:06
#171953 Resposta escolhida
Fera montei um exemplo vc se é isso...
é bem simples de entender...
USUARIO.EXCLUIDOS 17/09/2006 14:10:08
#171994
Caio valeu tão simples e funcional , muito obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar