Como Efetuar A Conexao Com Bd Access X Asp

Abril 21, 2004

Alguém pode me auxiliar na conexao do banco de dados em access com ASP

eu estou tentando acessar atraves do exemplo abaixo.

Obs.: uma coisa que eu não entendi direito foi o seguinte :

Incluindo registros em um Recordset - Para incluir um novo registro para um recordset usando ADO, você pode usar os métodos AddNew e Update do objeto Recordset. É claro que primeiro você tem que criar um Recordset que permita atualizações (não pode ser um Recorset do tipo somente leitura - read-only).

Obs2: E como fazer para o recordset não ser do tipo somente leitura???

Obs3: Caso fique complicado analisar pelo exemplo abaixo, e se alguém tiver

um exemplo que possa me mandar eu agraço

pagina HTML - incluir.htm

<HTML>
<HEAD>
<TITLE>Incluir.html- Examplo</TITLE>
</HEAD>
<BODY>
<H1>Incluindo um novo Cliente </H1>

<FORM METHOD="POST" ACTION="incluir2.asp">
<TABLE>
  <TR><TD>Nome:</TD>
      <TD><INPUT NAME="Nome" SIZE=20></TD></TR>
  <TR><TD>Endereço:</TD>
      <TD><INPUT NAME="Endereco" SIZE=40></TD></TR>
  <TR><TD>Cidade:</TD>
      <TD><INPUT NAME="Cidade" SIZE=20></TD></TR>
  <TR><TD>Estado:</TD>
      <TD><INPUT NAME="Estado" SIZE=6></TD></TR>
  <TR><TD>Cep:</TD>
      <TD><INPUT NAME="Cep" SIZE=10></TD></TR>
</TABLE>
<BR><INPUT TYPE="SUBMIT" VALUE="Salvar Registro">
<INPUT TYPE="RESET" VALUE="Limpar Campos">
<BR><BR><A HREF="menu.html">Abandonar edição e retornar a pagina principal</A>
</FORM>
</BODY>
</HTML>

pagina em ASP - incluir2.asp

HTML>
<HEAD>
<TITLE>incluir2.asp - Exemplo</TITLE>
</HEAD>
<BODY>
<H1> Incluindo um novo cliente </H1>
<%

Dim con
Dim rst
Const adOpenKeyset = 1
Const adLockOptimistic = 3
const adunlockread-only = 1

' Cria os objetos
Set con = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")

' Abre a conexão com o banco de dados agenda.mdb
con.Open "DBQ=D:\inetpub\wwwroot\agenda.MDB;DRIVER={Microsoft Access Driver (*.mdb)}"

' Cria um Recordset do tipo keyset baseado na tabela clientes
' usando o bloqueio otimista
rst.Open "SELECT * FROM clientes", con, adOpenKeyset, adLockOptimistic, read-only

' Cria um registro em branco
rst.AddNew

  ' Recebe os dados do formulário e os atribui aos campos da tabela cliente
  rst("Nome")= Request.Form("Nome")
  rst("Endereco")= Request.Form("Endereco")
  rst("Cidade")= Request.Form("Cidade")
  rst("Estado")= Request.Form("Estado")
  rst("Cep")= Request.Form("Cep")

' Salva o registro 
rst.Update

Response.Write "<B>Registro salvo com sucesso !</B>"

rst.Close
con.Close
%>
<BR><A HREF="menu.html">Retorna a página principal</A>
</BODY>
</HTML>

Victor · Abril 21, 2004

Olhe essa conexão ai:

conecta.asp

<%local=Request.ServerVariables("SERVER_NAME")

if local="nome_do_pc" or local="localhost" then
	conexao= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\pasta\wwwroot\database\bd.mdb;Persist Security Info=False"
	endereco_virtual="http://"&local&"/pasta"
	endereco_fisico="C:/Inetpub/wwwroot/pasta"
end if

set conn = Server.CreateObject("adodb.connection")
conn.open conexao%>

Caso tenha mais alguma dúvida poste ai, que te ajudaremos!!!

[]'s

Victor

Entrar

Como Efetuar A Conexao Com Bd Access X Asp

Pergunta

Guest - Ringo -

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Victor

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades