Office中国论坛/Access中国论坛

标题: 在论坛里找到这些代码，请教如何将它修改成连接SQL的ODBC DSN ？ [打印本页]

作者: wmok 时间: 2006-10-4 05:54
标题: 在论坛里找到这些代码，请教如何将它修改成连接SQL的ODBC DSN ？
'以下代码用来新建一个ACCESS的DSN
Private Const ODBC_ADD_SYS_DSN = 4
Private Declare Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Public Function newodbc(StrDriver, StrAttributes As String) As Boolean
LoadDbSource2 = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes)
End Function
Public Sub newodbc1()
Dim StrAttributes As String
StrAttributes = "DSN=newODBC" & Chr(0) & "Desciption=newodbc" & Chr(0)
StrAttributes = StrAttributes & "Dbq=" & CurrentProject.Path & "\colorset.mdb" & Chr(0) & "FIL=MS Access;" & Chr(0)
StrAttributes = StrAttributes & "MaxBufferSize=2048" & Chr(0) & "

ageTimeout=5" & Chr(0)
newodbc "Microsoft Access Driver (*.mdb)", StrAttributes
MsgBox "成功！。。。"
End Sub

作者: wmok 时间: 2006-10-4 05:57
假设

SQL服务器名：FC_ser 或ip为192.168.1.23

数据库名：ja_kq

登录名：sa

密码：1234

port:1033

[此贴子已经被作者于2006-10-3 21:58:41编辑过]

作者: Grant 时间: 2006-10-4 09:09
看看此例子相信你会明白

本例用到：

1、自动创建ODBC数据源的代码（判断有无指定数据源，如果没有，创建___“Creat_SDSN过程”）

2、自动创建链接表的代码

3、自动刷新链接表的代码（判断有无指定数据源，如果没有，提示创建；如果有，刷新链接表）

点击下载

作者: huangxiuwen 时间: 2009-2-15 03:40
学习

作者: huangxiuwen 时间: 2009-8-15 12:20
学习

作者: 醉里挑灯看剑 时间: 2010-4-20 11:12
学习一下了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)