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

Question

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?

Answer 1

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 ([e-mail] ou [e-mail]).

Espero ter atendido.

Sem mais.

---

________________________________ Paulo Cesar [e-mail]