怎样在vb中用代码设置odbc,谢谢。：）
怎样在vb中用代码设置odbc,谢谢。：）
在安装程序中，谢谢了，好着急。
问题点数：50、回复次数：4Top
1 楼mickwang（*pMick）回复于 2002-06-17 16:37:49 得分 10
http://202.98.116.66/amtd/article/0041859.htmlTop
2 楼Zhang_1978（小卿）回复于 2002-06-17 16:51:02 得分 20
Private Const ODBC_ADD_DSN = 1 ' Add data source
Private Const ODBC_CONFIG_DSN = 2 ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3 ' Remove data source
Private Const vbAPINull As Long = 0& ' NULL Pointer
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 Sub CreateDSN(sDSN As String)
Dim nRet As Long
Dim sDriver As String
Dim sAttributes As String
sDriver = "Oracle73 Ver 2.5"
sAttributes = "Server=Oracle8" & Chr$(0)
sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)
'sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
sAttributes = sAttributes & "DATABASE=DBFinance" & Chr$(0)
sAttributes = sAttributes & "Userid=Scott" & Chr$(0)
'sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)
DBEngine.RegisterDatabase sDSN, sDriver, True, sAttributes '注一
'nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes) '注二
End Sub
Public Sub DeleteDSN(sDSN As String)
Dim nRet As Long
Dim sDriver As String
Dim sAttributes As String
sDriver = "Oracle73 Ver 2.5"
sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
nRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, sDriver, sAttributes)
End Sub
'假设要产生的 DSN 为 Test，实际使用示例如下：
Private Sub Command1_Click()
CreateDSN "Test"
End Sub
Private Sub Command2_Click()
DeleteDSN "Test"
End Sub
Top
3 楼sunxl（小呆）回复于 2002-06-17 17:04:14 得分 20
http://www.csdn.net/Expert/TopicView1.asp?id=777670
我这个代码都 贴了好几次了
希望大家不要这个问题Top
4 楼MULTIHERO（还凑湖）回复于 2002-06-17 17:54:53 得分 0
谢了Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
