LOOP NO INSERT INTO
Olá galera do VBManiia,Boa tarde a todos!!
Preciso de uma ajuda de vocês.
Estou fazendo um insert numa tabela com os eguintes campos:(dtReference,idImportOperation,idEps,btValidated)
preciso inserir 12 linhas na tabela, por padrão a coluna idImportOperation repete o valor 1 até a 5 linha apartir dai as outras 7 linhas dessa coluna ,conta a sequência do valor 1,ex.2,3,4,5,6,7,8. E na coluna idEps conta o valor 1 até 5 na quinta linha,aprtir dai as outras linhas ficam com o valor 0 e a coluna btValidated por padrão valores 0.
Bom consegui fazer o código da forma que esta ai embaixo porém consigo por padrão inserir com valores definidos numa variavel.Porém dessa forma que mencionei não estou conseguindo,preciso da ajuda de vocês.
Muito agrdecido
Abaixo segue o layout da tabela ,da forma que ela tem armazenar os dados.
idReference | dtReference | idImportOperation | idEps | btValidated
13 01/10/10 1 1 0
21 01/10/10 1 2 0
29 01/10/10 1 3 0
49 01/10/10 1 4 0
50 01/10/10 1 5 0
51 01/10/10 2 0 0
52 01/10/10 3 0 0
53 01/10/10 4 0 0
17 01/10/10 5 0 0
18 01/10/10 6 0 0
19 01/10/10 7 0 0
20 01/10/10 8 0 0
Abaixo segue o meu código:
Dim locImportOperation As Integer
Dim locEps As Integer
Dim locValidated As Integer
idImportOperation = 1
locEps = 1
locValidated = 0
For i =1 To 12
Set rstImport = clsSystemDataClass.Connection.Execute([Ô]INSERT INTO tblSYSImportReference(dtReference,idImportOperation,idEps,btValidated)[Ô] _
& [Ô] VALUES([ô][Ô] & txtDtReferenceMonth & [Ô][ô],[Ô] & idImportOperation & [Ô],[Ô] & locEps & [Ô], [Ô] & locValidated & [Ô])[Ô])
Next i
[ô]====================================================
Preciso de uma ajuda de vocês.
Estou fazendo um insert numa tabela com os eguintes campos:(dtReference,idImportOperation,idEps,btValidated)
preciso inserir 12 linhas na tabela, por padrão a coluna idImportOperation repete o valor 1 até a 5 linha apartir dai as outras 7 linhas dessa coluna ,conta a sequência do valor 1,ex.2,3,4,5,6,7,8. E na coluna idEps conta o valor 1 até 5 na quinta linha,aprtir dai as outras linhas ficam com o valor 0 e a coluna btValidated por padrão valores 0.
Bom consegui fazer o código da forma que esta ai embaixo porém consigo por padrão inserir com valores definidos numa variavel.Porém dessa forma que mencionei não estou conseguindo,preciso da ajuda de vocês.
Muito agrdecido
Abaixo segue o layout da tabela ,da forma que ela tem armazenar os dados.
idReference | dtReference | idImportOperation | idEps | btValidated
13 01/10/10 1 1 0
21 01/10/10 1 2 0
29 01/10/10 1 3 0
49 01/10/10 1 4 0
50 01/10/10 1 5 0
51 01/10/10 2 0 0
52 01/10/10 3 0 0
53 01/10/10 4 0 0
17 01/10/10 5 0 0
18 01/10/10 6 0 0
19 01/10/10 7 0 0
20 01/10/10 8 0 0
Abaixo segue o meu código:
Dim locImportOperation As Integer
Dim locEps As Integer
Dim locValidated As Integer
idImportOperation = 1
locEps = 1
locValidated = 0
For i =1 To 12
Set rstImport = clsSystemDataClass.Connection.Execute([Ô]INSERT INTO tblSYSImportReference(dtReference,idImportOperation,idEps,btValidated)[Ô] _
& [Ô] VALUES([ô][Ô] & txtDtReferenceMonth & [Ô][ô],[Ô] & idImportOperation & [Ô],[Ô] & locEps & [Ô], [Ô] & locValidated & [Ô])[Ô])
Next i
[ô]====================================================
Dim locImportOperation As Integer
Dim locEps As Integer
Dim locValidated As Integer
idImportOperation =0
locEps = 0
locValidated = 0
For i =1 To 12
idImportOperation = idImportOperation + 1
If idImportOperation < 5 Then
locEps = locEps + 1
idImportOperation = 1
Else
locEps = 0
End If
Set rstImport = clsSystemDataClass.Connection.Execute([Ô]INSERT INTO tblSYSImportReference(dtReference,idImportOperation,idEps,btValidated)[Ô] _
& [Ô] VALUES([ô][Ô] & txtDtReferenceMonth & [Ô][ô],[Ô] & idImportOperation & [Ô],[Ô] & locEps & [Ô], [Ô] & locValidated & [Ô])[Ô])
Next i
Oi Marcelo valeu por responder meu tópico,porém a tabela com seu código ,esta carregando dessa forma.
Teria que ser da forma que mencionei lá encima .Grato
idReference dtReference idImportOperation idEps btValidated
235 01/2010 1 2 0
236 01/2010 1 3 0
237 01/2010 1 4 0
238 01/2010 1 5 0
239 01/2010 1 6 0
240 01/2010 1 7 0
241 01/2010 1 8 0
242 01/2010 1 9 0
243 01/2010 1 10 0
244 01/2010 1 11 0
245 01/2010 1 12 0
246 01/2010 1 13 0
Teria que ser da forma que mencionei lá encima .Grato
idReference dtReference idImportOperation idEps btValidated
235 01/2010 1 2 0
236 01/2010 1 3 0
237 01/2010 1 4 0
238 01/2010 1 5 0
239 01/2010 1 6 0
240 01/2010 1 7 0
241 01/2010 1 8 0
242 01/2010 1 9 0
243 01/2010 1 10 0
244 01/2010 1 11 0
245 01/2010 1 12 0
246 01/2010 1 13 0
vamos ver se acerto agora
Dim locImportOperation As Integer
Dim locEps As Integer
Dim locValidated As Integer
idImportOperation =0
locEps = 0
locValidated = 0
For i = 1 To 12
If i < 5 Then
locEps = locEps + 1
idImportOperation = 1
ElseIf i = 5 Then
LocEps = i
idImportOperation = 1
ElseIf i > 5 Then
idImportOperation = idImportOperation + 1
locEps = 0
End If
Set rstImport = clsSystemDataClass.Connection.Execute([Ô]INSERT INTO tblSYSImportReference(dtReference,idImportOperation,idEps,btValidated)[Ô] _
& [Ô] VALUES([ô][Ô] & txtDtReferenceMonth & [Ô][ô],[Ô] & idImportOperation & [Ô],[Ô] & locEps & [Ô], [Ô] & locValidated & [Ô])[Ô])
Next i
Valeu cara,agradeço sua ajuda! Fununciou certinho!! Abraços!!
Tópico encerrado , respostas não são mais permitidas