Truques e Dicas - Tutoriais de ASP

tutoriais

Photoshop

ASP

PHP

jogos

Galerias

fóruns

Flash

TUTORIAIS DE ASP

3. Conectividade com Base de Dados-Inserir Dados

Página:

O passo que se segue, é inserir dados na nossa Base de Dados AUTHORS, com uma única tabela (Authors) e com 4 campos:

SEQUENT- Chave numérica de criação automática
NR_ID - Numero de Autor
NOME - Nome do Autor
ANONASC - Ano de nascimento do Autror

Para isso digitámos o seguinte código:

<%@LANGUAGE = vBScript %>
<% OPTION EXPLICIT %>

<%
Dim oconn
Dim filepath
Dim Ors
DIM SQLStr
%>
<%
filepath=Server.MapPath("authors.mdb")
Set oconn = Server.CreateObject("ADODB.CONNECTION")
oconn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
set ors=Server.CreateObject("ADODB.Recordset")
%>

<div align="center">
<center>
<table border="1" width="440" bgcolor="#00CCFF">
<tr>
<td width="100%"><font face="Arial"><b><CENTER>AUTORES - INSERIR NOVOS REGISTOS</b></font></CENTER><br><br>
</center>
<table border="1" width="96%">
<tr>

<FORM ACTION="ins.asp" METHOD="POST">

<center>
<table border="1" width="400">
<tr>
<td width="100"><font face="Arial">Numero :</font></TD>
<TD><input type="text" name="numero" size="5"> </td>
</tr>
<tr>
<td width="100"><font face="Arial">Nome :</font></TD>
<TD><input type="text" name="nome" size="20"></td>
</tr>
<tr>
<td width="100"><font face="Arial">Ano :</font></TD>
<TD><input type="text" name="data" size="4"> </td>
</tr>
</table>
<input type="submit" name="inser" value="INSERIR">
</center>
</div>

<%
if request.form("inser")<>"" then
if (request.form("numero")<>"" and request.form("nome")<>"" and request.form("data")<>"") then
inserir
end if
end if
%>

</FORM>
</td>
</tr>
</table>

</table>
</div>

<%Sub inserir()%>
<%
on error resume next
SQLStr = "insert into authors (NR_ID, AUTOR, ANONASC) "
SQLStr = SQLStr & "VALUES('" & Server.HTMLEncode(request.form("numero")) & "', '"
SQLStr = SQLStr & Server.HTMLEncode(request.form("nome")) & "', '" & Server.HTMLEncode(request.form("data")) & "')"
oconn.execute SQLStr
%>

<%End Sub%>

</BODY>
</HTML>

O resultado quando accionamos o PWM é a imagem que se segue, e sempre que preenchermos os 3 campos e clicarmos em inserir, teremos criado um novo registo na Tabela.

Seguinte

ANÚNCIOS