Gravar os dados do SELECT top 10

[~= Fidel =~ 0]

Olá amigo, consegui sortear 10 nomes com o seguinte código:

 

SELECT top 10 TB_Efetivo.efe_nome, TB_Efetivo.efe_nome, TB_Efetivo.efe_cargo, TB_Efetivo.efe_unidade, TB_Efetivo.efe_matricula

FROM TB_Efetivo LEFT JOIN TB_Foram ON TB_Efetivo.efe_matricula = TB_Foram.efe_matricula

WHERE (((TB_Foram.efe_matricula) Is Null))

ORDER BY Rnd(Int(Now()*[iD])-Now()*[iD]);

 

Gostaria de saber como faço para gravar esse dados destas 10 pessoas em uma tabela. Listá-las foi fácial agora, guardá-las está sendo impossível...hehehe

 

Agradeço desde já a ajuda de todos..

 

abraço

[Vinicius Ianni 189]

Cria um loop com o resultado desse select e vai inserindo no bd até terminar

Seria algo do tipo:

while not rs.eof
insert ....
rs.movenext
loop
wend

 

Algo assim

[xanburzum 169]

você pode antes de dar um INSERT, verificar se os dados já estão cadastrados, olha um exemplo, bem simples e fácil.

 

    <% ‘incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao

   ‘no BD através de SQL Select if not rs.eof then

   ‘redireciono para incluir_form.asp?msgeof=1 else

   ‘incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1

   ‘e lá receberá um mensagem de sucesso

   Option explicit

   ‘declaro as var

   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert

   ‘recupero todos os dados

   varlogin=trim(request.form(“login”))

   varsenha=trim(request.form(“senha”))

   varemail=trim(request.form(“email”))

   ‘crio a conexao

   %>

   <!–#include file=”conn/conexao1.asp”–>

   <% ‘abrir a conexao

   call abreconexao

   ‘crio o rsselect para verificar se os dados jah estaun cadastrados

   set rsselect=server.createobject(“ADODB.Recordset”)

   ‘crio o SQLselect

   SQLselect=”SELECT login FROM login WHERE login=’”&varlogin&”‘”

   rsselect.open SQLselect,conexao,1,3

   if not rsselect.eof then

   response.redirect(“incluir_form_treina.asp?msgeof=1″)

   set rsselect=nothing

   else

   ‘crio o rsinsert para inseiri os dados no bd

   set rsinsert=server.createobject(“ADODB.Recordset”)

   ‘crio o SQLinsert pra incluir no bd

   SQLinsert=”INSERT INTO login(login,senha,email) values(‘”&varlogin&”‘,’”&varsenha&”‘,’”&varemail&”‘)”

   rsinsert.open SQLinsert,conexao,1,3

   response.redirect(“administracao_treina.asp?msg=1″)

   set rsinsert=nothing

   end if

   call fechaconexao %>