通用数据链接文件 (*.UDL) 的创建

原创 2002年02月27日 09:00:00

'引用 Microsoft OLE DB Service Component 1.0 Type Library
Option Explicit
Private Sub Command1_Click()
 Dim x As New MSDASC.DataLinks
 x.hWnd = Me.hWnd
 Dim s As String
 On Error GoTo ErrorHandler
 s = x.PromptNew
 On Error GoTo 0
 If VBA.Len(VBA.Trim(s & "")) > 0 Then
  Dim CommonDialog1 As New MSComDlg.CommonDialog
  CommonDialog1.DefaultExt = ".udl"
  CommonDialog1.Filter = "通用数据链接文件 (*.UDL)|*.udl"
  CommonDialog1.DialogTitle = "保存为通用数据链接文件"
  CommonDialog1.Flags = cdlOFNOverwritePrompt
  CommonDialog1.CancelError = True
  On Error GoTo ErrorHandler
  CommonDialog1.ShowSave
  On Error GoTo 0
  s = "[oledb]" & vbCrLf _
   & "; Everything after this line is an OLE DB initstring" & vbCrLf _
   & s & vbCrLf
  Dim BytesBuffer() As Byte
  BytesBuffer = VBA.StrConv(VBA.StrConv(s, vbUnicode), vbFromUnicode)
  Dim i As Long
  ReDim BytesBuffer0(1) As Byte
  BytesBuffer0(0) = 255 '&HFF
  BytesBuffer0(1) = 254 '&HFE
  If VBA.Len(VBA.Trim(VBA.Dir(CommonDialog1.FileName))) > 0 Then
   VBA.Kill CommonDialog1.FileName
  End If
  On Error GoTo ErrorHandler
  i = VBA.FreeFile
  Open CommonDialog1.FileName For Binary Access Write As #i
  Put #i, , BytesBuffer0
  Put #i, , BytesBuffer
  Close #i
  On Error GoTo 0
  If VBA.MsgBox("Test?", vbYesNo) = vbYes Then
   Dim adoConnection As New ADODB.Connection
   adoConnection.Open "File Name=" & CommonDialog1.FileName
   VBA.MsgBox "OK!"
  End If
 End If
 Exit Sub
ErrorHandler:
 If Err.Number <> 91 And Err.Number <> 32755 Then
  VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description
 End If
End Sub

Private Sub Command2_Click()
 Dim CommonDialog1 As New MSComDlg.CommonDialog
 CommonDialog1.DefaultExt = ".udl"
 CommonDialog1.Filter = "通用数据链接文件 (*.UDL)|*.udl"
 CommonDialog1.DialogTitle = "打开通用数据链接文件"
 'CommonDialog1.Flags = cdlOFNOverwritePrompt
 CommonDialog1.CancelError = True
 On Error GoTo ErrorHandler
 CommonDialog1.ShowOpen
 On Error GoTo 0
 If VBA.Len(VBA.Trim(VBA.Dir(CommonDialog1.FileName))) > 0 Then
  VBA.MsgBox GetConnectionStringFromUDL(CommonDialog1.FileName)
 End If
 Exit Sub
ErrorHandler:
 If Err.Number <> 91 And Err.Number <> 32755 Then
  VBA.MsgBox Err.Number & ":" & vbCrLf & Err.Description
 End If
End Sub

Public Function GetConnectionStringFromUDL(UDLFileName As String) As String
 If VBA.Len(VBA.Trim(VBA.Dir(UDLFileName & ""))) > 0 Then
  Dim BytesBuffer() As Byte
  ReDim BytesBuffer(VBA.FileLen(UDLFileName) - 133) As Byte
  Dim i As Long
  i = VBA.FreeFile
  Open UDLFileName For Binary Access Read As #i
  Get #i, 129, BytesBuffer
  Close #i
  GetConnectionStringFromUDL = VBA.Trim(VBA.StrConv(VBA.StrConv(BytesBuffer, vbFromUnicode), vbUnicode))
 End If
End Function

Oracle 使用udl文件测试数据库连接(不积跬步,无以至千里)

新创建一个空的txt文件.把扩展名修改为udl就了. UDL本身是个文本文件. 它的主要作用是查看配置好的数据库连接字...
  • chenghaibing2008
  • chenghaibing2008
  • 2014年08月27日 14:07
  • 4197

建立udl数据链接文件,测试链接

建立udl数据链接文件,测试链接标题:建立udl数据链接文件,测试链接方法如下:(以打开Excel 2002为例)1.新建一个文本文档,后缀名为.udl;2.双击此文件,依次选择:提供程序:Micro...
  • FollowIT
  • FollowIT
  • 2008年01月09日 14:36
  • 847

udl文件的制作——用于ADO数据库连接(Oracle举例)

名词术语DSN(Data Source Name)数据源名UDL(Universal Data Link)通用数据库链接。是一种文件类型,后缀为.udl。使用通用数据链接 (UDL) 文件来保存连接字...
  • MyEclipseWorkspace
  • MyEclipseWorkspace
  • 2010年05月31日 17:42
  • 3553

udl文件的创建

1.新建一个以“.udl”为扩展名的文件:在要存放udl文件的目录下新建一文本文件,然后将其后缀名改为“.udl” 2.双击打开按向导完成...
  • ludan42
  • ludan42
  • 2011年11月13日 14:33
  • 186

使用UDL测试数据库连接、生成连接字符串

1.什么是UDL udl(Universal Data Link)是通用数据连接文件,使用通用数据链接 (UDL) 文件来保存连接字符串。 使用 UDL 文件存储数据库连接的方式和使用“ODBC ...
  • CGS_______
  • CGS_______
  • 2017年06月27日 14:05
  • 709

Delphi 通用数据库连接文件(*.udl)方法

一、右键---新建---文本文档,重命名为 connection.udl 。二、双击打开 connection.udl 按提示操作配置数据库,选择本地或远程数据库,配置好后退出。三、使用Delphi ...
  • 78hgdong
  • 78hgdong
  • 2007年11月09日 09:32
  • 4803

UDL文件使用介绍

使用通用数据连接文件(*.UDL,以下简称文件)来创建ADO连接,可以和ODBC一样可视化地定义要连接的数据源,从而实现数据访问的透明性。   1.使用UDL文件来创建ADO连接   创建ADO的连接...
  • ghhong
  • ghhong
  • 2010年10月13日 18:27
  • 5168

巧用“UDL”文件获取SQL server数据库的连接字符串

巧用“UDL”文件获取SQL server数据库的连接字符串
  • yangyisen0713
  • yangyisen0713
  • 2016年06月06日 11:15
  • 2571

UDL文件在程序的中使用(c#代码)

UDL文件中保存着数据库连接字符串,以前有过一篇文章可以参考简单方法获取数据连接的字符串(udl文件) 今天下载了一个开源程序bts,发现里面是直接使用UDL文件来获取连接字符串的,代码如下://.....
  • lanman
  • lanman
  • 2009年05月26日 13:53
  • 2219

创建通用链接

原文:Universal Links – Make the Connection 作者:Owen Brown 译者:kmyhy 你有要和 iOS app 共享内容的网站吗?在 iOS 9 ...
  • kmyhy
  • kmyhy
  • 2016年08月01日 11:06
  • 2520
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:通用数据链接文件 (*.UDL) 的创建
举报原因:
原因补充:

(最多只允许输入30个字)