Inclusão em Banco de Dados Access com Asp

Postado por em 04/04/2012 - Visitas: 5323



Se formos realizar uma simples gravação no banco de dados, iremos utilizar inicialmente apenas estas 4 linhas com código em asp.


Exemplo:



 < %


set conexao = createobject("AdoDb.connection")


conexao.open  "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("basededados.mdb") 


comando = " i n s e r t   i n t o  admin ( nome, senha ) values ( ´jose´, ´123´ )"


set resp = conexao.execute( comando )


%>




Onde
1) set conexao = createobject("AdoDb.connection")
este comando realiza a abertura da conexão
2) conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("basededados.mdb")
este comando abre o banco de dados Access “basededados.mdb” que deve estar na mesma pasta do projeto.
3) comando = "i n s e r t into a d m i n ( nome, senha ) values ( ´jose´ , ´123´ )"
este comando monta simplesmente uma “string” que contém o comando SQL para efetuar a inclusão no banco de dados, dando o nome para esta variável que contém a string como “comando”
4) set resp = conexao.execute( comando )
este comando executa a instrução sql que está contida na variável ”comando” criada na linha anterior através do objeto ”conexão” .

Como o comando :
i n s e r t into admin ( nome, senha ) values ( ‘jose´, ‘123’ ) está fixo devemos agora fazer com que receba os dados de um formulário e substitua o que está sendo passado dentro desta string por variáveis, então receberemos os parâmetros com o método “request” para depois colocarmos dentro do comando SQL.



Formulario de inclusão

< form action="" method="get">
Nome:< input name="txt_nome" type="text" />
Senha:< input name="txt_senha" type="password" />
< input name="btn_grava" type="submit" value="Gravar" />
< / form>

<%
nome = request("txt_nome")
senha = request("txt_senha")
if nome <> "" and senha <> "" then
set conexao = createobject("AdoDb.connection")
conexao.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("basededados.mdb")
comando = "i n s e r t into admin ( nome, senha ) values ( ´" & nome & "´, ´" & senha & "´ )"
on error resume next
set resp = conexao.execute( comando )

if conexao.errors.count <> 0 then
response.write("Houve erro na gravação !")
else
response.write("Dados gravados com sucesso !")
end if
end if
%>


Explicação dos comandos adicionados:

- nome = request(“txt_nome”)
neste comando obtemos o nome que foi postado

- senha = request(“txt_senha”)
neste comando obtemos a senha que foi postada

- if nome <> "" and senha <> "" then
neste comando efetuamos uma verificação para checar se o usuário preencheu corretamente o nome e a senha, a fim de gravarmos no banco de dados apenas com os 2 campos preenchidos

- comando = "i n s e r t into admin ( nome, senha ) values ( ´" & nome & "´, ´" & senha & "´ )"
nota-se que o comando entre “ “ foi modificado, isto foi feito para que ao incluir os dados fossem os dados que o usuário postou, desta forma os dados lidos a partir do comando request e que estavam nas variáveis nome e senha serão salvos.

- on error resume next
nesta linha é solicitado que em caso de erro no programa, ele deverá avançar para a próxima linha, fazemos isto para “tratar” o erro caso ele aconteça

- if conexao.errors.count <> 0 then
nesta linha tratamos o erro ocorrido onde caso conexão.erros.count (A conexão retorna a quantidade de erros ocorrido) for diferente de zero, implica que aconteceu um erro durante a execução do comando

Gostou ? Compartilhe