ACESSANDO O BANCO POR UM ARQUIVO .INI OU .TXT

USUARIO.EXCLUIDOS 14/05/2004 16:08:41
#24739
Eu tenho a mania de levar o trabalho pra casa. E essa é uma de minhas dificuldades, porque tenho inúmeras conexões em diversos "forms" e "botões". Já vi, mas não entendi, como criar um arquivo *.ini pra colocar a rota do banco, porém, isso foi em DAO ou RDO, não lembro muito bem. Só sei que em ADO o mesmo não funciona! Não sei criar módulos ainda, e fazê-lo executar na aplicação. Isso me facilitaria muito, pois assim, apontaria a minha aplicação para esse arquivo *.ini ou *.txt e quando fosse levar pra casa, teria o mesmo nome do arquivo com a rota diferente apontando para o banco de casa! Não sei se deu pra entender o que preciso. Como faria isso em ADO, sem precisar usar Modulos e Classes, levando em consideração de que todas as minhas conexões, monto dessa maneira nos forms:

With cnn
.CursorLocation = adUseClient
.ConnectionString = "Provider = Microsoft.Jet.Oledb.4.0;" _
& "Data Source = C:\Inetpub\wwwroot\orcamentario\" _
& "Orcamentario.mdb"
.Open
End With

Me ajudem.. por favor... minha dificuldade é muito grande! Obrigado
USUARIO.EXCLUIDOS 14/05/2004 19:02:23
#24767 Resposta escolhida
Brother,

Código, usando um arquivo *.INI em DAO. O príncipio é o mesmo pra qualquer acesso a dados: RDO,DAO e ADO.

Abraços

' Abrindo Arquivo Sistema.INI - Caminho da Base de Dados
Dim vSistema As String
' Input - Abrindo para leitura / Output - Abrindo para gravação / #1 - "Apelido" ao Arquivo
Open "C:\Sistema.INI" For Input As #1
Line Input #1, vSistema
Close #1

' Configurando Variáveis - SET
Set WS = DBEngine.Workspaces(0)

' Configura DB - Com *.INI
Set DB = WS.OpenDatabase(vSistema & "\Nwind.mdb")

' Abre Tabela - Se não informar o default é dbOpenTable
Set RS = DB.OpenRecordset("Customers", dbOpenDynaset)
Tópico encerrado , respostas não são mais permitidas
Voltar