LIST ALGUEM PODERIA ME AJUDAR

USUARIO.EXCLUIDOS 29/11/2006 20:55:13
#187062
tenho uam base de dados e fica armazenada em sql...
tenho um text box de pesquisa e quando eu coloco uma letra ele vai filtrando ate chega a pessoa que eu quero..
e fica o nome filtrado em um list mas eu queria dar 2 clik neste list e mandar os dados para a minha tela ..principal..me ajudem.
USUARIO.EXCLUIDOS 29/11/2006 21:03:52
#187065
Colega, vai depender de como vc popula esse list, a melhor forma seria vc dar um loop e add nome a nome, e tb o codigo do registro, esse codigo ficaria na propriedade ItemData, exemplo:

rst.Open "SELECT CODIGO, NOME FROM CLIENTES"
Do While Not rst.EOF
  List1.addItem rst("NOME")
  List1.ItemData(List1.NewIndex) = rst("CODIGO")
  rst.movenext
Loop
rst.Close


Daí na hora do duplo clique:
Private Sub List1_DblClick()
  Form2.txtCodigo = List1.ItemData(List1.ListIndex)
  Form2.Show
End Sub


Qualquer dúvida poste...flw
RSMJD 30/11/2006 13:34:33
#187193
Se você fez uma conexão ADODB digamos que as variaveis de conexão fosse declaradas da seguinte forma:
global cn as ADODB.connection
global rs as ADODB.recordset

voce lista e chega no nome desejado.
ai no Evento dblCLick da listbox coloque os comandos de busca:
ex.:
set rs = cn.execute ("Select * from <tabela> where nome = '" & list1.text & "'")
Qualquer duvida me manda um e-mail
ricardo.s.m@uol.com.br
espero ter ajudado
flw!
USUARIO.EXCLUIDOS 30/11/2006 22:02:36
#187288


eu nao cosigo faze o dados aparecerem na grade ..alguem podeira me ajudar nodupo clik no list para aprecer nos seus camps certinhos

a minha rotina no duplo clik esta assim e da erro na linha da consulta

Text8.Text = List1.List(List1.ListIndex)
sql = "SELECT * from tabidentificacao WHERE " & Txtnom.Text & "'" & Text8.Text & "'"
'TabIdenti.Close
TabIdenti.Open sql, con, adOpenStatic, adLockOptimistic, adCmdText

Set txtcod.DataSource = TabIdenti
txtcod.DataField = "Codigo"
Set Cbosexo.DataSource = TabIdenti
Cbosexo.DataField = "sexo"
Set Txtnome.DataSource = TabIdenti
Txtnome.DataField = "nome"
List1.Enabled = False

'Call Mostrar_dados[txt-color=#000000] [/txt-color]
RSMJD 01/12/2006 11:37:11
#187375
vc esta usando MSFLEXGRIDE?
USUARIO.EXCLUIDOS 01/12/2006 17:52:09
#187494
noa esto usando um list
VB6MASTER 03/12/2006 09:50:06
#187637
Veja bem o que está acontecendo com sua consulta:
Citação:

sql = "SELECT * from tabidentificacao WHERE " & Txtnom.Text & "'" & Text8.Text & "'"


Esta faltando o operador (=, <>, ., <, ...).
sql = "SELECT * from tabidentificacao WHERE '" & Txtnom.Text & "'" & "=" & "' Text8.Text & "'"

Se não for isso, transcreva a mensagem de erro.
Tópico encerrado , respostas não são mais permitidas
Voltar