Office中国论坛/Access中国论坛
标题:
代码自动创建ODBC源
[打印本页]
作者:
tmtony
时间:
2010-8-2 10:16
标题:
代码自动创建ODBC源
自动创建ODBC
Function gt_TestOdbc(rstDsn As String, rstrUser As String, rstrPassword As String, rstrTableName As String) As Boolean
On Error GoTo err_c
DoCmd.SetWarnings False
Dim Response As Integer
Dim connstr As String, mydb As DAO.Database
connstr = "ODBC;DSN=" & rstDsn & ";"
connstr = connstr & "UID=" & rstrUser & ";"
connstr = connstr & "PWD=" & rstrPassword & ";"
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
'
' Set dbs = CurrentDb()
' Set qdf = dbs.CreateQueryDef("")
'
' 'Replace <DSN> with the actual DSN that points to your SQL Server.
' qdf.connect = connstr ' "ODBC;DSN=<DSN>;UID=" & strUserId & "WD=" & _
' strPassword & ";DATABASE=pubs"
' qdf.ReturnsRecords = False
'
' 'Any SQL statement will work below.
' qdf.SQL = "SELECT * FROM " & rstrTableName
' qdf.Execute
'
'
Set mydb = DBEngine.Workspaces(0).OpenDatabase("", False, False, connstr)
' curpos = 0
gt_TestOdbc = True
Exit Function
err_c:
gt_TestOdbc = False
' MsgBox "数据库用户,口令错误,重新登录!", , "文具"
' DoCmd.RunSQL "delete from tblOdbcCfg"
' DoCmd.Quit
Exit Function
End Function
复制代码
作者:
xuwenning
时间:
2010-8-2 11:25
老大这段事件作品不断
作者:
tmtony
时间:
2010-8-2 11:54
谢谢, 翻出以前的老本, 感觉可能大家也用得到,就发上来
作者:
t小宝
时间:
2010-9-16 12:18
挖一下宝
作者:
huangli0356
时间:
2013-1-28 17:05
我也学学..谢谢分享.
作者:
winshao
时间:
2015-4-24 14:25
用不了呀,不会用,
作者:
红尘客栈
时间:
2016-5-18 00:27
学习学习再说吧
作者:
gdjdyyj
时间:
2018-11-4 11:41
学习!!!!
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3