odbc数据源

[henyzhang]

现在代码中做一个dsn,各位有没有这方面的资料，包括检测系统中是否已经存在同名的数据源，怎么样创建dsn和删除dsn.

[henyzhang]

不会没人知道吧。

[henyzhang]

Private Sub CreateDSN()
Dim intRet As Long
Dim strDriver As String
Dim strAttributes As String

strDriver = "SQL Server"
strAttributes = "SERVER=192.168.1.152" & Chr$(0)
strAttributes = strAttributes & "DESCRIPTION=heny" & Chr$(0)
strAttributes = strAttributes & "DSN=text" & Chr$(0)
strAttributes = strAttributes & "DATABASE=text" & Chr$(0)
strAttributes = strAttributes & "UID=netsoft" & Chr$(0)
strAttributes = strAttributes & "PWD=netsoft" & Chr$(0)

intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
If intRet Then
MsgBox "DSN 建立"
Else
MsgBox "失败"
End If
End Sub

Private Sub DeleteDSN()
Dim intRet As Long
Dim strDriver As String
Dim strAttributes As String

strDriver = "SQL Server"
strAttributes = "DSN=text" & Chr$(0)
intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes)
If intRet Then
MsgBox "DSN 删除"
Else
MsgBox "失败"
End If
End Sub

为什么老提示失败呢。

[TaoHuang]

創建DSN
1、在“控制面版”中打開ODBC數據源,
2、選擇“File DSN”頁面，按下"Add".
3、在彈出的Form中選擇好數據庫類型好，比如選SQL Server,按“下一步”
4、選擇好保存DSN File的路徑和文件名稱，按“下一步”，再按“完成”
5、在彈出的Form中選擇好Server名稱。
6、跟據提示不斷按下一步，過程中要選擇數據名稱和一些其它設置。直到完成即可。

刪除DSN就更簡單了
只要在“File DSN”頁面選擇要刪除的DSN，按下"Remove"

[henyzhang]

这个我当然知道了啊，我是说在vb代码里创建，因为我的软件的数据库所在的服务器的ip是不一定的啊，所以不能直接做，要不然我也可以在打包时就做进去。

[馮強]

你代码不全吧，SQLConfigDataSource这个过程是什么，应该是调用API添加DSN吧。

[henyzhang]

这个就是api啊，他的声明我没有写出来啊。
是这样的
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

[永远专注NET]

up