POR QUE MOVELAST NAO FUNCIONA?
Olá.
O banco de dados é Access e a chave da tabela é auto-incrementada.
Por que o MoveLast não funciona e gera ume erro no código abaixo? MoveFirst e MoveNext funciona bem.
Alguém sabe?
Obrigado.
O banco de dados é Access e a chave da tabela é auto-incrementada.
Por que o MoveLast não funciona e gera ume erro no código abaixo? MoveFirst e MoveNext funciona bem.
Alguém sabe?
Obrigado.
Set RS = New ADODB.Recordset
SQL = [Ô]SELECT * FROM Tabela ORDER BY Cod[Ô]
Set adoComando = New ADODB.Command
With adoComando
.ActiveConnection = Conexao
.CommandType = adCmdText
.CommandText = SQL
Set RS = .Execute
End With
RS.MoveLast
MsgBox RS!Cod
Qual erro que gera?
Citação::
Qual erro que gera?
Gera essa mensagem:
[Ô]O conjunto de linhas não oferecer suporte para busca regressiva.[Ô]
Especifique um cursor ao RecordSet. Por exemplo, adOpenKeyset ou adOpenStatic.
Set Rs = New ADODB.Recordset
SQL = [Ô]Select * From Tabela where cod=(select max(cod) from Tabela)[Ô]
Set adoComando = New ADODB.Command
With adoComando
.ActiveConnection = Conexao
.CommandType = adCmdText
.CommandText = SQL
Set Rs = .Execute
End With
[ô]Rs.MoveLast
MsgBox Rs!Cod
Tente assim.
SQL = [Ô]Select * From Tabela where cod=(select max(cod) from Tabela)[Ô]
Set adoComando = New ADODB.Command
With adoComando
.ActiveConnection = Conexao
.CommandType = adCmdText
.CommandText = SQL
Set Rs = .Execute
End With
[ô]Rs.MoveLast
MsgBox Rs!Cod
Tente assim.
Tópico encerrado , respostas não são mais permitidas