PUXAR ULTIMO REGISTRO CADASTRADO

USUARIO.EXCLUIDOS 06/09/2007 11:16:17
#234438
Faça assim:

Dim rsMax as new ADODB.Recordset
rsMax.Open "Select Max(Campo) from Sua_Tabela",Conexao,3

Text1.Text = rsMax(0)

rsMax.Close
set rsMax = nothing
USUARIO.EXCLUIDOS 06/09/2007 15:21:11
#234537
Da um erro na hora que executar o programa:
O erro é nessa linha aqui:
"Select Max(Campo) from Sua_Tabela"

o erro é: Invalid outside procedure
USUARIO.EXCLUIDOS 06/09/2007 15:28:31
#234538
Poste seu código completo de como está fazendo...
USUARIO.EXCLUIDOS 06/09/2007 15:33:11
#234540
Tente assim amigo

Dim rsMax as new ADODB.Recordset
rsMax.Open "Select Max(Campo) as Campo from Sua_Tabela",Conexao,3

Text1.Text = rsMax(0)

rsMax.Close
set rsMax = nothing
Página 2 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar