请问：用adodc控件直接右键属性设置连接的数据库改成用代码连接该如何实现？谢谢。以前做的程序，是单机版的。现在想弄成C/S的。

Question

在此请教一下，谢谢。
再罗嗦一下，呵呵。。
以前做了个管理系统VB+SQL2000，里面数据库连接用的adodc控件，是直接右键设置的连接属性，这样的话就只设置在本机器上使用了。
现在想改成C/S版的，但是由于有比较多的界面，而且有比较多的ADODC控件，如果这样一个个去改设置的话，好像不是个办法，用的ADODC太多了。
我想问如何用代码来实现直接连接到服务器，而且，软件操作的用户能够直接通过这个界面去设置所要连接的服务器。
非常感谢啊。

Answer 1

你现在是要用ADO对象来操作数据库吧
Public CNN As New ADODB.Connection                        ’在模块中定义
Sub Main()
    Dim strCnn As String
    Dim GstrCnn As String
    Dim strPWD As String
    
    IniFileName = App.Path & "\AppSet.ini"                ’从INI文件里得到   
    
    ServerIP = getIni(IniFileName, "SYSTEM", "ServerIP")  ’服务器IP
    DBNAME = getIni(IniFileName, "SYSTEM", "DBNAME")      ’数据库名字
    USER = getIni(IniFileName, "SYSTEM", "USER")          ’用户名称
    PASS = getIni(IniFileName, "SYSTEM", "PASS")          ’操作密码
    
    Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & USER & ";PassWord=" & PASS & ";Initial Catalog=" & DBNAME & ";Data Source=(Local)"                         ’连接字符串
    CNN.CursorLocation = adUseClient                      ’游标类型
    CNN.ConnectionString = Connstr
    CNN.Open                                              ’打开连接
    
    frmMain.ShowEnd Sub