'引用 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
分享到:
相关推荐
数据链接文件 (*.udl) XML 文档 (*.xml) HTML 文档 (*.htm, *.html) Interbase 数据库 (*.gdb, *.ib) Lotus 文件 (*.wj2, *.wj3, *.wk1, *.wk3, *.wk4) 可以导出为下列格式: XLS, HTML, XML, TXT, CSV, DBF, RTF ...
IBM OLE PROVIDER FOR DB2 数据源连接.udl
获取oracle的连接串的方法,在本地新建一个.txt文件,修改扩展名名*.udl,双击*.udl文件,打开数据库链接属性,定位到“提供程序”选显卡,选中oracle的连接oracleproviderforOLEDB,点击下一步,输入数据
解决64位操作系统UDL的OLE DB没有Oracle数据源的问题。
建立udl文件建立udl文件建立udl文件建立udl文件
使用ADO技术数据库访问方式连接SQL数据库,使用udl文件方便配置数据源
Delphi 通用数据库连接文件 双击打开 connection.udl 按提示操作配置数据库,选择本地或远程数据库,配置好后退出。
VB使用udl的方法进行数据库编程非常的好用
udl,vb,数据连接属性
DBSync是一款数据库比较与同步软件,能找出数据库之间的差异,能实时同步差异数据,从而使双方始终保持一致。支持各种数据库,支持异构同步、增量同步,且提供永久免费版。
在Visual C++中如何利用UDL文件来建立ADO连接(数据库技术)
delphi数据库udl连接
Easy客户关系管理系统 本软件是一个针对于客户关系管理而设计...修改数据连接配置文件“Connect.udl”来实现连 接两种数据库,软件内部也根据两种数据库的特性 做了兼容性设计。 详细说明可以参见附带的“Help.pdf”。
双击这个mysql.udl文件,打开“数据库连接属性”对话框,在“提供程序”页选择”Micrsoft Ole DB Provider for ODBC Drivers“, 点击下一步; 3.在“连接”页的,指定数据源选择使用连接字符串; 4.点击...
您可以直接在命令行中获取UDL文件npx markdown-plus-plus --help 。 构建系统依赖于Node.js。 git clone然后npm install开发这个仓库。 更少的依赖地狱。 在v2中,每个主题都有2种构建:现代和经典。 现在,只有1...
LABVIEW数据库子VI,基于WINDOWS ODBC 通过ODBC创建 .UDL文件。读取UDL即可实现数据库访问。支持多种数据库,ACCESS, MYSQL, SQL SERVER.
注:udl(Universal Data Link)是通用数据连接文件,使用通用数据链接 (UDL) 文件来保存连接字符串。 2.打开这个文件以后输入服务器的ip(因为我是本机所以用了实例名)和用户名密码就可以测试连接了,是不是很方便。...
用友U890发货单数据导入 DispatchList 发货单主表 DispatchLists 发货单子表 对这两个表的动态数据进行导入 demo.xls为演示数据 说明: 一、关于demo.xls说明 数据表名必须为: Sheet1 发货单号 表体自定义项1 ...
详细介绍了使用labview开发语言,如何通过udl去链接数据库。
UDL file created in Labview.