在vb6中可以使用代码弹出OLEDB连接对话框，并将最终的连接字符串设置到Connection对象的ConnectionString属性中。
1. 按如下图所示引用依赖库
2. 使用如下代码弹出OLEDB连接对话框：
Private Sub Command_Click()
Dim myDB As New ADODB.Connection
Dim myLink As New MSDASC.DataLinks
myLink.PromptEdit myDB
Debug.Print myDB.ConnectionString
End Sub
|
阅读(3129) | 评论(0) | 转发(0) |
