Nenhuma avalição
COMENTAR
INDICAR
Banco de Dados Ms Access Parte 1Postada em: 08/09/2004
Olá, neste artigo mostrarei conexões com o Banco de Dados da Microsoft, o Access.
Primeiramente em nosso código teremos que criar uma váriavel que será nosso objeto de conexão. Ela pode ter o nome de várias formas, mas cuidado com as palavras que não podem ser variáveis.
Vamos declarar a variavel com o comando DIM, vamos chamar ela de "Conn" e logo depois, vamos transformar essa variável em um objeto.
Nosso código ficará assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
%>
Então no código acima transformamos a variável Conn em um objeto de Conexão ADODB.
Em seguida temos que orientar esse objeto à um banco de dados. Atribuimos e abrimos a conexão criando um driver do Access e logo mostraremos onde esta o banco de dados. Caso esteja na pasta raíz de seu site, supomos que o banco esteja lá, iremos dizer que o server.mappath("banco.mdb"), caso esteja em um subdiretório colocaremos server.mappath("diretorio/banco.mdb"). Nosso código ficará assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
%>
Pronto, conectamos com o banco de dados!!!
Agora vamos ver como pesquisar, deletar, incluir e atualizar o banco de dados.
Vamos criar uma tabela no nosso banco de dados chamada cadastro e colocaremos os campos de Nome e Sobrenome.
Nome - tipo: texto
Sobrenome - tipo: texto
Pesquisando
Para podermos pesquisar temos que declarar 2 variáveis , uma estará a nossa String SQL para execução e a outra será nosso objeto ponteiro de dados.
Vamos chamar nosso ponteiro de Rs e transformamos logo em seguida ele em objeto. A nossa String de Conexão vamos chamar de SQL. Para pesquisar os dois campos de nossa tabela temos que criar as strings da seguinte forma.
* nome da tabela nome do campo
Ficando assim:
SQL = "SELECT * FROM cadastro WHERE nome"
então nosso código ficará:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "SELECT * FROM cadastro WHERE nome"
%>
Agora executamos a string SQL ficando o código assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "SELECT * FROM cadastro WHERE nome"
Set Rs = Conn.execute(SQL)
%>
Pronto para retornar alguns dados da tabela, declaramos uma variável e logo indicaremos o objeto de recordset e o nome da coluna do banco de dados:
variavel = {objeto}("nome da coluna")
No caso usaremos com variável a palavra nome. O código fica assim:
<%
//Depois de ter conectado o banco de dados e executado a string SQL
nome = Rs("nome")
response.write nome
%>
No código assim pesquisamos e imprimimos na Tela o valor do campo, se o banco estiver vazio acontecerá um erro. Isso veremos na próximas partes. Para isso preencha o banco com alguns dados.
Na próxima parte veremos mais.
Primeiramente em nosso código teremos que criar uma váriavel que será nosso objeto de conexão. Ela pode ter o nome de várias formas, mas cuidado com as palavras que não podem ser variáveis.
Vamos declarar a variavel com o comando DIM, vamos chamar ela de "Conn" e logo depois, vamos transformar essa variável em um objeto.
Nosso código ficará assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
%>
Então no código acima transformamos a variável Conn em um objeto de Conexão ADODB.
Em seguida temos que orientar esse objeto à um banco de dados. Atribuimos e abrimos a conexão criando um driver do Access e logo mostraremos onde esta o banco de dados. Caso esteja na pasta raíz de seu site, supomos que o banco esteja lá, iremos dizer que o server.mappath("banco.mdb"), caso esteja em um subdiretório colocaremos server.mappath("diretorio/banco.mdb"). Nosso código ficará assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
%>
Pronto, conectamos com o banco de dados!!!
Agora vamos ver como pesquisar, deletar, incluir e atualizar o banco de dados.
Vamos criar uma tabela no nosso banco de dados chamada cadastro e colocaremos os campos de Nome e Sobrenome.
Nome - tipo: texto
Sobrenome - tipo: texto
Pesquisando
Para podermos pesquisar temos que declarar 2 variáveis , uma estará a nossa String SQL para execução e a outra será nosso objeto ponteiro de dados.
Vamos chamar nosso ponteiro de Rs e transformamos logo em seguida ele em objeto. A nossa String de Conexão vamos chamar de SQL. Para pesquisar os dois campos de nossa tabela temos que criar as strings da seguinte forma.
* nome da tabela nome do campo
Ficando assim:
SQL = "SELECT * FROM cadastro WHERE nome"
então nosso código ficará:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "SELECT * FROM cadastro WHERE nome"
%>
Agora executamos a string SQL ficando o código assim:
<% Option Explicit
Dim Conn
Set Conn = server.createObject("ADODB.connection")
Conn.open "Driver={Microsot Access Driver (*.mdb)};DBQ=" & server.mappath("banco.mdb")
Dim Rs, SQL
Set Rs = server.createobjet("ADODB.Recorset")
SQL = "SELECT * FROM cadastro WHERE nome"
Set Rs = Conn.execute(SQL)
%>
Pronto para retornar alguns dados da tabela, declaramos uma variável e logo indicaremos o objeto de recordset e o nome da coluna do banco de dados:
variavel = {objeto}("nome da coluna")
No caso usaremos com variável a palavra nome. O código fica assim:
<%
//Depois de ter conectado o banco de dados e executado a string SQL
nome = Rs("nome")
response.write nome
%>
No código assim pesquisamos e imprimimos na Tela o valor do campo, se o banco estiver vazio acontecerá um erro. Isso veremos na próximas partes. Para isso preencha o banco com alguns dados.
Na próxima parte veremos mais.
