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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Max SQL
22
ASD
AS - BRASIL
Postada em 08/06/2004 14:48 hs            
E ai pessoal que gosta de queimar massa cefálica como eu, to tentando pegar o último registro de uma tb em sql e listar o conteúdo do último registro somado com 1 no formúlário só que não esta funcionando queria saber se alguém pode me ajudar!!
 
Desde já grato
 
 
TÓPICO EDITADO
   
ACG1504
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
ENUNCIADA !
Postada em 08/06/2004 14:51 hs            
select max(codigo) as cod from clientes
if cod = 0 then
   cod  = 1
else
   cod = cod + 1
end if
   
^HEAVY-METAL^
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 08/06/2004 14:52 hs            
A rotina SQL seria assim "SELECT Max(campo) as Ncampo from tabela"  , depois na variável Ncampo some mais 1 ..
 
Espero ter ajudado...
 
 

Manuel F. L. Sansoni

Supervisor de TI

 

     
MasterPrint
MIRANDOPOLIS
SP - BRASIL
Postada em 08/06/2004 20:16 hs            
Se você tem um campo autonumerável, pode usar:
Public Function fGrava_Busca()  'OK
    'grava e busca o último registro
    'Tabela Codigo -> Trimestre, Ano, Grupo e Ocorrencia (Cod - fornecido pelo BD)
    With DataEnv
    cSQL = "INSERT INTO Codigo (Trimestre, Ano, Grupo, SubGrupo, Ocorrencia) VALUES (" & tpDados.vTrim & ", " & _
            tpDados.vAno & ", '" & tpDados.vGrupo & "', '" & tpDados.vGrCod & "', '" & tpDados.vOcorrencia & "')"
    'comando para gravação
        .ConectaBD.Execute cSQL, , adCmdText
    'COMANDO PARA PEGAR O VLR. DO COD
        .rsCodigo.Open ("SELECT @@IDENTITY")
        tpDados.vCod = .rsCodigo(0)
        .rsCodigo.Close
    End With
End Function

Se não, pode utilizar:
Public Function BuscaAnterior()

Dim cSQLBA1 As String

cSQLBA1 = "SELECT TOP 1 * from Geral ORDER BY AProtocolo desc, NProtocolo desc"
    Dados.rsGeral.Open cSQLBA1, , adOpenDynamic, adLockOptimistic
    
    If IsNull(Dados.rsGeral!NProtocolo) Then
        NAnterior = 0
    Else
        NAnterior = Dados.rsGeral!NProtocolo
    End If
    
    Dados.rsGeral.Close
    
    frmPrincipal.lblNProtocolo.Caption = NAnterior
    NAnterior = (NAnterior + 1)
    frmPrincipal.lblNProtocolo.Caption = NAnterior
    
End Function

Boa sorte e t+

Feliz aquele que passa o que sabe e aprende o que ensinaEmoçõesEmoçõesEmoções
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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