|
<< Listar Registos | Actualizar Registos >>
|
tratar dados >
bases de dados > inserir registos |
|
|
. : : . inserir registos . : : .
|
Pegando no exemplo anterior, vamos alterá-lo para
inserir registos na tabela Aluno da base de dados Alunos. Mais uma vez vamos
recorrer a uma declaração SQL que nos permite inserir dados que é Insert
Into.
Vejamos o exemplo:
|
<HTML>
<HEAD>
<TITLE>Registos de Alunos</TITLE>
</HEAD>
<BODY>
<%
Dim Conn
Dim DsnAccess
Set Conn = Server.CreateObject("ADODB.Connection")
DsnAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BasesDados\Alunos.mdb"
Conn.Open DsnAccess
Dim RS
Set RS = Server.CreateObject ("ADODB.Recordset")
Dim SqlString
SqlString = "Insert Into Aluno (PrimeiroNome, UltimoNome, Email,
DataNascimento) Values ('Jorge', 'Antunes',
'j.antunes@servidor.pt', '1987');"
Set RS = Conn.Execute(SqlString)
%>
</BODY>
</HTML> |
A declaração Insert Into
insere um novo registo nos quatro campos da tabela Aluno com os respectivos
valores (Values).
<< Listar Registos | Actualizar Registos >>
|
