USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Pegar o último registro( SELECT MAX)
Postada em 27/6/2007 por Jailton Sampaio      Clique aqui para enviar email para o autor  jailton_sampaio@hotmail.com
Public Function MaxRecord(pStrTable As String, pStrCampo As String, Optional pStrFiltro As String) As Long
    Dim lRstMax As ADODB.Recordset
    Dim lStrQuery As String
    
    Set lRstMax = New ADODB.Recordset
    
    lStrQuery = "SELECT Max(" & pStrCampo & ") FROM " & pStrTable

    If Trim(pStrFiltro) <> "" Then
        
        lStrQuery = lStrQuery & " WHERE " & pStrFiltro
        
    End If
    
    lRstMax.Open lStrQuery, gConnSiem, adOpenStatic, adLockReadOnly
    
    If lRstMax.EOF Then
        MaxRecord = 1
    Else
        MaxRecord = IIf(IsNull(lRstMax(0).Value), 0, lRstMax(0).Value) + 1
    End If
    
    lRstMax.Close
    
    Set lRstMax = Nothing

End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página