Select multiple

[marcelinho 0]

Ola galera beleza?bom o que eu to com dúvida é no seguinteeu tenho um select multiple e tenho todos do select selecionadoe to precisando inserir no banco mais nao to conseguindo...tentei com for each e não deu certo!!alguem poderia me ajudar nisso ou me dizer o que é melhor pra fazer esse tipo de coisa??obrigado desde ja valeu

[kauebranco 0]

num entendi a sua duvida ... você ta querendo recuperar todos os itens que ele selecionou ?? é isso ?? você pode usar o SPLIT .. se é isso que você ta querendo .. dai depois de separar todos os itens você grava no banco ...

[marcelinho 0]

  num entendi a sua duvida ... você ta querendo recuperar todos os itens que ele selecionou ?? é isso ??

sim sim...ele seleciona todos ai eu queria gravar todos no banco, eu fiz isso:

 

ASP

[*]nAlunos = request.form("alunos")

 

[*]vet = split(nAlunos, ",")

 

[*]for I = LBound(vet) to UBound(vet)

 

[*]nSQL = "INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (" & nIDGrupo & "," & nAlunos & ")"

 

[*]next

 

mas nao esta dando certo nao sei se eu fiz certo!

 

pq eu nao queria salvar tudo numa linha so eu queria salvar um embaixo do outro

[kauebranco 0]

ASP

[*]nAlunos = request.form("alunos")

 

[*]

 

[*]vet = split(nAlunos, ",")

 

[*]

 

[*]for I = 1 to UBound(vet)

 

[*]

 

[*]nSQL = "INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (" & nIDGrupo & "," & vet(I-1) & ")"

 

[*]

 

[*]next

 

tenta isso ...

[kauebranco 0]

só que tem uma coisa né ... depois de atribuir esse valor a variavel nSQL você tem que incluir no banco tb .. a cada passada do LOOP você precisa incluir ...depois da linha do nSQL coloca assim Conexao.Execute(nSQL)sendo que Conexao você troca pelo nome da variavel que você criou o objeto de conexão ....

[marcelinho 0]

eu fiz o que você falou

ai deu o mesmo erro que tava dando

 

ASP

[*]INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (37, 37,42)

 

[*]

 

[*]Microsoft JET Database Engine erro '80040e14'

 

[*]

 

[*]Número de valores da consulta e campos de destino não coincidem.

 

[*]

 

[*]/proenglishidiomas/Cadastros/grupo_alunos/processaCadastro.asp, line 48

 

os dois 37 é do idgrupo e do alunos so pegou o 1 a ser inserido

[marcelinho 0]

esqueci o codigo:

 

ASP

[*]

 

[*]vet = split(nAlunos, ",")

 

[*]for I = 1 to UBound(vet)

 

[*] nSQL = "INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (" & nIDGrupo & "," & vet(I - 1) & ")"

 

[*] nMSG = "Inclusao de cadastro efetuada com sucesso!"

 

[*] response.write nSQL

 

[*] Session("Conn").execute(nSQL) 

 

[*]next

 

[*]

[Mário Monteiro 179]

isso nao pegara todosfor I = 1 to UBound(vet)ainda faltará um e se for so um acho que dará erro pois iria de 1 ate 0 sem informar que é em ordem decrescentetente assim que pega todos semprefor I = LBOUND(vet) to UBound(vet)e no lugar do vet(I - 1) lá no insert poe vet(I)não sei se isso ja resolverá mas pelo menos ja estará mais certo, ai a gente tenta ver se continuar com erros...

[Salgado 4]

Existem alguns errinhos no código

ASP

1. vet = split(nAlunos, ",")
    
   
2. for I = LBount(vet) to UBound(vet)
    
   
3. nSQL = "INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES ("& nIDGrupo &","& vet(I) &");"
    
   
4. nMSG = "Inclusao de cadastro efetuada com sucesso!"
    
   
5. response.write nSQL
    
   
6. Session("Conn").execute(nSQL) 
    
   
7. next
   

Outra coisa, esse nIDGrupo vem também de um Form? Se Sim como ele é selecionado?

[marcelinho 0]

é eu tinha feito desse jeito tbm depois que eu postei aqui e tbm nao deu mto certo nao

 

ASP

[*]INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (37, 37,42)

 

[*]

 

[*]Microsoft JET Database Engine erro '80040e14'

 

[*]

 

[*]Número de valores da consulta e campos de destino não coincidem.

 

[*]

 

[*]/proenglishidiomas/Cadastros/grupo_alunos/processaCadastro.asp, line 48

 

agora ele ta pegando o primeiro

 

Salgado o IdGrupo eu to pegando atraves de um select tbm...mais é o select normal nao o multiple

 

o codigo agora ta do jeito que vcs falaram aqui:

 

ASP

[*]nAlunos = request.form("alunos")

 

[*]vet = split(nAlunos, ",")

 

[*]

 

[*] for I = LBound(vet) to UBound(vet)

 

[*] nSQL = "INSERT INTO tbAuxiliar_Grupos (idgrupo,idaluno) VALUES (" & nIDGrupo & "," & vet(I) & ")"

 

[*]

 

[*] nMSG = "Inclusao de cadastro efetuada com sucesso!"

 

[*]

 

[*]response.write nSQL

 

[*]

 

[*] Session("Conn").execute(nSQL) 

 

[*] Next

[Salgado 4]

Verifica o seu formulário, aparentemente o seu SELECT está passando 2 Ids para o IDGrupo.

[marcelinho 0]

eu verifiquei e esta certinho o select nao tem um pq passar 2 valoresmais eu to tentando ver dinovo!