在论坛里找到这些代码，请教如何将它修改成连接SQL的ODBC DSN ？

wmok

'以下代码用来新建一个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

假设

SQL服务器名：FC_ser 或ip为192.168.1.23

数据库名：ja_kq

登录名：sa

密码：1234

port:1033

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

Grant

看看此例子相信你会明白

本例用到：

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

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

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

点击下载

huangxiuwen

学习

huangxiuwen

学习

醉里挑灯看剑

学习一下了