sql数据库连接的问题

Question

这是server.dat文件，通过他和数据库连接
aaaa
sa
123456
cxl
catvsys1
Provider=SQLOLEDB.1;Integrated Security=SSf;Persist Security Info=False;Initial Catalog=HOTEL2;Data Source=HOTEL
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\hotel2\room.mdb;Persist Security Info=False这是在登录时,选择全局数据库,与SQL数据库
连接的字符串，存放在SERVER.DAT文本文件中，提示oledb操作错误源代码下载地址 http://www.5ivb.net/club/dispbbs.asp?boardID=108&ID=16740

Answer 1

如果你是做大项目的话，最好是放在Dll 中，效果好。 有问题 [email protected]

Answer 2

Private Sub Command3_Click()
    Dim i, j, Field_COUNT As Integer
    Dim strCMD As Command    
    If Combo1.Text = "全局服务器" Then
        Open App.Path & "\server.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "全局服务器"
    Else
        If Combo1.Text = "本地服务器" Then
        Open App.Path & "\locat.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "本地服务器"
        Me.Check1.Value = 0
        Else
            MsgBox "请注意：服务器选择错误！", 48, "提示"
            Combo1.Text = "全局服务器"
            Combo1.SetFocus
            Exit Sub
        End If    End If
    Me.Command1.Enabled = True
    Me.Text1.SetFocus
    
    Exit Sub
    
Err_Process:
   MsgBox "信息：操作错误！", 16, "警告"
   Exit Sub
End Sub