PESQUISAR USANDO INPUTBOX
Não encontro na Web (português) nada que faça um novato (mesmo novato) entender como se cria um código que usando INPUTBOX, localize NOS VÃ ÂRIOS CAMPOS DE UMA TABELA, a partir da Caixa de texto respectiva, QUE RECEBE O FOCO no FORM. Será possivel disponibilizar em codigo ou exemplo para Vb6
um exemplo de INPUTBOX com SQL e ADO
Dim Variavel As String
Dim SQL as String
Variavel = InputBox("Informe o codigo", "Pesquisa")
SQL = "SELECT * FROM Tabela WHERE Codigo = '" & Teste & "'"
SuaConexao.Execute SQL
Dim Variavel As String
Dim SQL as String
Variavel = InputBox("Informe o codigo", "Pesquisa")
SQL = "SELECT * FROM Tabela WHERE Codigo = '" & Teste & "'"
SuaConexao.Execute SQL
Olá Abaclar estou mandando um código ultilizando data
Pesquisa = InputBox("Informe o Nome do Cliente", "Pesquisa")
If Len(Trim(Pesquisa)) Then
Data1.Recordset.FindFirst "Ucase(Nome)=""" & UCase(Pesquisa) & """"
If Data1.Recordset.NoMatch Then
MsgBox "Cliente não cadastrado", vbCritical, "Erro de Pesquisa"
Else
Text1 = Data1.Recordset.Nome 'Coloca o nome do cliente no text1
End If
End If
qualquer dúvidas é só dizer flw abraços
Pesquisa = InputBox("Informe o Nome do Cliente", "Pesquisa")
If Len(Trim(Pesquisa)) Then
Data1.Recordset.FindFirst "Ucase(Nome)=""" & UCase(Pesquisa) & """"
If Data1.Recordset.NoMatch Then
MsgBox "Cliente não cadastrado", vbCritical, "Erro de Pesquisa"
Else
Text1 = Data1.Recordset.Nome 'Coloca o nome do cliente no text1
End If
End If
qualquer dúvidas é só dizer flw abraços
um exemplo de INPUTBOX com SQL e ADO
Dim Variavel As String
Dim SQL as String
Variavel = "&" InputBox("Informe o nome", "Pesquisa") & "%"
SQL = "SELECT * FROM Tabela WHERE Codigo Like '" & Teste & "'"
SuaConexao.Execute SQL
'assim, se tiver ROBERTO SYLAH DA SILVA RODRIGUES
basta digitar uma parte do nome SYLAH, ou DA SILVA RODRIGUES
que a consulta encontra..
Dim Variavel As String
Dim SQL as String
Variavel = "&" InputBox("Informe o nome", "Pesquisa") & "%"
SQL = "SELECT * FROM Tabela WHERE Codigo Like '" & Teste & "'"
SuaConexao.Execute SQL
'assim, se tiver ROBERTO SYLAH DA SILVA RODRIGUES
basta digitar uma parte do nome SYLAH, ou DA SILVA RODRIGUES
que a consulta encontra..
Peço-vos um pouco mais de paciência é que eu tenho mesmo muito poucos conhecimentos.
Nos código apresentados pelo Germanir e Screech qd escrevem "Sua Conexao", referem-se á variavel de conexao (Dim Conexao as New Connection), logo "Sua Conexao" = Conexao.Execute (SQL) Correcto?
No código apresentado pelo Germanir em "Variavel/CaixaPesquisa = "&" Inputbox dá erro em "&" eliminado isto o programa corre, no entanto não sei se localiza uma vez que não vai para a posição localizada.
Na fonte apresentada pelo Jackass, tenho um código parecido que funciona no entanto só faz busca no campo indicado neste caso no Campo "NOME"
Private Sub cmdFind_Click()
Dim Busca As String
Busca = InputBox("Insira o elemento que pretende encontrar!", "LOCALIZAR")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nome=" & "'" & Busca & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox "Este elemento não foi encontrado. Possivelmente não existe!", vbCritical, "RESPOSTA Ã Â SUA BUSCA"
Adodc1.Recordset.MoveLast
End If
End Sub
Agora o problema põe-se
Adodc1 = Conexao Correcto?
Haja paciência e muita ajuda. Páscoa Feliz!
Armando BaÃa
Nos código apresentados pelo Germanir e Screech qd escrevem "Sua Conexao", referem-se á variavel de conexao (Dim Conexao as New Connection), logo "Sua Conexao" = Conexao.Execute (SQL) Correcto?
No código apresentado pelo Germanir em "Variavel/CaixaPesquisa = "&" Inputbox dá erro em "&" eliminado isto o programa corre, no entanto não sei se localiza uma vez que não vai para a posição localizada.
Na fonte apresentada pelo Jackass, tenho um código parecido que funciona no entanto só faz busca no campo indicado neste caso no Campo "NOME"
Private Sub cmdFind_Click()
Dim Busca As String
Busca = InputBox("Insira o elemento que pretende encontrar!", "LOCALIZAR")
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "Nome=" & "'" & Busca & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox "Este elemento não foi encontrado. Possivelmente não existe!", vbCritical, "RESPOSTA Ã Â SUA BUSCA"
Adodc1.Recordset.MoveLast
End If
End Sub
Agora o problema põe-se
Adodc1 = Conexao Correcto?
Haja paciência e muita ajuda. Páscoa Feliz!
Armando BaÃa
Quanto a conexão só faltou:
Dim Conexao as ADODB.Connection
Dim Conexao as ADODB.Connection
Sim Screech. Como não vou desistir descobri que apesar do código correr sem o ADODB este Também faz parte do código. E vou continuar a estudar.
Já está quase. Melhor já faz pesquisa no campo ID, tenho mais 2 campos Nome e Telefone. Alguém tem ideia de como pesquisar nos outros campos?
Private Sub cmdFind_Click()
LimpaCampos
Pesquisa = InputBox("Indique o que pretende Localizar!", "Localizar") & "%"
rst.Close
rst.Open "Select * From Agenda where ID Like '%" & Pesquisa & "%'", cnn, adOpenKeyset, adLockOptimistic
If rst.EOF = True Then
MsgBox "Não encontrei ou não existe esse registo!", vbOKCancel
Else
rst.MoveFirst
Liga_campos_Tab_Form
End If
End Sub
Private Sub cmdFind_Click()
LimpaCampos
Pesquisa = InputBox("Indique o que pretende Localizar!", "Localizar") & "%"
rst.Close
rst.Open "Select * From Agenda where ID Like '%" & Pesquisa & "%'", cnn, adOpenKeyset, adLockOptimistic
If rst.EOF = True Then
MsgBox "Não encontrei ou não existe esse registo!", vbOKCancel
Else
rst.MoveFirst
Liga_campos_Tab_Form
End If
End Sub
Olhe...geralmente é feito o seguinte:
Se a pesquisa for, por exemplo, com 3 campos
Pesquise pelo nome (um checkbox para tal)
Pesquise pelo endereço (um checkbox para tal)
Pesquise pelo telefone (um checkbox para tal)
De acordo com a opção escolhida pelo usuário é feito um IF Then Else ou um Select Case para descobrir qual é a opção!!!
Feito isto é só adequar o SQL com a opção escolhida!!!
Espero ter sido claro
Se a pesquisa for, por exemplo, com 3 campos
Pesquise pelo nome (um checkbox para tal)
Pesquise pelo endereço (um checkbox para tal)
Pesquise pelo telefone (um checkbox para tal)
De acordo com a opção escolhida pelo usuário é feito um IF Then Else ou um Select Case para descobrir qual é a opção!!!
Feito isto é só adequar o SQL com a opção escolhida!!!
Espero ter sido claro
fassa assim.
Dim Busca As String
Busca = InputBox("digite o q deseja pesquissas")
data1.recordset.nomashd=true then
msgbox"registro não encontrado!"
End If
End Sub
Dim Busca As String
Busca = InputBox("digite o q deseja pesquissas")
data1.recordset.nomashd=true then
msgbox"registro não encontrado!"
End If
End Sub
bom o codigo é:
Dim Busca As String
Busca = InputBox("digite o q deseja pesquissas")
if data1.recordset.nomashd=true then
msgbox"registro não encontrado!"
End If
End Sub
[S27]
Dim Busca As String
Busca = InputBox("digite o q deseja pesquissas")
if data1.recordset.nomashd=true then
msgbox"registro não encontrado!"
End If
End Sub
[S27]
Tópico encerrado , respostas não são mais permitidas