none
Dúvida Insert RRS feed

  • Pergunta

  • 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


    segunda-feira, 3 de dezembro de 2007 20:29

Todas as Respostas

  • 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

    terça-feira, 4 de dezembro de 2007 01:08
  • 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
    terça-feira, 4 de dezembro de 2007 09:28
  • 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

    terça-feira, 4 de dezembro de 2007 11:55