AJUDA COM PESQUISA DAO

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM PESQUISA DAO

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#475033 - 06/07/2017 00:37:36

RDPISA
CATANDUVA
Cadast. em:Junho/2017


Última edição em 06/07/2017 09:45:48 por RDPISA

 Anexos estao visíveis somente para usuários registrados

Ol tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como fao segue codigo abaixo lembrando estou com DAO e usando DATA

Private Sub txtPesquisa_Change()
[]Busca Dinamica
          DataCadastro.Recordset.FindFirst []Cadastro  >= [][] & txtPesquisa & [][][]

          If DataCadastro.Recordset.NoMatch Then
          MsgBox []No encontrado[]
Else
          End If
End Sub

tentei colocar 2 index na tabela mas s funcona o 1  mesmo que eu mude o (DataCadastro.Recordset.FindFirst []Nome >= [][] & txtPesquisa & [][][])
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?



Rogrio D Pinto


#475051 - 06/07/2017 14:33:22

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Mude pelo menos para Ado.
Visite = https://msdn.microsoft.com/pt-br/library/office/ff194787.aspx
Isto para um boto.
Dim criterio As String
Dim ss As DAO.Recordset
Dim Dado As String
Set cnd = OpenDatabase(App.Path & []\Dados.mdb[], False, False)
Set ss = cnd.OpenRecordset([]Banco[], dbOpenDynaset)
Dado = InputBox([]Digite o Nome para Consulta![])
criterio = []Banco like []*[] & Dado & []*[][]
ss.FindFirst criterio
If ss.NoMatch Then
MsgBox [] O Nome  [] & Dado & [] no est Cadastrado[]
Else
txtBusca.Text = ss!Banco
End If



#475052 - 06/07/2017 15:10:45

RDPISA
CATANDUVA
Cadast. em:Junho/2017


Citação:
:
Ol tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como fao segue codigo abaixo lembrando estou com DAO e usando DATA

Private Sub txtPesquisa_Change()
[]Busca Dinamica
          DataCadastro.Recordset.FindFirst []Cadastro  >= [][] & txtPesquisa & [][][]

          If DataCadastro.Recordset.NoMatch Then
          MsgBox []No encontrado[]
Else
          End If
End Sub

tentei colocar 2 index na tabela mas s funcona o 1  mesmo que eu mude o (DataCadastro.Recordset.FindFirst []Nome >= [][] & txtPesquisa & [][][])
Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )?



resolvido... coloquei um boto com o cdigo abaixo

DataEdtPresenca.Recordset.MoveFirst
busca = 0
Do While busca < 2

If DataEdtPresenca.Recordset.RecordCount = 0 Then
MsgBox []No h presenas.[]
busca = 3
ElseIf DataEdtPresenca.Recordset.EOF Then
MsgBox []Este cadastro est sem presenas.[], vbCritical, []Sem presenas[]
busca = 3
ElseIf txtEdtReuProcura.Text = DataEdtPresenca.Recordset!Cadastro Then
txtTurma = DataEdtPresenca.Recordset!Turma
txtDataReuniao = DataEdtPresenca.Recordset!Presena
txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro
txtEdtreunome = DataEdtPresenca.Recordset!Nome
busca = 3

ElseIf txtEdtReuProcura = DataEdtPresenca.Recordset!Nome Then
txtTurma = DataEdtPresenca.Recordset!Turma
txtDataReuniao = DataEdtPresenca.Recordset!Presena
txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro
txtEdtreunome = DataEdtPresenca.Recordset!Nome
busca = 3

Else
DataEdtPresenca.Recordset.MoveNext
End If

Loop


Rogrio D Pinto


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por RDPISA em 06/07/2017 15:11:20