2002年2月27日
通用数据链接文件 (*.UDL) 的创建
摘要： '引用 Microsoft OLE DB Service Component 1.0 Type LibraryOption ExplicitPrivate Sub Command1_Click()Dim x As New MSDASC.DataLinksx.hWnd = Me.hWndDim s As StringOn Error GoTo ErrorHandlers = x.PromptNewOn Error GoTo 0If VBA.Len(VBA.Trim(s & "")) > 0 ThenDim CommonDialog1 As New MSC 阅读全文
posted @ 2002-02-27 09:00 于斯人也 阅读(501) 评论(0) 推荐(0)