galera to fazendo uma pesquisa utilizando o metodo ado no VB6.......
minha linha de comando é..
rs.Open "Select codigo, nome from Tabela_Clientes_FIREMAN where (nome like '" & cmb_nome_users & "*')", str_conexao, adOpenDynamic, adLockOptimistic
mas ela não me retorna nada..mas testei no Access e funcionou direitinho.......
meu procedure inteiro é esse é esse..
Private Sub cmb_nome_users_LostFocus()
'Variaveis a serem utilizadas
Dim bol_pri As Boolean
'------------------------------------------------------
If cmb_nome_users.Text <> "" Then
rs.Open "Select codigo, nome from Tabela_Clientes_FIREMAN where (nome like '" & cmb_nome_users & "*')", str_conexao, adOpenDynamic, adLockOptimistic
If rs.EOF Then
MsgBox "Usuário não encontrado!", vbInformation + vbOKOnly, "Usuário Não Encontrado"
cmb_nome_users.Text = ""
cmb_nome_users.SetFocus
Else
cmb_nome_users.Text = ""
While Not rs.EOF
If Not bol_pri Then
cmb_nome_users.Text = rs.Fields("nome")
bol_pri = True
Else
cmb_nome_users.AddItem (rs.Fields("nome"))
End If
rs.MoveNext
Wend
rs.MoveFirst
rs.Find "nome = '" & cmb_nome_users.Text & "'"
txt_codigo = rs.Fields("codigo")
End If
rs.Close
End If
End Sub
Pergunta
slipknot
galera to fazendo uma pesquisa utilizando o metodo ado no VB6.......
minha linha de comando é..
mas ela não me retorna nada..mas testei no Access e funcionou direitinho....... meu procedure inteiro é esse é esse..Link para o comentário
Compartilhar em outros sites
6 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.