Acessando Banco de Dados em CF e em ASP

Para acessar o banco de dados no coldfusion é muito simples. Uma vez que no Administrador ele esteja devidamente configurado então apenas usamos a tag <cfquery></cfquery> para fazer a conexão e dentro dela usamos SQL normalmente para fazer oque desejamos. Essa tag hoje em dia não é mais usada para acessar o banco direto no código, normalmente quando há essa necessidade ela fica dentro de uma função, ou um componente fora da página.

<cfquery name=”q_noticia” datasource=”lucasmarcal”>
SELECT *
FROM noticia
ORDER BY id_noticia
</cfquery>

Em ASP não tem Administrador para configurar, as configurações são feitas no arquivo global.asa que eu quase não vejo em aplicações ASPs por aí pelas empresas da vida... Grandes empresas principalmente, mas a string de conexão eu sempre vejo que ela normalmente é feita num arquivo abrir.asp que fica como include no início dos arquivos e um arquivo fechar.asp fecha a conexão no fim dos arquivos.

1.Iniciando a conexão

Primeiro nós temos que criar o objeto de conexão para que possamos manipular o banco de dados. O nome dele é ADODB.Connection e devemos declará-lo assim no ASP:

Set conexao = Server.CreateObject("ADODB.Connection")

2.Abrindo a conexão

Agora que já temos o objeto, podemos abrir a conexão de fato e deixá-la pronta para abrir o objeto Recordset:

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("test_db.mdb")&";"

3.Iniciando a consulta
Agora vamos iniciar a consulta, o objeto é ADODB.Recordset:

Set add_action = Server.CreateObject ("ADODB.Recordset")

4.Montando a string com o SQL que vai fazer a consulta

strSQL = “select * from tabela”

5.Abrindo a consulta

add_action.Open(“strSQL”, conexao,3,3)

6.Fechando o RecordSet e a conexão

add_action.Close

conexao.Close

7.Eliminando os Objetos criados

Set add_action = Nothing
Set conexao = Nothing

<%

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("test_db.mdb")&";"

Set add_action = Server.CreateObject ("ADODB.Recordset")

strSQL = “select * from tabela”

add_action.Open(“strSQL”, conexao,3,3)

Total = add_action.RecordCount

Response.Write(Total)

add_action.Close

conexao.Close

Set add_action = Nothing
Set conexao = Nothing

%>