CONEXAO COM ACCESS ATRAVES DE INI
Olá podem ajudar ?
Tenho a conexão :
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\BD_REGISTROS.mdb[Ô]
Gostaria de utiliza o caminho atraves de um .ini ,
Podem auxiliar ?
grato;
Tenho a conexão :
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set con = New ADODB.Connection
con.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\BD_REGISTROS.mdb[Ô]
Gostaria de utiliza o caminho atraves de um .ini ,
Podem auxiliar ?
grato;
Boa tarde,
Abaixo tem um link mostrando como ler um ini em vb6.
http://www.jorgepaulino.com/2008/06/vb6-guardar-configuraes-ini-vs-registry.html
Abaixo tem um link mostrando como ler um ini em vb6.
http://www.jorgepaulino.com/2008/06/vb6-guardar-configuraes-ini-vs-registry.html
Já passei por esse problema, aconselho você usar um Arquivo de texto para guardar o caminho do banco de dados, esse método é utilizado para sistemas que funcionam
em rede, mas vai resolver seu problema, não é um bicho de sete cabeças é bem simples.
Você deve criar um arquivo dentro da pasta do seu programa,
com isso você cria um método no seu software que irá buscar o caminho do seu banco de dados que está no arquivo de texto.
Simples assim...
Primeiro Passo: Você cria um arquivo em bloco de notas com a extensão .INI
Segundo Passo: Você deve criar um modulo que irá reconhecer o arquivo de texto
Terceiro Passo: Você cria o método dentro da conexão.
Quarto Passo: Executar.
Primeiro: (Crie um arquivo texto com extensão .INI)
Escreva isso dentro dele:
[Geral]
Caminho=X:\Teste este.mdb
Segundo: (Codificação do Modulo)
Terceiro Passo
[ô]Colque dentro do metódo de conexão de banco de dados
Qualquer dúvida.
http://www.macoratti.net/acc_comp.htm
em rede, mas vai resolver seu problema, não é um bicho de sete cabeças é bem simples.
Você deve criar um arquivo dentro da pasta do seu programa,
com isso você cria um método no seu software que irá buscar o caminho do seu banco de dados que está no arquivo de texto.
Simples assim...
Primeiro Passo: Você cria um arquivo em bloco de notas com a extensão .INI
Segundo Passo: Você deve criar um modulo que irá reconhecer o arquivo de texto
Terceiro Passo: Você cria o método dentro da conexão.
Quarto Passo: Executar.
Primeiro: (Crie um arquivo texto com extensão .INI)
Escreva isso dentro dele:
[Geral]
Caminho=X:\Teste este.mdb
Segundo: (Codificação do Modulo)
Declare Function WritePrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]WritePrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib [Ô]kernel32[Ô] Alias [Ô]GetPrivateProfileStringA[Ô] (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function ReadINI(Section As String, Key As String, FileName As String)
[ô]Filename=nome do arquivo ini [ô](arquivo de texto)
[ô]section=O que esta entre []
[ô]key=nome do que se encontra antes do sinal de igual
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
Terceiro Passo
[ô]Colque dentro do metódo de conexão de banco de dados
Caminho = ReadINI([Ô]Geral[Ô], [Ô]Caminho[Ô], App.Path & [Ô]\Config.ini[Ô])
[ô]Caminho = App.Path & [Ô]\Clientes.mdb[Ô]
On Error GoTo Finalizar
cnSQL.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Data Source =[Ô] & Caminho & [Ô];Jet OLEDB:databasePassword=MasterDB[Ô]
Qualquer dúvida.
http://www.macoratti.net/acc_comp.htm
Tópico encerrado , respostas não são mais permitidas