-
Total de itens
5 -
Registro em
-
Última visita
Sobre rdpiza
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
rdpiza's Achievements
0
Reputação
-
index Preciso de ajuda com banco de dados (DAO) e pesquisa
pergunta respondeu ao rdpiza de rdpiza em Visual Basic
resolvido... coloquei um botão com o código abaixo DataEdtPresenca.Recordset.MoveFirst busca = 0 Do While busca < 2 If DataEdtPresenca.Recordset.RecordCount = 0 Then MsgBox "Não há presenças." busca = 3 ElseIf DataEdtPresenca.Recordset.EOF Then MsgBox "Este cadastro está sem presenças.", vbCritical, "Sem presenças" busca = 3 ElseIf txtEdtReuProcura.Text = DataEdtPresenca.Recordset!Cadastro Then txtTurma = DataEdtPresenca.Recordset!Turma txtDataReuniao = DataEdtPresenca.Recordset!Presença txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro txtEdtreunome = DataEdtPresenca.Recordset!Nome busca = 3 ElseIf txtEdtReuProcura = DataEdtPresenca.Recordset!Nome Then txtTurma = DataEdtPresenca.Recordset!Turma txtDataReuniao = DataEdtPresenca.Recordset!Presença txtEdtreucodigo = DataEdtPresenca.Recordset!Cadastro txtEdtreunome = DataEdtPresenca.Recordset!Nome busca = 3 Else DataEdtPresenca.Recordset.MoveNext End If Loop- 1 resposta
-
- banco de dados
- dao pesquisa
- (e %d mais)
-
Se você esta usando DAO faça assim lblcadTotal.Caption = DataCadastro.Recordset.RecordCount se for adodc é quase igual só mudar lblcadTotal.Caption = adodcCadastro.Recordset.RecordCount tenta ai..
-
Tentei colocar 2 index na tabela mas só funcona o 1°(Cadastro) o 2°(Nome) não funciona. Mesmo que eu mude o (DataCadastro.Recordset.FindFirst "Cadastro >= '" & txtPesquisa & "'") para (DataCadastro.Recordset.FindFirst "Nome >= '" & txtPesquisa & "'") Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )? Olá tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como faço 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 "Não encontrado" Else End If End Sub
- 1 resposta
-
- banco de dados
- dao pesquisa
- (e %d mais)
-
index Preciso de AJUDA COM PESQUISA Dinamica(DAO)
uma questão postou rdpiza Tutoriais & Dicas - .NET
Tentei colocar 2 index na tabela mas só funcona o 1°(Cadastro) 2°(Nome) mesmo que eu mude o (DataCadastro.Recordset.FindFirst "Cadastro >= '" & txtPesquisa & "'") para (DataCadastro.Recordset.FindFirst "Nome >= '" & txtPesquisa & "'") Porque o que tenho que fazer pra funcionar os 2(Cadastro e o Nome )? Olá tenho uma txtPesquisa_Change que faz pesquia dinamica pelo codigo do cliente mas gostaria que Pesquisa-se pelo nome tmbm como faço 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 "Não encontrado" Else End If End Sub -
Estou com dificuldade tenho um banco de dados com vários nome de usuários e senhas mas quando vou fazer login so consigo logar com o nome de usuario e senha que esta em primeiro no banco de dados os demais não consigo o que esta faltando? O código é mais u menos isso: Public BD As Database 'Banco de Dados Public Colaboradores As Recordset 'Tabela Private Sub Command1_Click() If txtnome.Text = "" Then MsgBox "Digite nome de usuário!" txtnome.Text = "" txtnome.SetFocus End If If txtsenha.Text = "" Then MsgBox "Digite a senha!" txtsenha.Text = "" txtnome.SetFocus End If txtnome.SetFocus If Colaboradores("Nome") = txtnome.Text And Colaboradores("Senha") = txtsenha.Text Then FrmPrincipal.Show Unload Me Else MsgBox "Nome ou senha Incorretos.", vbCritical, "Erro" End If End Sub Private Sub Form_Load() Set BD = OpenDatabase(App.Path & "\login.mdb") Set Colaboradores = BD.OpenRecordset("login", dbOpenTable) End Sub
- 1 resposta