locked
Incrementar uma Sequencia Automaticamente tendo o primeiro e o último número apenas RRS feed

  • Pergunta

  • Prezados.

    Preciso gerar uma função em que o Banco gere automaticamente os registros entre dois números, possuo apenas o primeiro e o último ex: (001 e 259) preciso que o BD gere um registro para cada um dos números inclusive 001 e 259 automaticamente.

    Como posso fazer isso?

    segunda-feira, 10 de janeiro de 2011 13:43

Todas as Respostas

  • Modelo de código para o evento:

    Private Sub btnEvento_Click()
      
      '      DEFINIÇÃO DE VARIÁVEIS
      
      Dim a, b, cont As Integer
      Dim cmdSQL As String
      
      '      DEFININDO VALORES INICIAIS
      
      a = CInt(Texto1)
      b = CInt(Texto2)
      cont = 0
      
      '      INÍCIO DO LOOP
      
      While cont < b
        infoStatus.Caption = "Inserindo dados em sua base de dados, aguarde..."
        cmdSQL = "INSERT INTO Tabela1 (ID, Coluna1) VALUES " & _
            "(" & a & ", 'Softaccess');"
        Set conn = CurrentProject.Connection
        conn.Execute cmdSQL
        a = a + 1
        cont = cont + 1
      Wend
      
    
    

    Caso queira um arquivo com o modelo de aplicação, me envie um e-mail (paulinhoamc@hotmail.com ou paulo.cesar@mail.com).

    Espero ter atendido.

    Sem mais.


    ________________________________ Paulo Cesar paulo.cesar@mail.com
    • Sugerido como Resposta Paulinhoamc terça-feira, 25 de janeiro de 2011 03:52
    segunda-feira, 17 de janeiro de 2011 05:34