ACESSANDO MDB NA WEB
Pessoal vi no host da uol o seguinte codigo para acesso a base access com vb6
[ô]Declarando variáveis
Dim adoCon, strCon
Dim caminho_banco
[ô]Definindo caminho do banco
caminho_banco = Server.MapPath([Ô]../dados/Cadastro.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
If Not dyn.EOF Then
If Not IsNull(dyn(0)) Then
CODIGO = Format$(Val(dyn(0)) + 1, [Ô]00000[Ô])
Else
CODIGO = [Ô]00001[Ô]
End If
End If
[ô]Fechando conexão
adoCon.Close
Set adoCon = Nothing
como eu faria para direcionar o caminho do banco de dados online
ja tentei
[ô]Definindo caminho do banco
caminho_banco = Server.MapPath([Ô]ftp://meusite/dados/Cadastro.mdb[Ô]) MAS NÃO DEU DA ERRO NO CAMINHO ?
[ô]Declarando variáveis
Dim adoCon, strCon
Dim caminho_banco
[ô]Definindo caminho do banco
caminho_banco = Server.MapPath([Ô]../dados/Cadastro.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
If Not dyn.EOF Then
If Not IsNull(dyn(0)) Then
CODIGO = Format$(Val(dyn(0)) + 1, [Ô]00000[Ô])
Else
CODIGO = [Ô]00001[Ô]
End If
End If
[ô]Fechando conexão
adoCon.Close
Set adoCon = Nothing
como eu faria para direcionar o caminho do banco de dados online
ja tentei
[ô]Definindo caminho do banco
caminho_banco = Server.MapPath([Ô]ftp://meusite/dados/Cadastro.mdb[Ô]) MAS NÃO DEU DA ERRO NO CAMINHO ?
Esqueça isso. só vai funcionar com um esquema de ADO + ASP.
Pesquise aqui no fórum pois tem muitos tópicos sobre isso.
Pesquise aqui no fórum pois tem muitos tópicos sobre isso.
Pessoal da uma força, to precisando muito disso !
tenho cisto algo com Inet1 alguem tem ideia de como utilizalo com o codigo acima
Amigo tenta isso.... nao fiz testes!!!
Qualquer coisa amanha estarei disponivel para ajudar melhor.... abraços!
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=87742
Qualquer coisa amanha estarei disponivel para ajudar melhor.... abraços!
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=87742
Sugestão, crie um WebService ou migre a sua aplicação para um banco MySQL ou SQL Server que este geralmente os preovedores liberam o acesso via internet
mgaldino tentei mas ele não consegue abrir a tabela acho que o err é este !
Este eu já testei há anos e funciona. Mas tem que estudar o código pra vc derivar o que vc precisa.
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4506&varPagina=1
PS. Já perdi a conta do número de vezes que passei esse link aqui.
http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=4506&varPagina=1
PS. Já perdi a conta do número de vezes que passei esse link aqui.
llaila o link ta quebrado !
Acabei de testar o link e ta de boa ! verifica de novo !
Abraços
Abraços
Tópico encerrado , respostas não são mais permitidas