***********8888888那位大虾给解决了 ，单独开贴放100分*************

[wingchi19791008]

请问一下，如何使用vb中的数据视图窗口中的添加新的数据链接来连接数据库？谢谢

[snail2011]

你点击了数据视图窗口,可以添加新的数据视图窗口,
若要连接数据的话,你在其上右健点击,先取"添加数据连接",
然后就下一步跟着指导作就行了.

[snail2011]

一般是默认的是ODBC驱动.

[lxcc]

引用microsoft ole db service component 1.X type library
和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 If

Exit_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 Function

Err_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

[yijiansong]

如上

[bigpig]

up

[prok]

引用ado

[Lionking1027]

ADO,ADO,ADO!!!!!

[lzj34]

引用ado
Dim adoConn As ADODB.Connection

[viena]

呵呵