调用Ado连接窗口,获得连接字符串。 用VB新建一标准EXE工程,引用Microsoft OLE DB Service Component 1.0 Type Libary和Microsoft ActiveX Data Objects 2.x Library(具体操作与ADODC的引用类似,只是通过菜单[工程]\[引用...]选),加一个TextBox到Form1,双击Form1,进入Code编辑区,清除VB自动生成的所有代码,再输入下述代码: Option Explicit Private Sub Form_Load() Dim dlTemp As MSDASC.DataLinks Dim cnTemp As ADODB.connection Set dlTemp = New MSDASC.DataLinks Set cnTemp = New ADODB.connection dlTemp.PromptEdit cnTemp Text1.Text = cnTemp.ConnectionString Set dlTemp = Nothing Set cnTemp = Nothing End Sub 运行时会弹出一个与ADODC相似的生成连接字符串的向导,输入各相关数据,“确定”后在Form1的Text1中就得到我们需要的连接字符串。 呵呵,可以在运行时获得连接串,存起来然后下次用就可以啦
Option Explicit
Private Sub Form_Load() Dim dlTemp As MSDASC.DataLinks Dim cnTemp As ADODB.connection
Set dlTemp = New MSDASC.DataLinks Set cnTemp = New ADODB.connection
dlTemp.PromptEdit cnTemp Text1.Text = cnTemp.ConnectionString
Set dlTemp = Nothing Set cnTemp = Nothing End Sub
运行时会弹出一个与ADODC相似的生成连接字符串的向导,输入各相关数据,“确定”后在Form1的Text1中就得到我们需要的连接字符串。 呵呵,可以在运行时获得连接串,存起来然后下次用就可以啦