PROBLEMAS COM O CAMINHO DO BANCO DE DADOS?
Olá, pessoal!
Estou tentando modificar o caminho do Banco de Dados que eu utilizo no sistema que estou desenvolvendo para que ele puxe direto da pasta onde o programa estiver, mas eu já tentei fazer o seguinte:
App.Path & "\MeuBD.mdb"
Isso no DataBaseName do componente Data, mas não funcionou, diz que o arquivo não existe ou o caminho está errado. O quê pode estar errado? Utilizo o VB 6 SP 6 e o Access 2003.
Valeu!
Estou tentando modificar o caminho do Banco de Dados que eu utilizo no sistema que estou desenvolvendo para que ele puxe direto da pasta onde o programa estiver, mas eu já tentei fazer o seguinte:
App.Path & "\MeuBD.mdb"
Isso no DataBaseName do componente Data, mas não funcionou, diz que o arquivo não existe ou o caminho está errado. O quê pode estar errado? Utilizo o VB 6 SP 6 e o Access 2003.
Valeu!
Você já tentou digitar
Msgbox App.Path & "\MeuBD.mdb"
Só pra ver, se realmente o caminho está certo...ou se o PROBLEMA é a barra "\"..
Você poderia colocar a string de conexao?
Msgbox App.Path & "\MeuBD.mdb"
Só pra ver, se realmente o caminho está certo...ou se o PROBLEMA é a barra "\"..
Você poderia colocar a string de conexao?
Olá Germanir!
Vc deve ter notado que eu estou com mil dúvidas,né? hahah
Bom, aà está a string de conexão (acho q é isso):
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Projetos.mdb;Jet " & _
"OLEDB:Database Password=teste;"
CNN.Close
End Sub
O caminho está certo sim, já tentei essa linha de código e está tudo ok, não entendo pq não roda direito!
Valeu!
Valeu!
Vc deve ter notado que eu estou com mil dúvidas,né? hahah

Bom, aà está a string de conexão (acho q é isso):
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Projetos.mdb;Jet " & _
"OLEDB:Database Password=teste;"
CNN.Close
End Sub
O caminho está certo sim, já tentei essa linha de código e está tudo ok, não entendo pq não roda direito!
Valeu!
Valeu!
Sub ADOAbrirBDProtegido()
Dim CNN As New ADODB.Connection
CNNSTR = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\Projetos.mdb; Jet OLEDB:Database password='teste';
msgbox CNNSTR 'Só pra conferir e ver se está tudo certinho..
CNN.Open CNNSTR
CNN.Close
End Sub
Ainda não deu certo [S38]
Uma pergunta simples, mas que pode ajudar...
O banco de dados encontra-se no mesmo diretório do .exe???
O banco de dados encontra-se no mesmo diretório do .exe???
Compacta.. e manda para o
germanirleal@yahoo.com.br
Dou uma olhadinha pra vc
germanirleal@yahoo.com.br
Dou uma olhadinha pra vc
Sim, me certifiquei de que estivesse na mesmÃssima pasta exatamente para não ocorrer nenhum erro, mas não adiantou muito
Amigo, tenta verificar se o banco Access esta na versão correta do Componente Data, pois pode ser incompatibilidade...
Se vc confirmou a localização e não funcionou então seu problema é mais grave..
QQ COISA posta o erro!
Se vc confirmou a localização e não funcionou então seu problema é mais grave..
QQ COISA posta o erro!
Tópico encerrado , respostas não são mais permitidas