sei la, colocar em um array todos os campos... hehe
é que tenho 30 campos para inserir.. e fazer request de todos, depois fazer o insert de todos... eu sempre me perco...
tem como fazer? alguém tem uma idéia?


Posted 01/11/2004, 22:53
Posted 02/11/2004, 01:21
... Rs.Open "SELECT * FROM Tabela" Rs.AddNew For i = 0 To (Rs.Fields.Count-1) Rs(i) = Request.Form(Rs(i).Name) Next Rs.Update Rs.Close ...A idéia é essa. Pra funcionar, bastaria os campos do formulário terem o mesmo nome dos campos da tabela.
Posted 02/11/2004, 01:29
<%
'Resgata o nome da pessoa que fez login.
strSQL = "SELECT * FROM produtos"
objRS.Open strSQL,DB,3,3
objRS.AddNew
For i = 0 To (objRS.Fields.Count-1)
objRS(i) = Request.Form(objRS(i).Name)
Next
objRS.Update
objRS.Close
%>
Posted 02/11/2004, 01:33
Posted 02/11/2004, 01:46
Posted 03/11/2004, 08:03
Posted 03/11/2004, 09:44
Posted 03/11/2004, 09:58
insert into tabela (id,nome,endereco,telefone) values (1,'prog','natal','2345678') -- é igual a insert into tabela values (1,'prog','natal','2345678')
Posted 03/11/2004, 10:06
Posted 03/11/2004, 11:05
Posted 03/11/2004, 11:07
<input name="<% nome %>" type="text" id="nome">
insert into blablabla (nome) values (nome)
Posted 03/11/2004, 11:15
esse raciocinio soh rola se os campos forem do mesmo tipo...Iporto se vc fizer assim.
no form action vc poe a página que está os campos e os nomes dos campos vc poe assim.<input name="<% nome %>" type="text" id="nome">
e ai na queryinsert into blablabla (nome) values (nome)
Cara não testei nem sei se isso é um raciocinio inteligente, mas até que pode dar certo.
Valew.
Posted 03/11/2004, 11:28
Posted 03/11/2004, 12:21
Posted 03/11/2004, 12:42
<% ... SQL = "INSERT INTO Tabela (" For Each Campo In Request.Form SQL = SQL & Campo & "," Next SQL = Left(SQL,Len(SQL)-1) & ") VALUES (" For Each Campo In Request.Form SQL = SQL & "'" & Replace(Request.Form(Campo),"'","''") & "'," Next SQL = Left(SQL,Len(SQL)-1) & ")" Conexao.Execute SQL ... %>Eu não inseria todos os campos, por isso os listei. Se você for inserir todos, pode fazer como o Prog falou:
<% ... SQL = "INSERT INTO Tabela VALUES (" For Each Campo In Request.Form SQL = SQL & "'" & Replace(Request.Form(Campo),"'","''") & "'," Next SQL = Left(SQL,Len(SQL)-1) & ")" Conexao.Execute SQL ... %>=================
Edição feita por: LeoB, 03/11/2004, 12:44.
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)