AJUDA B?SICA COMBOBOX
Boa boite!!!
Cada uma aqui,rs
Pessoal, quero fazer uma pesquisa em um Combobox, se não me falha a memoria, eu já fiz isso uns anos atras.rs, bom, quero que ao clicar ou ao digitar, automaticamente faça a pesquisa e abra o combo se possivel sozinho, tenho esse codigo:
Dim sValue As String
sValue = COM_Nome.Text
If COM_Nome.Text <> [Ô][Ô] Then
If RS_CLIENTES.State = adStateOpen Then RS_CLIENTES.Close
RS_CLIENTES.Open [Ô]SELECT * FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & sValue & [Ô] %[ô][Ô], BD, adOpenDynamic, adLockBatchOptimistic
If RS_CLIENTES.RecordCount > 0 Then
Do While Not RS_CLIENTES.EOF
COM_Nome.AddItem Trim(RS_CLIENTES.Fields([Ô]NOME[Ô]).Value)
RS_CLIENTES.MoveNext
COM_Nome.Text = Trim(sValue)
Loop
End If
End If
***********************************************
chega a trazer o resultado, mais caso eu tenha na tabela o nome: JUJU, ele so aceita se digitar JUJU, e ainda não tras as outras ocorrências que contenham JUJU, já estou fazendo aqui de outra forma, mais a impressão que tenho, é que o evento click do combo não funciona...
valeu
Cada uma aqui,rs
Pessoal, quero fazer uma pesquisa em um Combobox, se não me falha a memoria, eu já fiz isso uns anos atras.rs, bom, quero que ao clicar ou ao digitar, automaticamente faça a pesquisa e abra o combo se possivel sozinho, tenho esse codigo:
Dim sValue As String
sValue = COM_Nome.Text
If COM_Nome.Text <> [Ô][Ô] Then
If RS_CLIENTES.State = adStateOpen Then RS_CLIENTES.Close
RS_CLIENTES.Open [Ô]SELECT * FROM CLIENTES WHERE NOME LIKE [ô]%[Ô] & sValue & [Ô] %[ô][Ô], BD, adOpenDynamic, adLockBatchOptimistic
If RS_CLIENTES.RecordCount > 0 Then
Do While Not RS_CLIENTES.EOF
COM_Nome.AddItem Trim(RS_CLIENTES.Fields([Ô]NOME[Ô]).Value)
RS_CLIENTES.MoveNext
COM_Nome.Text = Trim(sValue)
Loop
End If
End If
***********************************************
chega a trazer o resultado, mais caso eu tenha na tabela o nome: JUJU, ele so aceita se digitar JUJU, e ainda não tras as outras ocorrências que contenham JUJU, já estou fazendo aqui de outra forma, mais a impressão que tenho, é que o evento click do combo não funciona...
valeu
Somente isto para preencher um Combobox.
Dim RS_CLIENTES As New ADODB.Recordset
If RS_CLIENTES.State = adStateOpen Then RS_CLIENTES.Close
RS_CLIENTES.Open [Ô]SELECT * FROM CLIENTES [Ô], db, adOpenDynamic, adLockBatchOptimistic
Do While Not RS_CLIENTES.EOF
COM_Nome.AddItem Trim(RS_CLIENTES.Fields([Ô]NOME[Ô]).Value)
COM_Nome.itemData(COM_Nome.NewIndex) = RS_CLIENTES.Fields([Ô]Codigo[Ô])
RS_CLIENTES.MoveNext
Loop
Para ganhar o foco e abri sozinho.
Private Sub COM_Nome_GotFocus()
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
End Sub
Dim RS_CLIENTES As New ADODB.Recordset
If RS_CLIENTES.State = adStateOpen Then RS_CLIENTES.Close
RS_CLIENTES.Open [Ô]SELECT * FROM CLIENTES [Ô], db, adOpenDynamic, adLockBatchOptimistic
Do While Not RS_CLIENTES.EOF
COM_Nome.AddItem Trim(RS_CLIENTES.Fields([Ô]NOME[Ô]).Value)
COM_Nome.itemData(COM_Nome.NewIndex) = RS_CLIENTES.Fields([Ô]Codigo[Ô])
RS_CLIENTES.MoveNext
Loop
Para ganhar o foco e abri sozinho.
Private Sub COM_Nome_GotFocus()
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
End Sub
Onde está o LIKE????, preciso fazar a pesquisa pelo nome ou parte do nome?!
Executa o código do jeito citado acima.Faça com que o combobox ganhe o foco.
Ai ele vai abrir quando ganha o foco,basta começar a digita sua busca.
Tu ta muito enferrujado.
Ai ele vai abrir quando ganha o foco,basta começar a digita sua busca.
Tu ta muito enferrujado.
kkkkkkkkkkkkkkkkkk, tõ mesmo...rs
mais de 5 anos sem programar... quase nem encontro nada aqui na cochola...rs
obs: ainda uso fb 1.0 kkkkkkkkkkkkkkkkk (agora que ru vai dizer noooooosaaaaaaaa).rs
mais é tipo bicicleta....pera
kkkk
vou ver
obrigado
mais de 5 anos sem programar... quase nem encontro nada aqui na cochola...rs
obs: ainda uso fb 1.0 kkkkkkkkkkkkkkkkk (agora que ru vai dizer noooooosaaaaaaaa).rs
mais é tipo bicicleta....pera
kkkk
vou ver
obrigado
Tá dando permission denied aqui:
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
Já coloquei o ,exdo vb em modo de compatibilidade, já executei como administrador, apaguei a .ddl que cria na pasta do programa, mais ocorre a mesma coisa???
tenho o SP 6 do vb instalado...
valeu
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
Já coloquei o ,exdo vb em modo de compatibilidade, já executei como administrador, apaguei a .ddl que cria na pasta do programa, mais ocorre a mesma coisa???
tenho o SP 6 do vb instalado...
valeu
eu heim, compilei o programa e rodou, mais seu codigo não fez não , somente carregou , mais na hora que eu digito o pedaço do nome, não lista nao... e mais essa agora, para testar tenho que compilar por causa do sendkeys??? nunca vi isso
Private Sub COM_Nome_GotFocus()
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
End Sub
Se ele ganha o focus antes de ser preenchido acontece erro.
No meu não da erro.
Sinceramente,nunca usei combobox para fazer pesquisa.
Uso caixa de texto.
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
End Sub
Se ele ganha o focus antes de ser preenchido acontece erro.
No meu não da erro.
Sinceramente,nunca usei combobox para fazer pesquisa.
Uso caixa de texto.
precisei disso aqui nao:
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
rs
mais valeu
SendKeys [Ô]%[Ô] & [Ô]{DOWN}[Ô]
COM_Nome.ListIndex = 0
rs
mais valeu
Tópico encerrado , respostas não são mais permitidas