怎样在程序中弹出ADODC控件的属性页对话框？急~~~~~~~~~

Question

如题！

Answer 1

1.先在窗体上添加该控件，后在属性connectionstring点击
2.该窗口主要是来设置数据提供者，实际上用编程的语言来设置ADO数据提供者即可。

Answer 2

写一个括展名为udl的文件，然后调用

Answer 3

引用OLE DB services component 1.0 type和ADO
Option Explicit
Dim adoConn As ADODB.Connection
Private Function BuildAdoConnection(ByVal ConnectionString As String) As String    ' display the ADO Connection Window (ADO DB Designer)    Dim dlViewConnection As MSDASC.DataLinks    On Error GoTo Err_BuildAdoConnection
    
    
    If Not (Trim$(ConnectionString) = "") Then
        Set adoConn = New ADODB.Connection
        adoConn.ConnectionString = ConnectionString
        Set dlViewConnection = New MSDASC.DataLinks
        dlViewConnection.hWnd = Me.hWnd
            If dlViewConnection.PromptEdit(adoConn) Then
                BuildAdoConnection = adoConn.ConnectionString
            Else
                BuildAdoConnection = ConnectionString
            End If
        Set dlViewConnection = Nothing
        Set adoConn = Nothing
    Else
        Set dlViewConnection = New MSDASC.DataLinks
        dlViewConnection.hWnd = Me.hWnd
        Set adoConn = dlViewConnection.PromptNew
        BuildAdoConnection = adoConn.ConnectionString
        Set dlViewConnection = Nothing
        Set adoConn = Nothing
    End IfExit_BuildAdoConnection:    On Error Resume Next
        If Not (adoConn Is Nothing) Then
            Set adoConn = Nothing
        End If
        If Not (dlViewConnection Is Nothing) Then
            Set dlViewConnection = Nothing
        End If
    On Error GoTo 0
    Exit FunctionErr_BuildAdoConnection:    Select Case Err
        Case 0
            Resume Next
        Case -2147217805
            adoConn.ConnectionString = ""
            Resume
        Case 91
            Resume Exit_BuildAdoConnection
        Case Else
            MsgBox "Error: " & Err.Number & vbCrLf & vbCrLf & Err.Description, vbInformation, App.Title & "  -  Advisory"
            Resume Exit_BuildAdoConnection
    End Select
   
End Function
Private Sub Command1_Click()
    Set adoConn = New ADODB.Connection
    Dim strAdoConn As String
    strAdoConn = BuildAdoConnection("")  'strAdoConn 为连接字符串
    MsgBox strAdoConn
End Sub

Answer 4

Private objDataLink As New MSDASC.DataLinks
    Dim sConnect As String
          Set objDataLink = New MSDASC.DataLinks在引用中引用
microsoft ole db service component 1.0 type 库
如上声明就可以了

Answer 5

sConnect = objDataLink.PromptNew

Answer 6

新建一个数据链路文件(*udl)文件