VB怎么将数据库连接放在文件里

Question

访问access数据库字符串
我希望像C#一样，将访问字符串放在webconfig文件中
修改文件中的链接串就可以了
VB应该用什么来做这个呢

Answer 1

可以用INI或文本文件
都很简单
搜索“INI文件的读写”或“文本文件的读写”代码一车一地

Answer 2

给你几个参考代码吧
写文本：
Private Sub Command1_Click()
    CommonDialog1.Filter = "*.txt 文件|*.txt"
    CommonDialog1.ShowSave
    Open CommonDialog1.FileName For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub读文本：
Private Sub Command2_Click()
    Text1.Text = ""
    CommonDialog1.Filter = "*.txt 文件|*.txt"
    CommonDialog1.ShowOpen
        Open CommonDialog1.FileName For Input As #1
            Do While Not EOF(1)   ' 循环至文件尾。
               Line Input #1, TextLine   ' 读入一行数据并将其赋予某变量。
               Text1.Text = Text1.Text & TextLine & vbCrLf
            Loop
        Close #1
End Sub

Answer 3

密码最好还要加密一下！Base64 个性化加密解密功能VB源码
一般可以放到INI文件也可以放到XML文件里，当然还可放到你希望的其他文件中。

Answer 4

API操作INI文件是最加选择。

Answer 5

2楼在抛砖引玉：
将连接字串放在.txt文件中，然后读取
可根据需求修改一下：
EX：
  c:\strconn.txt 内容连接ACCESS字串为：Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist SecuritInfo=Falseload code:
Open "c:\strconn.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strconn
strconn = strconn & strconn
Loop
Close #1
Conn.ConnectionString = strconn
conn.open
----未测试
 

Answer 6

INI文件用记事本写就可以了，把TXT改成INI就是 INI文件了。

Answer 7

ReadINI VB6.0读取INI文件的例程
免费的资源，自己下来看看吧

Answer 8

 Set con = New Connection
    con.CursorLocation = adUseClient
Open App.Path & "\config.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, strconn
strconns = strconns & strconn
Loop
Close #1
Conn.ConnectionString = strconns
Conn.Open读取出来的字符串是对的怎么提示错误
要求对象实例？

Answer 9

ini文件不是这么用的，那和txt有什么差别，搜索一下ini文件的读写吧

Answer 10

写成一个配置文件，ini文件最简单

Answer 11

[DataSourceSet]
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\db1.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456"这样写怎么不对

Answer 12

通常做法是把每个变化的放在ini里，不是整个串