Pesquisa por: banco de dados

Boas práticas para trabalhar com ASP - Parte III

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

27 de setembro de 2008 22:00376 visitas

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, ...

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().

<% 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).

Boas práticas para trabalhar com ASP - Parte III

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

2010 - Leonardo Breda