在用rdo编程中，如何使用代码连接数据库，不用windows的dsn注册.txt

VB技巧问答10000例 VB技巧问答10000例

(1)rdo connection(not dsn) 
    Dim Cn As rdoConnection 
    Dim En As rdoEnvironment 
    Dim Conn As String 
    Set En = rdoEnvironments(0) 
    Conn = 
    "UID=goodsheep;PWD=password;DATABASE=dbname;SERVER=servername;DRIVER={SQL 
    SERVER};DSN='';" 
    Set Cn = En.OpenConnection(dsName:="", prompt:=rdDriverNoPrompt, 
    Connect:=Conn) 
     (2) 
    数据源或 ODBC 驱动程序管理器管理的行的逻辑集合。以游标命名的原因在于，就像CRT 屏幕上的光标指出当前位置一样，它指出结果集合中的当前位置。 
<END>