Dúvida Insert

Question

Boa Tarde Galera, Estou usando usando um simples Insert "Insert Into Vot_Mais_2007 (Brincalhao) Values(41)" Na minha página ASP, e  estava sendo salva duas linhas na minha tabela com as informações identicas. Segue a pagina completa <% Dim conn, rs, strConn, strInsert, bBtnOpt, cIP_Address, sSelect, cVoto strConn = "Provider=sqloledb;Data Source=192.168.250.2;Initial Catalog=BD_Intranet;User Id=sa;Password=;" Set conn = Server.CreateObject("ADODB.Connection") Set rs   = Server.CreateObject("ADODB.Recordset") conn.Open strConn rs.Open "Vot_Mais_2007", conn strSelect = "Insert Into Vot_Mais_2007 (Brincalhao) Values(41)" Set rs = conn.Execute(strSelect) %> Alguem sabe por que está acontecendo isso? []'s Regazzo

Answer 1

Regazzo, isto aconteça por que o seu código realmente esta inserindo duas vezes, uma com o método:

 

rs.Open "Vot_Mais_2007", conn

 

e outra com

 

Set rs = conn.Execute(strSelect)

 

Retire uma das duas e faça um teste

 

Obs: Aqui voce esta dando um execute na string sql e gravando no recordset, mas como a string nao traz nada o recordset fica em branco.

 

 

Abraços

 

Estevam

Answer 2

Bom dia Luiz,

Fiz o que você me orientou, e os registros continuam sendo salvos em duplicitade.

Alguem sabe tem mais alguma dica?

[]'s
Regazzo

Answer 3

Tente fazer assim:

 

<%

Dim conn, rs, strConn, strInsert, bBtnOpt, cIP_Address, sSelect, cVoto

strConn = "Provider=sqloledb;Data Source=192.168.250.2;Initial Catalog=BD_Intranet;User Id=sa;Password=;"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs   = Server.CreateObject("ADODB.Recordset")

strSelect = "Insert Into Vot_Mais_2007 (Brincalhao) Values(41)"

Set rs = conn.Execute(strSelect)

%>

 

Abraços

 

Estevam