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

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 14 行

(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>