ROTINA DE ACESSO POR ARQUIVO!!! HELP
PRECISARIA DE CRIAR UM ARQUIVO DE CONEXÃO, *.ini, OU SEJA Là  COMO FOR PARA PODER GRAVAR O CAMINHO DO BANCO, ASSIM NÃO PRECISARIA ME PREOCUPAR EM TER DE MUDAR TODAS AS VEZES O CAMINHO QUANDO MUDAR DE Mà ÂQUINA
COMO PODERIA FAZER ISSO EM ADO Jà  QUE MONTO MINHA CONEXÃO DESSA MANEIRA:
With cnn
.CursorLocation = adUseClient
.ConnectionString = "Provider = Microsoft.Jet.Oledb.4.0;" _
& "Data Source = C:\Inetpub\wwwroot\orcamentario\" _
& "Orcamentario.mdb"
.Open
End With
OBRIGADO
COMO PODERIA FAZER ISSO EM ADO Jà  QUE MONTO MINHA CONEXÃO DESSA MANEIRA:
With cnn
.CursorLocation = adUseClient
.ConnectionString = "Provider = Microsoft.Jet.Oledb.4.0;" _
& "Data Source = C:\Inetpub\wwwroot\orcamentario\" _
& "Orcamentario.mdb"
.Open
End With
OBRIGADO
Vamos lá a ver se conseguimos engendrar um exemplo:
- Num arquivo .Ini(neste caso config.ini), escreve:
[CONFIG.INI]
27/04/2002
01 - Caminho dos Dados............................... C:\das\bdados\mvdoctab.mdb
Num Módulo . bas, escreve:
'Caminho dos Dados
Public PstrCamDados As String
Public Sub AbreBdados()
Dim objConnect As clsConexao
Set objConnect = New clsConexao
strArquivo = App.Path & "\Config.ini"
'Nova forma de ler arquivo INI. Sem usar API.
Open strArquivo For Input As #1
While Not EOF(1)
Line Input #1, strLinha
If Left(strLinha, 2) = "01" Then
PstrCamDados = Mid(strLinha, 55) '& "\"
End If
Wend
Close (1)
objConnect.Conexao
End Sub
Num módulo classe(neste caso clsConexao), escreve:
Public Function Conexao() As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & PstrCamDados & "';Jet OLEDB:Database Password=sua password;"
End Function
Onde quiser abrir a conexao(exemplo frmMain,LOAD):
AbreBdados
Se precisar de um exemplo deixe aqui o seu mail.
- Num arquivo .Ini(neste caso config.ini), escreve:
[CONFIG.INI]
27/04/2002
01 - Caminho dos Dados............................... C:\das\bdados\mvdoctab.mdb
Num Módulo . bas, escreve:
'Caminho dos Dados
Public PstrCamDados As String
Public Sub AbreBdados()
Dim objConnect As clsConexao
Set objConnect = New clsConexao
strArquivo = App.Path & "\Config.ini"
'Nova forma de ler arquivo INI. Sem usar API.
Open strArquivo For Input As #1
While Not EOF(1)
Line Input #1, strLinha
If Left(strLinha, 2) = "01" Then
PstrCamDados = Mid(strLinha, 55) '& "\"
End If
Wend
Close (1)
objConnect.Conexao
End Sub
Num módulo classe(neste caso clsConexao), escreve:
Public Function Conexao() As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & PstrCamDados & "';Jet OLEDB:Database Password=sua password;"
End Function
Onde quiser abrir a conexao(exemplo frmMain,LOAD):
AbreBdados
Se precisar de um exemplo deixe aqui o seu mail.
Tópico encerrado , respostas não são mais permitidas