CONSULTAR POR CODIGO E POR NOME
como posso fazer um consulta tanto localizando pelo codigo e pelo nome
no momento to usando a função abaixo mas so consulta pelo nome.
Dim procura As String
procura = InputBox("Digite o Registro a ser Consultado!")
If Not procura = "" Then
TBUsuarios.Seek procura
' mostra os dados na tela depois de serem encontrados
If Not TBUsuarios.EOF Then
txtusuario.text = TBUsuarios("Usuario")
txtsenha.text = TBUsuarios("Senha")
txtconfirmasenha.text = TBUsuarios("ConfirmaSenha")
Else
MsgBox "Registro Não Encontrado!", vbExclamation, "Atenção"
TBUsuarios.MoveFirst
End If
no momento to usando a função abaixo mas so consulta pelo nome.
Dim procura As String
procura = InputBox("Digite o Registro a ser Consultado!")
If Not procura = "" Then
TBUsuarios.Seek procura
' mostra os dados na tela depois de serem encontrados
If Not TBUsuarios.EOF Then
txtusuario.text = TBUsuarios("Usuario")
txtsenha.text = TBUsuarios("Senha")
txtconfirmasenha.text = TBUsuarios("ConfirmaSenha")
Else
MsgBox "Registro Não Encontrado!", vbExclamation, "Atenção"
TBUsuarios.MoveFirst
End If
Tente usar uma instrução SQL,por exemplo:
Sub Localiza_Nome(sNome As String, sCode As String)
Dim sResult As String
Dim rsDados As Recordset
Dim db As Database
sResult = "SELECT * FROM tabela WHERE nome='" & sNome & "' and codigo='" & sCode & "'"
Set db = dbengine.OpenDatabase("Caminho fÃsico do banco de dados")
Set rsDados = db.OpenRecordset(sResult)
If Not IsNull(rsDados!nome) And Not IsNull(rsDados!codigo) Then
'usuário e código existem
Else
'usuário e código não existem
End If
End Sub
Sub Localiza_Nome(sNome As String, sCode As String)
Dim sResult As String
Dim rsDados As Recordset
Dim db As Database
sResult = "SELECT * FROM tabela WHERE nome='" & sNome & "' and codigo='" & sCode & "'"
Set db = dbengine.OpenDatabase("Caminho fÃsico do banco de dados")
Set rsDados = db.OpenRecordset(sResult)
If Not IsNull(rsDados!nome) And Not IsNull(rsDados!codigo) Then
'usuário e código existem
Else
'usuário e código não existem
End If
End Sub
só uma coisa...
no lugar de AND, use OR, senão terá que ter os dois dados para retornar alguma coisa... pelo que entendi, HLERA quer procurar OU por Código, OU por nome.
sResult = "SELECT * FROM tabela WHERE nome='" & sNome & "' OR codigo='" & sCode & "'"
no lugar de AND, use OR, senão terá que ter os dois dados para retornar alguma coisa... pelo que entendi, HLERA quer procurar OU por Código, OU por nome.
sResult = "SELECT * FROM tabela WHERE nome='" & sNome & "' OR codigo='" & sCode & "'"
para falar a verdade, poderia ter apenas um parà ¢metro na função: usando o mesmo para os dois testes. assim HLERA passaria apenas o que foi digitado, indiferente de ser código ou nome
Tópico encerrado , respostas não são mais permitidas