METHOD OR DATA MEMBER NOT FOUND
Por favor alguém poderia me ajudar!
Quando eu cliko no Botão procurar gera o erro METHOD OR DATA MEMBER NOT FOUND e fica selecionado o campo TXTNOME.
Private Sub cmdProcurar_Click()
If txtNome = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]SGE[Ô]
txtNome.SetFocus
Else
dtgAluno.RecordSource = [Ô]select * from aluno where Nome_do_Aluno like [ô][Ô] & txtNome & [Ô]%[ô][Ô]
dtgAluno.Refresh
End If
End Sub
Quando eu cliko no Botão procurar gera o erro METHOD OR DATA MEMBER NOT FOUND e fica selecionado o campo TXTNOME.
Private Sub cmdProcurar_Click()
If txtNome = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]SGE[Ô]
txtNome.SetFocus
Else
dtgAluno.RecordSource = [Ô]select * from aluno where Nome_do_Aluno like [ô][Ô] & txtNome & [Ô]%[ô][Ô]
dtgAluno.Refresh
End If
End Sub
Isto está acontecendo poque o [Ô]dtgAluno[Ô] não tem .RecordSouce e sim .DataSource.Agora se for um objeto Data ai sim tem.
rs.Open [Ô]select * from aluno where Nome_do_Aluno like [ô][Ô] & txtNome & [Ô]%[ô]
Set dtgAluno.DatSource = rs
rs.Open [Ô]select * from aluno where Nome_do_Aluno like [ô][Ô] & txtNome & [Ô]%[ô]
Set dtgAluno.DatSource = rs
Deu o mesmo erro usando dtgAluno.DataSource e ficou selecionado esse objeto dtgAluno.DataSource.
Tente assim
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
If Text1.Text = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]SGE[Ô]
Text1.SetFocus
Else
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnn
rs.Open [Ô]select codigo,nome,datanasc from aluno where Nome= [ô][Ô] & Text1.Text & [Ô][ô][Ô]
Set dtgAluno.DataSource = rs
End If
End Sub
Private Sub Form_Load()
cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\SeuBanco.mdb;[Ô]
cnn.CursorLocation = adUseClient
End Sub
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
If Text1.Text = [Ô][Ô] Then
MsgBox [Ô]Favor informar o Nome do Aluno![Ô], vbInformation, [Ô]SGE[Ô]
Text1.SetFocus
Else
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnn
rs.Open [Ô]select codigo,nome,datanasc from aluno where Nome= [ô][Ô] & Text1.Text & [Ô][ô][Ô]
Set dtgAluno.DataSource = rs
End If
End Sub
Private Sub Form_Load()
cnn.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\SeuBanco.mdb;[Ô]
cnn.CursorLocation = adUseClient
End Sub
Estou usando o Banco Mysql, será que tem alguma coisa a ver?
Já achei uma outra forma!
Obrigado pela ajuda.
Estarei encerrando o tópico.
Obrigado pela ajuda.
Estarei encerrando o tópico.
Tópico encerrado , respostas não são mais permitidas