|
<< Inserir Registos | Eliminar Registos >>
|
tratar dados >
bases de dados > actualizar registos |
|
|
. : : . actualizar registos . : : .
|
Ainda tendo como base o exemplo anterior, vamos
alterá-lo para actualizar registos na tabela Aluno da base de dados Alunos.
Mais uma vez vamos recorrer a uma declaração SQL que nos permite actualizar
dados que é Update.
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 = "Update Aluno Set
Email='j.antunes@servidor.pt', DataNascimento='1977'
Where PrimeiroNome='Jorge' "
Set RS = Conn.Execute(SqlString)
%>
</BODY>
</HTML> |
Todo o código se mantém, excepto a
declaração SQL que agora actualiza registos. Esta declaração Update
actualiza o Email e a DataNascimento do registo que tenha como PrimeiroNome
'Tiago', que é definido pela cláusula Where.
Para efectuares estas
alterações não faças como neste exemplo! Em vez de usares o PrimeiroNome de
uma pessoa, usa por exemplo o E-mail ou o número de BI. Isto porque podem
existir dois PrimeiroNome iguais, o que causaria um erro. Enquanto que os
e-mails e o número de BI são mais seguros, pois não existem dois iguais!
Uma declaração de SQL mais segura para actualizar dados seria a seguinte:
|
SqlString = "Update Aluno Set
Email='jorge.antunes@servidor.pt', DataNascimento='1977'
Where Email='j.antunes@servidor.pt' " |
Como podes reparar podes actualizar apenas alguns campos de um
determinado registo, e deixar os outros inalterados como neste exemplo.
<< Inserir Registos | Eliminar Registos >>
|
