请问vb中,能用data Environment 动态连接sql数据库么

Question

        小弟的构想是这样子的.
        在进入应用程序的时候,有一个登陆框,录入要连接的数据库的名字,然后一按登陆按钮的时候,text里面的值就自动赋值到dataenviromwnt里面的connection对象的datasource里面去,从而实现动态连接,如果数据库名是现在数据库中没有的值,则msgbox:请输入正确的数据库代号!   
         因为使用dataenvironment这个设计器比较方便,建立的 命令也可以很方便的引用,就是不知道怎样用代码来实现动态sql连接.跪求高手指导工作,谢谢了!!!!!!
       

Answer 1

'楼主没有说是什么库，下面是连接sql server本地库的
Private Sub DataEnvironment_Initialize()
    on error goto A0
    linkcn="Provider=sqloledb;Data Source=.;Initial Catalog=" & text1.text & ";User Id=sa;Password="
    DataEnvironment1.Connection1.ConnectionTimeout = 30
    DataEnvironment1.Connection1.ConnectionString = linkcn
    DataEnvironment1.Connection1.Open linkcn
    exit sub
A0: msgbox "请输入正确的数据库代号!"
End Sub