求一VB用ini文件连接access代码

[yangjinCK]

说笨也好猪也好，就是不会写
来个好心人帮写一下
要拿来能用的
谢谢
可以发在QQ136461980

[yangjinCK]

搞定全部分都给你了

[cbm6666]

晕 ini的文件内容给access 还是 access的文件给 ini?

[帝企鹅已被占用]

你是想把联系数据库的信息写在ini里，通过读ini连接不同的数据库？
建议查查ini的api，网上大把。
完全的代码我没有也不会提供。

[贝隆]

http://download.csdn.net/source/3057337
http://download.csdn.net/source/1498324

[chinaboyzyq]

'操作ini文件
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, _
ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lplFileName As String) As Long

Private r As Long
Public inipath As String
    
'从setup.ini读信息
Public Function GetMyINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetMyINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", _
              RetStr, Len(RetStr), FileName))
End Function

'设置setup.ini
Public Sub SetMyINI(AppName As String, KeyName As String, entry As String, FileName As String)
    r = WritePrivateProfileString(AppName, KeyName, entry, FileName)
    If r <> 1 Then MsgBox "出错啦！"
End Sub

Private Sub Command1_Click()
   writeSetupIni
   readSetupIni
End Sub

Private Sub writeSetupIni() '写入setup.ini没有时可以创建。
    SetMyINI "connection", "connstr", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456", App.Path & "\setup.ini"
    
End Sub

Private Sub readSetupIni() '读取连接串
    Dim tmp As String
    tmp = GetMyINI("connection", "connstr", App.Path & "\setup.ini")
    MsgBox tmp
    
End Sub

[游子]

友谊路过。。。上面已经回答的很清楚了

[yangjinCK]

[Quote=引用 9 楼 chinaboyzyq 的回复:]
yangjinck
[aaa]
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
配置文件里这样写怎么不对啊

首先是格式不对，查看我楼上给你的代……
[/Quote]


这个是写成的绝对路劲，我想把这个配置文件打包在工程中去，不确定安装路劲，这个怎么整 哦

[chinaboyzyq]

[Quote=引用 10 楼 yangjinck 的回复:]

这个是写成的绝对路劲，我想把这个配置文件打包在工程中去，不确定安装路劲，这个怎么整 哦
[/Quote]
配置文件里先写成相对路径发布：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\db1.mdb;Persist Security Info=False

以上的写法在ADO读路径时会取：当前工程所在文件夹下的data文件夹下的db1.mdb，以后你在ini里也可使用绝对路径或相对路径。

[chinaboyzyq]

[Quote= yangjinck]
[aaa]
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"
配置文件里这样写怎么不对啊
[/Quote]
首先是格式不对，查看我楼上给你的代码生成的ini文件格式。
其次是串中使用使用app.path也是错，读进去后app.path只是串的一部分，并不能提供相对路径。
第三，即然外部ini文件能提供路径，那么相对路径也就没有用的必要了，你在串里直接写绝对路径也就是了。

[cbm6666]

我不建议你这样写

[aaa]
Path="\data\db1.mdb"
password="123456"

到了客户端用程序代码得到 app.path & 读取ini得到的子路径与文件名, 再读密码

代码中写好"固定"的 provider=......再加上上面的路径 再加上 password 这样才会灵活

[cbm6666]

当你那一天因为兼容性的问题而必须改引擎时 或改为 SQL时 ini都可以不用改动,直接改代码即可

Db = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.path & ini读到的mdb与密码