Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Igor FV

Conexão com o BD access.

Por , em ASP Clássico

Recommended Posts

Igor FV    0

Igor FV
Postado

Olá amigos, gostaria de saber como ficaria a configuração desta página abaixo que necessita da conexão com o BD access. Estou usando ASP como linguagem. Já segui todas as orientações do suporte, só não consegui colocar pra funcionar a conexão com o BD access.

 

 

Página "planatc.asp":__________________________________________________________________

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../Connections/produtos.asp" -->

<%

Dim RS_planatc

Dim RS_planatc_numRows

 

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

RS_planatc.ActiveConnection = MM_produtos_STRING

RS_planatc.Source = "SELECT * FROM planatc"

RS_planatc.CursorType = 0

RS_planatc.CursorLocation = 2

RS_planatc.LockType = 1

RS_planatc.Open()

 

RS_planatc_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

 

Repeat1__numRows = 6

Repeat1__index = 0

RS_planatc_numRows = RS_planatc_numRows + Repeat1__numRows

%>

 

<HTML>

 

O MEU CONTEÚDO DESTA PAGINA AQUI.

 

</HTML>

 

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

RS_planatc.MoveNext()

Wend

%>

 

<%

RS_planatc.Close()

Set RS_planatc = Nothing

%>

 

O suporte do meu servidor diz que tenho que configurar esta página acima de acordo com a página abaixo:

 

__________________________________________________________________

 

Como conectar banco de dados ACCESS (.MDB) usando ASP?

 

 

Dados necessários:

Caminho do arquivo

Nome do arquivo

Código de exemplo:

<%

'Declarando variáveis

Dim adoCon, strCon

Dim caminho_banco

'Definindo caminho do banco

caminho_banco = Server.MapPath("../databases/arquivo.mdb")

'Definindo string de conexão

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & caminho_banco

'Criando objeto

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

'Abrindo conexão

adoCon.Open strCon

## Aqui coloque o código desejado

'Fechando conexão

adoCon.Close

Set adoCon = Nothing

%>

 

__________________________________________________________________

 

Gostaria de sugestões de como configurar a minha página de acordo com as orientações do suporte...

 

Valeu amigos...um grande abraço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

ska_ska    0

ska_ska
Postado

um jeito bem simples...

 

ASP [/tr][tr]

Function Conecta()

Set bdSite = Nothing

'se você for usar um caminho depois do diretório WWW ou HTDOCS, o q for... depois do diretório raiz

Caminho = Server.MapPath("/bd/nomebase.mdb")

'se você for usar um caminho antes do diretório WWW ou HTDOCS, o q for... você vai precisar do caminho completo.. c:\ xxx\xxx...

'Caminho = "D:\web\win2ntxxxx\databases\nomebase.mdb"

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

objBD.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho

end function

'------------------------------------------------------------------------------

Function Fecha()

objBD.Close

Set objBD = Nothing

end function

[/tr]

 

isso você poe no início do seu script

ASP [/tr][tr]

dim objBD

call conecta

[/tr]

isso você poe na última linha....

ASP [/tr][tr]

call fecha

[/tr]

 

o ideal eh manter as funções num include.. mas seja feita a vossa vontade.. a la vonte...

 

outra dica, antes de dar algum response.redirect, lembre-se de sempre chamar a função "CALL FECHA" para fechar a conexão com a base, ok... libera a conxão com a base da memória do server...

falow

Compartilhar este post

Link para o post
Compartilhar em outros sites

Igor FV    0

Igor FV
Postado

Ai amigo não consegui a canexão com o bd acces, não sou muito bom em ASP, se não for abuso de minha parte voce poderia configurar direto a pagina "planatc.asp"com as orientacoes do suporte.O DW criou o arquivos "produtos.asp" de conexao com o bd access, que esta dentro da pasta "Connections", preciso enviar esta pasta para o servidor tb amigos, com esta nova configuracao indicada pelo suporte?Valeu amigo um abraço.....Muito obrigado pela ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito