[Resolvido] Insert pra + de um registro em loop

[champignoncpg 0]

Ae pessoallll

 

Tipo oq rola.....

 

tenhu um form q cadastra os dados do dito cujo bakaninha no BD....

 

agora estou precisando de inserir em "pacotes" ou seja.... criei um select ond insiro qts usuarios eu quiser beleza !!!

 

Ae preciso cadastrar todos de uma vez.... com os msm dados !!!

 

vou postar o CODE aki....

If Request("button") = "Alterar" AND request("jornada") <> "" OR Request("button") = "Alterar" AND request("folga") <> "" OR Request("button") = "Alterar" AND request("aleatorio") <> "" Then

'Loop do vetor
for x= Lbound(novoVetor) to Ubound(novoVetor) // Aki pessoal eh o vetor onde se encontra o registro do pessoa
'response.Write novoVetor(x)

StrOsc = "SELECT * FROM tbl_cadastro_jornada_trabalho WHERE registro_stc = '"&novoVetor(x)&"'" // Aki ele faz o select com o indice , nao se esta certo o local do loop viu gente

Set ObjOsc = DBconnecta.Execute(StrOsc)

strGerencia = "SELECT * FROM tbl_indicadores_la WHERE gra = '"&ObjOsc("Gra") &" '"
Set ObjGerencia = DBconnecta.Execute(strGerencia)

vgra = Request("gra")

vgram = Request("gram")
vgerencia = Request("gerencia")

vinicio_jornada = Request("inicio_jornada")

vfim_jornada = Request("fim_jornada")

' ******************************* Jornada **********************************************************
vdt_movimentacao1 = Request("dt_movimentacao")
vdt_movimentacao = month(vdt_movimentacao1)&"/"&day(vdt_movimentacao1)&"/"&year(vdt_movimentacao1)
vinicio_jornadaAlterada = Request("inicio_jornadaAlterada")

vfim_jornada = Request("fim_jornada")

vfim_jornadaAlterada = Request("fim_jornadaAlterada")


if vinicio_jornada <> Request("inicio_jornadaAlterada") then
vcad_jornada = "sim" 
else 
vcad_jornada = "nao"
end if
if vfim_jornada <> Request("fim_jornadaAlterada") then
vcad_jornada = "sim" 
else 
vcad_jornada = "nao"
end if

' ******************************* FOLGA *************************************************************
vdt_folga1 = Request("dt_folga")
vdt_folga = month(vdt_folga1)&"/"&day(vdt_folga1)&"/"&year(vdt_folga1)
vconfirma_folga = Request("confirma_folga")

' ******************************* ALEATORIO *********************************************************
vdt_aleatorio1 = Request("dt_aleatorio")
vdt_aleatorio = month(vdt_aleatorio1)&"/"&day(vdt_aleatorio1)&"/"&year(vdt_aleatorio1)
vnivel_aleatorio = Request("nivel_aleatorio")

' ********************************************************************************
*******************

vreg_solicitante = vReg

vresponsavel = Request("responsavel")

if vreg_solicitante <> vresponsavel Then
	vorigem = "Terceiro"
End If
if vreg_solicitante = vresponsavel Then
	vorigem = "Normal"
End If
vstatus_solicitacao = "Não"

' INSERT DE CAMPO FORMULARIO -->
vdt_solicitacao = month(date())&"/"&day(date())&"/"&year(date())&" "&Hour(now())&":"&Minute(now())

StrQuery = "INSERT INTO tbl_controle_jornada_trabalho(gra, gram , centro_custo , reg_osc , inicio_jornada , fim_jornada , dt_movimentacao , inicio_jornadaAlterada , fim_jornadaAlterada , reg_solicitante, status_solicitacao, responsavel, origem,dt_folga,confirma_folga,dt_aleatorio,nivel_aleatorio,data_solicitacao,cad
_jornada)VALUES('"&vgra&"', '"&vgram&"', '"&vgerencia&"', '"&ObjOsc("registro_stc")&"', '"&vinicio_jornada&"', '"&vfim_jornada&"', '"&vdt_movimentacao&"', '"&vinicio_jornadaAlterada&"', '"&vfim_jornadaAlterada&"', '"&vreg_solicitante&"', '"&vstatus_solicitacao&"', '"&vresponsavel&"', '"&vorigem&"', '"&vdt_folga&"', '"&vconfirma_folga&"', '"&vdt_aleatorio&"','"&vnivel_aleatorio&"','"&vdt_solicitacao&"', '"&vcad_jornada&"')"

Set ObjRs = DBconnecta.Execute(StrQuery)
next

Eh isso ae... espero q entendammmm

 

Flwww

[narizgudo 0]

De asp não entendo p**** nenhuma, mas vai aí a lógica do negoço

 

Essa linguagem num existe! Antes que me perguntem ^^

É só pra faciliar o entendimento.

 

var usuarios é uma variável com um vetor tipo assim [idDoUsuario1,idDoUsuario2,idDoUsuario3,idDoUsuario4,...,idDoUsuarioN]

 

var usuarios;

var dados[0..10];

para x de 0 ate tamanho(usuarios) faca
	insereNoDb(usuarios[x],dados[0],dados[1],dados[2],dados[3],dados[4],dados[5],dados[6],dados[7],dados[8],dados[9],dados[10]);
fimpara

Abraços =D

[champignoncpg 0]

AE nariz, to garrado ainda huahuahuhua

 

Ta osso aki viW.... se alguem tiver alguma sugestao !!!

[champignoncpg 0]

Eh fi consegui com muito custo, parece q você morreu neh... falo nada

 

O.o

 

Deve tah mau pq nem no msn entro hj hauuahhauh

 

Vo colocar o cod da solução !!!

 

soh vou colocar o loop do insert, pq o cod ta mostruoso aki....

 

for x= Lbound(novoVetor) to Ubound(novoVetor)

StrQuery = "INSERT INTO tbl_controle_jornada_trabalho(gra, gram , centro_custo , reg_osc , inicio_jornada , fim_jornada , dt_movimentacao , inicio_jornadaAlterada , fim_jornadaAlterada , reg_solicitante, status_solicitacao, responsavel, origem,dt_folga,confirma_folga,dt_aleatorio,nivel_aleatorio,data_solicitacao,cad
_jornada)VALUES('"&vgra&"', '"&vgram&"', '"&vgerencia&"', '"&novoVetor(x)&"', '"&vinicio_jornada&"', '"&vfim_jornada&"', '"&vdt_movimentacao&"', '"&vinicio_jornadaAlterada&"', '"&vfim_jornadaAlterada&"', '"&vreg_solicitante&"', '"&vstatus_solicitacao&"', '"&vresponsavel&"', '"&vorigem&"', '"&vdt_folga&"', '"&vconfirma_folga&"', '"&vdt_aleatorio&"','"&vnivel_aleatorio&"','"&vdt_solicitacao&"', '"&vcad_jornada&"')"

Set ObjRs = DBconnecta.Execute(StrQuery)
next

Vlw galerinha