朋友们，请告诉我怎么调用数据链接属性窗口,以及它传回的参数怎么调用吧~~~~~~~~

Question

见题目

Answer 1

就是自动生成ConnectionString的哪个窗口

Answer 2

新建一个udl文件，执行这个文件就会弹出这个窗体，然后用你的Connection对象打开：cnn.Open "File Name = YourFile.udl"

Answer 3

To : XunBaian(蓝水晶)  打开时提示could not resolve service name 怎么回事啊？麻烦告知，谢谢

Answer 4

你是怎么做的？有没有打开一个udl文件，用这个udl文件正确配置后按“确定”，然后才用你的Connection对象。假设你建的udl文件为：C:\My.udl.cnn.Open "File Name=C:\My.udl"

Answer 5

To : XunBaian(蓝水晶)Option Explicit
Dim cnn As ADODB.ConnectionPrivate Sub Command1_Click()
    Set cnn = New ADODB.Connection
    cnn.Open "File Name=C:\test.udl"
End Sub我按照你说的做的，配置好以后udl文件里就有了内容了，可是点击按钮却没有反应，还有就是那个连接字符串怎么传进vb里呢？有劳

Answer 6

你这样是正确的，cnn.Open "File Name=C:\test.udl"　这句已经将连接字符串传进去并用来打开连接了，这只是一个Open的操作，点按钮当然看不到反应，但实际上已经打开你的cnn对象了。

Answer 7

To : XunBaian(蓝水晶)
我希望能够先调出数据链接属性窗口，在这里配置我的数据库。配置完了以后再打开udl文件取得连接，这样就比较灵活了。这样我该怎么做呢？

Answer 8

引用 Microsoft OLE DB Service Component 1.0 Type Lib (oledb32.dll)Private Sub Form_Load()
    Dim o As New DataLinks
    Dim oCnn As New Connection
    
    oCnn = o.PromptNew
    Debug.Print oCnn.ConnectionString
    
    oCnn = o.PromptEdit(oCnn)
    Debug.Print oCnn.ConnectionString
End Sub

Answer 9

Option ExplicitPrivate Const INFINITE = &HFFFFFFFF
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Type SHELLEXECUTEINFO
    cbSize As Long
    fMask As Long
    hwnd As Long
    lpVerb As String
    lpFile As String
    lpParameters As String
    lpDirectory As String
    nShow As Long
    hInstApp As Long
    lpIDList As Long
    lpClass As String
    hkeyClass As Long
    dwHotKey As Long
    hIcon As Long
    hProcess As Long
End Type
Private Declare Function ShellExecuteEx Lib "shell32.dll" (SEI As SHELLEXECUTEINFO) As LongDim cnn As ADODB.ConnectionPrivate Sub Command1_Click()
   Dim SEI As SHELLEXECUTEINFO   With SEI
         .cbSize = Len(SEI)
         .fMask = SEE_MASK_NOCLOSEPROCESS
         .hwnd = 0
         .lpVerb = vbNullChar
         .lpFile = "C:\test.udl"
         .lpParameters = vbNullChar
         .lpDirectory = vbNullChar
         .nShow = 0
         .hInstApp = 0
         .lpIDList = 0
   End With
   If ShellExecuteEx(SEI) <> 0 Then
         WaitForSingleObject SEI.hProcess, INFINITE '等待结束
         CloseHandle SEI.hProcess
   End If    Set cnn = New ADODB.Connection
    cnn.Open "File Name=C:\test.udl"End Sub

Answer 10

推荐用“supergreenbean(超级绿豆 - 要准备发芽了) ”提供的方法。