none
Inserir Action em Button RRS feed

  • Pergunta

  • Galera seguinte gostaria de inserir dados atraves de uma 'Text' (type=text) em uma tabela no Sql-Server 2000

    Mas estou tendo alguns problemas vou colocar o codigo abaixo pra quem quiser comprender melhor...

    Por exemplo quero ter uma text ao inserir por exemplo um nome nela ela , ele execute um INSERT INTO e jogue o valor na tabela codigo abaixo ....

     

     

     

    <HTML>

    <HEAD>

    <TITLE>Curso de ASP</TITLE><% @ LANGUAGE= VBSCRIPT %>

    </HEAD>

    <BODY>

    <%

    Dim DbConn ,RsNome

    Dim Sql

    on error resume next

    Set Dbconn = Server.CreateObject("ADODB.Connection")

    Set RsNome =Server.CreateObject("ADODB.Recordset")

    Sql ="execute SPR_ASP_SAMPLE"

    DbConn.Open "Provider=SQLOLEDB;Data Source=MYBASE\SQL2000;Initial Catalog=baseteste;Integrated Security=SSPI"

    set RsNome =Dbconn.Execute(Sql)

    %>

    <table align ="left" border =1 ID="Table1">

    <tr>

    <th>Nome</th>

    <th>Idade</th>

    <th>Sexo</th>

    </tr>

    <%

    Do While Not RsNome.EOF

    %>

    <tr>

    <td><%Response.write RsNOME(0)%></td>

    <td><%Response.write RsNOME(1)%></td>

    <td><%Response.write RsNOME(2)%></td>

     

    </tr>

    <%

    RsNOME.MoveNext

    Loop

    RsNome.Close

    DbConn.Close

    Set Dbconn = Nothing

    set RsNome = Nothing

    %>

     

    <%

    If IsEmpty( Request.Form("submit") ) Then

    %>

    <form method=post action="<%=Request.ServerVariables("script_name")%>" ID="Form1">

    <table border=0 width="80%" align=center ID="Table2">

    <tr>

    <td align=right valign=top><font face="Arial" size="2">NOME:</font></td>

    <td align=left valign=top>

    <font face="Arial" size="2">

    <input type=text name="NOME_ASP" value="" size=15 maxlength=50 style="{<font-family:Arial; font-size:12}" ID="Text1">

    </td>

    </tr>

    <tr>

    </tr>

    </font>

    </table>

    <center><input type=submit name=submit value=Incluir style="{<font-family:Arial; font-size:12}" ID="Submit1"></center>

    </form>

    <%

    Else

    If Not IsEmpty(Request.Form("submit")) Then

    DbConn.Open "Provider=SQLOLEDB;Data Source=MYBASE\SQL2000;Initial Catalog=baseteste;Integrated Security=SSPI"

    nome = "Pedro"

    ComandoSQL = "INSERT INTO TBL_ASP VALUE (" & request("nome") & ")"

    set RsNome =Dbconn.Execute(ComandoSQL)

    RsNome.Close

    DbConn.Close

    Set Dbconn = Nothing

    set RsNome = Nothing

    Response.Write("Zangirolami")

    %>

    <font face="Arial" size="2">

    <center><br>Os dados foram enviados com sucesso!

    <br><a href="index.asp"><b>Clique aqui</b></a> para continuar</font></center>

    <%

    Else

    %>

    <font face="Arial" size="2">

    <center><br>Atenção: Alguns dados necessário não foram preenchidos corretamente

    <br><a href="BLOCKED SCRIPThistory.go(-1)"><b>Clique aqui</b></a> para voltar</font></center>

    <%

    End If

    End If

    %>

    terça-feira, 25 de setembro de 2007 16:59

Todas as Respostas

  • Nao entendi uma coisa, voce tem um campo text, o usuario esta entrando com os dados, voce quer que o proprio input text faca a inclusao no banco? Se for isso, como que o input text saberá em qual momento o usuario terminou de digitar a informaçao para poder fazer o insert?

     

    Abraços

     

    Estevam

    quarta-feira, 26 de setembro de 2007 13:52
  • Me esqueci de criar o button mas logicamente depois que ele ciclar no button liberar a função do insert..

    alguma ideia .?

    quinta-feira, 27 de setembro de 2007 19:11
  • Se voce quer fazer só com ASP o que vem em minha mente agora, é com JS no onclick do button voce chama uma outra página passando o parâmetro do imput text, essa outra pagina voce faz todo o processamento e dpois com JS da um refresh na pagina que a abriu e fecha a pagina de processamento, entendeu?

    Agora da pra fazer com Ajax também, mas de AJAX to fraquinho ainda.

     

    Abraços

     

    Estevam

    quinta-feira, 27 de setembro de 2007 20:13