Cadastrar 10 nomes de uma só vez
Olá amigos, trata-se de uma seleção aleatória de empregados para a realização de um curso interno. Consigo fazer a seleção dos 10 nomes (através da matrícula - efe_matricula). Porém na hora de cadastrar não estou conseguindo e o pior de tudo, meu tempo está se esgotando...
Abaixo segue o código..
Valeu Galera..
<body>
<form id="form1" name="form1" method="post" action="">
<p>
<input type="text" name="Data_foram" id="Data_foram" />
</p>
<p>
<%
dim conn
dim rs
dim SQLStmt
dim varMatricula
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\MC\Randon\base\base.mdb;"
Set RS = Server.CreateObject("ADODB.Recordset")
[b]'Aqui ele seleciona 10 matrículas da tabela TB_EFETIVO(Efe_matricula) aleatórias - está ok realmente trás as 10 matriculas[/b]
SQLStmt = "SELECT TOP 10 TB_Efetivo.efe_matricula, TB_Efetivo.efe_nome, TB_Efetivo.efe_cargo, TB_Efetivo.efe_unidade 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]);"
RS.Open SQLstmt,Conn,adOpenKeyset,adLockOptimistic
While Not RS.EOF %>
<% varMatricula=rs("efe_matricula")
response.Write(varMatricula)%>
<%
RS.AddNew
RS("efe_matricula") = Request.Form(varMatricula)
RS("data_foram") = Request.Form(data_foram)
RS.Update
%>
<%
RS.MoveNext
Wend
RS.close
%>
</p>
</form>
<br />
</body>
</html>
A estrutura da tabela TB_Foram é :
data_foram - Campo data
efe_matricula - numero
Discussão (5)
Carregando comentários...