[Resolvido]Aplicativo procura local do DB em arquivo .INI

Pessoal teria como criarum arquivo .INI (parametro) para que o aplicativo abrisse o banco de dados no local que fosse especificado nesse arquivo .INI?

Eu quero que meu Front-End procure o DB no local especificado no arquivo .INI(parametro)

Você teria que vincular este arquivo ini ao banco de dados

Tem que fazer uma rotina.
Ao abrir o DB e não encontrar as tabelas a rotina
se vincula ao INI para saber o caminho do banco de dados

Mas daria pra fazer diferente


Ao abrir o banco de dados e não encontrar as tabelas
ele dá opção do usuário digitar o caminho e
em seguida ele anexa todas as tabelas do DB

Isso ele faria sempre que for aberto
anexa todas as tabelas

quando não encontrar o DB solicita
ao usuário para indicar o caminho.



SOLUÇÃO MAIS PRÁTICA
Deixar o DB na mesma pasta do FRONT
Sempre que abrir ele anexa todas as tabelas

Eu utilizo uma ferramenta do Avelino, que se, seu Aplicativo nao encontrar o Banco de Dados ele te mostra uma tela para procurar.

E só uma curiosidade que tenho sobre arquivos de Parametro. Pagar por essa curiosidade no momento não será util. Mas agradeço.

Angelus,

Nunca vi algo utilizando um arquivo externo para isso, mas dê uma olhada nessa ótima dica do mestre Avelino e se for o caso, adapte a sua necessidade.

http://www.usandoaccess.com.br/tutoriais/vinculando-tabelas-com-barra-de-progresso.asp?id=1

Abraços,

Angelus

Antes de mais nada, digo que seria temeroso fazer isso com arquivos.ini,
já que qualquer pessoa pode edita-lo, pois o mesmo pode ser aberto com
bloco de notas e isso seria o calcanhar de Aquiles do teu aplicativo.
Atente para que os outros companheiros estão dizendo, tem outras formas
de se fazer isso.
Mas, se ainda insistir nisso, avise que irei verificar se tenho ainda um
exemplo que manipula arquivos.ini.

[ ]'s

crie o seu arquivo ini e nomeie Config.ini
depois abra e cole isso:
[Geral]
Caminho=\\Servidor\c\seu diretório\seu banco.mdb
==============================================
Dim caminho As String
caminho = ReadINI("Geral", "Caminho", App.Path & "\Config.ini")
Set Area = DBEngine(0)
Set db = Area.OpenDatabase(caminho, False, False, ";pwd=suasenha")

Espero ter ajudado!!

Ibraim

Só faltou a função

[ ]'s

Qual função seria, explique melhor oque deseja, acima no exemplo você especifica o local onde vai abrir seu banco....

função:

Option Compare Database
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Function ExecutarAplicativo(strCaminhoArq As String, Optional lngJanela As Long = 1)
ShellExecute hWndAccessApp, vbNullString, strCaminhoArq, vbNullString, vbNullString, lngJanela
'No Botão de Comando que irá abrir o outro Banco de Dados, escreva:
'Call ExecutarAplicativo ("C:\seu diretório\seu banco.mdb") ‘Aqui o BD que será aberto.
' em seu arquivo confi.ini seria assim: Call ExecutarAplicativo (caminho) ‘Aqui o BD que será aberto.
DoCmd.Quit acQuitSaveAll
End Function
Function ExecutarAplicativob(strCaminhoArq As String, Optional lngJanela As Long = 1)
ShellExecute hWndAccessApp, vbNullString, strCaminhoArq, vbNullString, vbNullString, lngJanela
'No Botão de Comando que irá abrir o outro Banco de Dados, escreva:
'Call ExecutarAplicativo ("C:\seu diretório\seu banco.mdb") ‘Aqui o BD que será aberto.
'DoCmd.Quit acQuitSaveAll
End Function
e coloque isso onde deseja no seu vba:
Call ExecutarAplicativo(caminho)

e no regedit coloque o parâmetro para iniciar automaticamente essa função.

é isso amigo se oque procura....

Ibraim

Isso abaixo, é uma chamada para a função ReadINI(), cuja função
tem a propriedade de ler o arquivo.ini, no caso o arquivo Config.INI.

caminho = ReadINI("Geral", "Caminho", App.Path & "\Config.ini")

Procure nos módulos, essa função.

Clique no ícone do binóculos no menu do vba e pesquise pelo nome ReadINI
que irá encontrar.

[ ]'s

Simples assim, desculpe pensei que tivesse essa função já visto que é coisa básica....para arquivos ini....

Public Function ReadINI(Section As String, Key As String, FileName As String)
Dim retlen As String
Dim ret As String
ret = String$(255, 0)
retlen = GetPrivateProfileString(Section, Key, "", ret, Len(ret), FileName)
ret = Left$(ret, retlen)
ReadINI = ret
End Function

Public Sub WriteINI(Section As String, Key As String, Text As String, FileName As String)
WritePrivateProfileString Section, Key, Text, FileName
End Sub

Na verdade, não é tão básica assim, já que
poucas pessoa usam desse expediente.
Eu só uso para mudar a impressora padrão
de uma rede.

Pedi a função para que o tópico ficasse completo,
obrigado !


[ ]'s

Bom de qualquer forma se precisar sempre estarei prestando informações que ajudem, pois programação ta na veia a mais de 20 anos....trabalho com desenvolvimento e quero passar um pouco dos meus conhecimentos!!

Esse é o propósito desse fórum

Trocar "figurinhas" !

Grande abraço

Pessoal, Agradeço a todos que se disponibilizaram para me ajudar neste problema.

Venho informar que por motivos maiores não havia lido e nao pude participar com comentarios nas discussões sobre a solução do problema.

Pesso desculpas a todos e desejo sucesso a todos nós.

Parabéns aos Moderadores, pela Situação da mensagem n°5!

Angelus

O tópico foi resolvido?

Se sim, coloque o resolvido no título do tópico.

Veja como, na minha assinatura.

[ ]'s

Resolvido rss