ACCES - COD DUPLICADO

USUARIO.EXCLUIDOS 28/11/2004 18:55:37
#52399
Olá pessoal,

tenho uma função no meu sistema que gera um cód (Meu campo nà o é... e nem pode ser autonumeração) através do ultimo. Eu uso uma SQL com MAX que me retorna o maior codigo, portanto o ultimo! E ai eu incremento e faço o novo cod. O problema é que agora ele tá duplicando. Estamos com quase 8000 registros e ele não tá sendo eficiente em pegar o utlimo.

alguem tem alguma sugestão?
VB6MASTER 29/11/2004 08:07:12
#52441 Resposta escolhida
Eu uso ADO com a seguinte função:
Public Function BuscaAnterior()

Dim cSQLBA1 As String
Dim Contador As Integer
cSQLBA1 = "SELECT TOP 1 NProtocolo, AProtocolo from Geral WHERE AProtocolo = " & _
           Year(Date) & " ORDER BY AProtocolo desc, NProtocolo desc"
    Dados.rsGeral.Open cSQLBA1, , adOpenForwardOnly, adLockReadOnly
    If IsNull(Dados.rsGeral!NProtocolo) Then
        NAnterior = 0
    Else
        NAnterior = Dados.rsGeral!NProtocolo
    End If
    Dados.rsGeral.Close
    NumProt = NAnterior
    tpDados.vNProt = (NAnterior + 1)
    frmPrincipal.lblNProtocolo.Caption = tpDados.vNProt
End Function

Na BD tenho dois campos com chave primária, um numérico e outro q representa o ano em curso.
Tópico encerrado , respostas não são mais permitidas
Voltar