如何把数据库连接语句写到一个文件里，在连接数据库的时候如何调用？

Question

如何把数据库连接语句写到一个文件里，在连接数据库的时候如何调用？

Answer 1

是不是指把连接字符串放在文件中?比如:
dim Connectstring as string
    If Dir(App.Path & "\Login.cfg") <> "" Then
        Open App.Path & "\login.cfg" For Input As #1
        Line Input #1, Connectstring 
        Close #1
    Else
        MsgBox "系统配置文件login.cfg丢失，请检查！", vbInformation, "提示"
        Exit Sub    End If
dim cn as new adodb.connection
cn.Open  Connectstring '文件中
"driver={sql server};server=127.0.0.1;uid=sa;pwd= " & _
            ";database=pubs "这只是一个意思,当然你可以将密码加密后再存储

Answer 2

我指的是保存成ini文件，如何写入，调用？

Answer 3

下面是读写INI文件的方法，为此我写了两个函数。首先，声明两个API函数WritePrivateProfileString和GetPrivateProfileString，一下是代码： Private Sub WriteToIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)　　Dim buff As String * 128　　buff = Value + Chr(0)　　WritePrivateProfileString Section, Key, buff, FilenameEnd SubPrivate Function ReadFromIni(ByVal Filename As String,ByVal Section As String, ByVal Key As String) As String　　Dim i As Long　　Dim buff As String * 128　　GetPrivateProfileString Section, Key, "", buff, 128, Filename　　i = InStr(buff, Chr(0))　　ReadFromIni = Trim(Left(buff, i - 1))End Function 应用举例:一、写INI文件 Dim Counter As LongFor Counter=1 To 4　　Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)Next Counter运行后Options.ini内容如下：[Test]Name1=Value1Name2=Value2Name3=Value3Name4=Value4二、读INI文件Dim Counter As LongDim Value(3) As StringFor Counter=1 To 4　　Value(Counter-1)=ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)Next Counter