SIJO Soft DSN
来源:互联网 发布:淘宝关注人数最多的店 编辑:程序博客网 时间:2024/06/05 18:10
- '**************************************
- 'Windows API/Global Declarations for :__
- ' ____________...:::SIJO Soft DSN:::...___
- '
- '**************************************
- ' **************************************
- ' ********************************
- ' * Comments : Some functions for DSN
- ' *
- ' *
- ' **************************************
- ' ********************************
- Option Explicit
- 'Declarations Used to Generate DSN
- 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
- '**************************************
- ' Name: ______________...:::SIJO Soft DS
- ' N:::...___
- ' Description:Create / Delete DSN
- ' By: SIJO Soft Corp
- '
- '
- ' Inputs:None
- '
- ' Returns:None
- '
- 'Assumes:None
- '
- 'Side Effects:None
- 'This code is copyrighted and has limite
- ' d warranties.
- 'Please see http://www.Planet-Source-Cod
- ' e.com/xq/ASP/txtCodeId.43561/lngWId.1/qx
- ' /vb/scripts/ShowCode.htm
- 'for details.
- '**************************************
- Public Sub CreateDSN(sDSN As String)
- ' **************************************
- ' ********************************
- ' * Comments : Create a DSN
- ' *
- ' *
- ' **************************************
- ' ********************************
- Dim nRetAs Long
- Dim sDriverAs String
- Dim sAttributes As String
- sDriver = "Oracle73 Ver 2.5"
- sAttributes = "Server=pressdb.world" & Chr$(0)
- sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)
- sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
- sAttributes = sAttributes & "DATABASE=DB" & Chr$(0)
- sAttributes = sAttributes & "UID=Waty" & Chr$(0)
- sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)
- DBEngine.RegisterDatabase "kiki", "Oracle73 Ver 2.5", True, sAttributes
- 'nRet = SQLConfigDataSource(vbAPINull, O
- ' DBC_REMOVE_DSN, sDriver, sAttributes)
- End Sub
- Public Sub DeleteDSN(sDSN As String)
- ' #VBIDEUtils#**************************
- ' **********************************
- ' * Programmer Name : Waty Thierry
- ' * Web Site : www.geocities.com/Researc
- ' hTriangle/6311/
- ' * E-Mail : waty.thierry@usa.net
- ' * Date: 25/11/98
- ' * Time: 15:08
- ' * Module Name: DSN_Module
- ' * Module Filename : DSN.bas
- ' * Procedure Name : DeleteDSN
- ' * Parameters:
- ' * sDSN As String
- ' **************************************
- ' ********************************
- ' * Comments : Delete a DSN
- ' *
- ' *
- ' **************************************
- ' ********************************
- Dim nRetAs Long
- Dim sDriverAs String
- Dim sAttributes As String
- sDriver = "Oracle73 Ver 2.5"
- sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
- nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes)
- End Sub
- SIJO Soft DSN
- soft
- soft
- DSN 錯誤代碼
- 关于DSN
- hard parse soft parse soft soft parse
- 用户DSN、系统DSN、文件DSN的区别
- 用户DSN,系统DSN,文件DSN的区别
- 用户DSN,系统DSN,文件DSN的区别
- 用户DSN、系统DSN、文件DSN的区别
- 自动创建DSN,删除DSN CreateDSN DelDSN
- soft bbs
- ubuntu soft
- CMS Soft
- Soft Archi
- Edraw soft
- install soft
- soft sunset
- C/C++面试之算法系列--如何利用数学思想解1/2/5组合问题
- Ubuntu8.04下安装DC2007
- C#调用matlab dll出现的怪问题-----折腾matlab dll好久了
- VMware 虚拟机下网络连接的三种模式
- DC Basics
- SIJO Soft DSN
- MyEclipse6.0序列号算法源程序 调试通过
- IT行业未来的十种关键技术
- 图片的按比例缩小.
- 工厂方法模型之PHP实现
- SciTE Lua Scripting Extension
- 北大青鸟ACCP5.0学习资料
- 廣外通用看牌器[遊戲茶苑 鬥地主 456遊戲中心等]
- 通宵搞LVS工作一则