HTML, JavaScript, PHP, ASP, .Net, C#, MySQL, Ms. SQL ...

Boas práticas para trabalhar com ASP - Parte III

Criando recordsets, executando comandos SQL e destruindo objetos

asp banco de dados boas práticas função insert sql update

Conforme os POSTs anteriores, estou enviando mais uma dica à respeito de Conexão ao Banco de Dados. Desta vez, estarei falando sobre o comando INSERT e UPDATE.

Atualmente, o comando SELECT é utilizado para ler resultados de um banco de dados. Já o INSERT, é um comando para INSERIR dados neste mesmo banco de dados. E para atualizar os dados, temos o UPDATE.

Seguindo os mesmos caminhos do Include CONEXAO.ASP, informado no post Boas práticas para trabalhar com ASP - Parte II ...

 

Arquivo conexao.asp

<%
Dim objConexao
Dim objComando
Dim executa

sub abreconexao()
Set objConexao = CreateObject("ADODB.Connection")
objConexao.commandTimeout=20

'MySQL Localhost
objConexao.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};

Server=localhost;Database=leobredacom; User=root;Password=root;Option=3;"
objConexao.Open
conexao_executa=true
end sub

sub executaconexao(comando)
if conexao_executa=false then
call abreconexao
end if

set objComando = CreateObject("ADODB.Command")
objComando.ActiveConnection = objConexao
objComando.CommandText = comando
objComando.Execute()
Set objComando = Nothing
call fechaconexao
end sub

sub fechaconexao()
objConexao.Close : Set objconexao = Nothing
conexao_executa=false
end sub
%>  

 

O arquivo pagina.asp, fazendo um SELECT, ...

<!--#include file="conexao.asp"-->

Olá, agora são <%=now()%>

<% strSQL = "SELECT ESTADO_DESC FROM TB_ESTADO WHERE PAIS='Brasil' ORDER BY ESTADO_DESC"
   call abreConexao : set objRecordset = CreateObject("ADODB.Recordset") : objRecordset.Open strSQL, objConexao

   while NOT objRecordset.EOF%>

      Estado: <%=ObjRecordset("ESTADO_DESC")%><br />

<% objRecordset.MoveNext : Wend : objRecordset.Close : set objRecordset = Nothing : call fechaConexao%>

 

 

... inserindo e atualizando os resultados utilizando a sub executaConexao().

<!--#include file="conexao.asp"-->

<% strSQL = "INSERT INTO TB_ESTADO (PAIS, ESTADO) VALUES ('Brasil', 'São Paulo')"

   executaConexao(strSQL)

 

   strSQL = "UPDATE TB_ESTADO SET PAIS='Paraguai' WHERE ESTADO_DESC='Assunción'"

   executaConexao(strSQL) %>

 

A própria sub abreConexao() faz a conexão ao banco de dados, e a execução do INSERT (ou UPDATE, conforme a necessidade).

TAGs

ajax arquivo asp boas práticas classe conexão sql connection string cursor location desativar programas erro cs0246 função global.asa global.asax google gráfico include rewriterule upload url amigável url rewrite


2010 - Leonardo Breda