Ir para conteúdo
Fórum CódigoFonte.net
AlbertoRT

Conexão virtual transformar caminho físico

Recommended Posts

Salve, salve! Estou ha dias com um problema que não consigo resolver. Já tentei de todas as formas mas só informa que o cominho não está correto. Por favor, observem que esse código abaixo é diferente por ser caminho físico e funciona perfeitamente.

<%

Sub AbreConexao

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

conexaoDataBase.CursorLocation=3

const cntCaminho = "I:/inetpub/wwwroot/info16br/dados/info16br.mdb"

conexaoDataBase.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cntCaminho

end sub

sub FechaConexao

conexaoDataBase.close

set conexaoDataBase = nothing

end sub

%>

Já o código abaixo tem o banco de dados no mesmo local do primeiro acima. Mesmo Caminho. Tudo, tudo igual. Ele só trabalha com uma outra tabela mas não muda nada. Entretanto não consigo colocar o caminho. Eu gostaria de transforma o do código virtual em físico mas existem variáveis (exemplo do que me bloqueia: strSQL no código físico fica antes do "Provider=" no código virtual vem conexaoDataBase. Open e depois o "Provider="). Já tentei e só piora a situação. Como poderia fazer com que o do caminho virtual transforme em físico:

Por favor, veja que ele tem variáveis como já informei e fica muito complicado fazer com que fique igual ao código acima. Por favor, ajude-me.

<%

' Usando uma função evitamos o conflito com nome de variaveis que

' porventura o usuario esteja usando em seu codigo

Function Retorna_Acessos()

'variáveis ADO

Const adOpenKeyset = 1

Const adLockPessimistic = 2

Const adCmdText = &H0001

' Variáveis locais

Dim strArquivo

Dim strSQL

Dim rsContador

Dim iContador

' cria uma consulta SQL usando o nome do script

strArquivo = Request.ServerVariables("SCRIPT_NAME")

strSQL = "SELECT pagina, n_acessos FROM tb_acessos WHERE pagina='" & strArquivo & "';"

' abre um recordset

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

' acesso a uma base de dados Access

rsContador.Open strSQL, _

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/inetpub/wwwroot/info16br/dados/info16br.mdb") & ";", adOpenKeyset, adLockPessimistic, adCmdText

'Se não existe registro ainda vamos incluir um registro

If rsContador.EOF Then

rsContador.AddNew

iContador = 0

rsContador.Fields("pagina").Value = strArquivo

Else

'Se já existe registro le o registro a atualiza o contador

rsContador.MoveFirst

iContador = rsContador.Fields("n_acessos").Value

End If

' incrementa o contador e atualiza a base de dados

rsContador.Fields("n_acessos").Value = iContador + 1

rsContador.Update

' fecha a conexao

rsContador.Close

Set rsContador = Nothing

' retorna o contador

Retorna_Acessos = iContador + 1

End Function

%>

Muito obrigado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...