PESQUISAR
Boa Noite, tenho um banco de dados com o nome de alguns alunos com o numero de chamada como faço para listar o nome em um DBgrid de todos que estão cadastrados , e quando localizar o nome clicar em cima 2 vezes e preencher os textbox do form com os dados do aluno??
Obrigado desde Já
Obrigado desde Já
bom dia raleco
para eu pesquisar os dados eu faco assim.
[txt-color=#e80000]Private Sub TXTCPLACET_Change()
[ô]pesquisa por codigo
Dim mSQL As String
Dim campo As String
Dim Criterio As String
Criterio = Chr$(39) & TXTCPLACET.Text & [Ô]%[Ô] & Chr$(39)
mSQL = [Ô]SELECT * FROM cadastro WHERE placet LIKE [Ô] & Criterio & [Ô] [Ô]
data1.ConnectionString = [Ô]provider=microsoft.jet.oledb.4.0;[Ô] & [Ô]data source=[Ô] & App.Path & [Ô]\procedimento.mdb[Ô] & [Ô];[Ô]
data1.RecordSource = mSQL
data1.Refresh
Set DbGrid1.DataSource = data1
End Sub[/txt-color]
e para carregar os campos.
[txt-color=#0000f0]Private Sub DbGrid1_DblClick()
[ô]carrega os campos
SSTab1.Tab = 0
txtseq = DATA1.Recordset.Fields([Ô]seq[Ô]) & [Ô][Ô]
Cbosetor = DATA1.Recordset.Fields([Ô]setor[Ô]) & [Ô][Ô]
txtdtcad = DATA1.Recordset.Fields([Ô]cadastro[Ô]) & [Ô][Ô]
TXTNF = DATA1.Recordset.Fields([Ô]nf[Ô]) & [Ô][Ô]
CBOREFENT = DATA1.Recordset.Fields([Ô]referencia[Ô]) & [Ô][Ô]
txtforn1 = DATA1.Recordset.Fields([Ô]forn1[Ô]) & [Ô][Ô]
end sub[/txt-color]
eu faco isso acima agora o que voce tem que fazer é fazer a sua maneira, o mode de fazer é este.
espero ter ajudado e qualquer coisa poste aÃ...
para eu pesquisar os dados eu faco assim.
[txt-color=#e80000]Private Sub TXTCPLACET_Change()
[ô]pesquisa por codigo
Dim mSQL As String
Dim campo As String
Dim Criterio As String
Criterio = Chr$(39) & TXTCPLACET.Text & [Ô]%[Ô] & Chr$(39)
mSQL = [Ô]SELECT * FROM cadastro WHERE placet LIKE [Ô] & Criterio & [Ô] [Ô]
data1.ConnectionString = [Ô]provider=microsoft.jet.oledb.4.0;[Ô] & [Ô]data source=[Ô] & App.Path & [Ô]\procedimento.mdb[Ô] & [Ô];[Ô]
data1.RecordSource = mSQL
data1.Refresh
Set DbGrid1.DataSource = data1
End Sub[/txt-color]
e para carregar os campos.
[txt-color=#0000f0]Private Sub DbGrid1_DblClick()
[ô]carrega os campos
SSTab1.Tab = 0
txtseq = DATA1.Recordset.Fields([Ô]seq[Ô]) & [Ô][Ô]
Cbosetor = DATA1.Recordset.Fields([Ô]setor[Ô]) & [Ô][Ô]
txtdtcad = DATA1.Recordset.Fields([Ô]cadastro[Ô]) & [Ô][Ô]
TXTNF = DATA1.Recordset.Fields([Ô]nf[Ô]) & [Ô][Ô]
CBOREFENT = DATA1.Recordset.Fields([Ô]referencia[Ô]) & [Ô][Ô]
txtforn1 = DATA1.Recordset.Fields([Ô]forn1[Ô]) & [Ô][Ô]
end sub[/txt-color]
eu faco isso acima agora o que voce tem que fazer é fazer a sua maneira, o mode de fazer é este.
espero ter ajudado e qualquer coisa poste aÃ...
Tópico encerrado , respostas não são mais permitidas