现在的位置: 首页 > 综合 > 正文

SIJO Soft DSN

2013年08月08日 ⁄ 综合 ⁄ 共 3024字 ⁄ 字号 小 中 大 ⁄ 评论关闭
  1. '**************************************
  2. 'Windows API/Global Declarations for :__
  3. '     ____________...:::SIJO Soft DSN:::...___
  4. '     
  5. '**************************************
  6. ' **************************************
  7. '     ********************************
  8. ' * Comments : Some functions for DSN
  9. ' *
  10. ' *
  11. ' **************************************
  12. '     ********************************
  13. Option Explicit
  14. 'Declarations Used to Generate DSN
  15. Private Const ODBC_ADD_DSN = 1 ' Add data source
  16. Private Const ODBC_CONFIG_DSN = 2' Configure (edit) data source
  17. Private Const ODBC_REMOVE_DSN = 3' Remove data source
  18. Private Const vbAPINull As Long = 0& ' NULL Pointer
  21. 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
  23. '**************************************
  24. ' Name: ______________...:::SIJO Soft DS
  25. '     N:::...___
  26. ' Description:Create / Delete DSN
  27. ' By: SIJO Soft Corp
  28. '
  29. '
  30. ' Inputs:None
  31. '
  32. ' Returns:None
  33. '
  34. 'Assumes:None
  35. '
  36. 'Side Effects:None
  37. 'This code is copyrighted and has limite
  38. '     d warranties.
  39. 'Please see http://www.Planet-Source-Cod
  40. '     e.com/xq/ASP/txtCodeId.43561/lngWId.1/qx
  41. '     /vb/scripts/ShowCode.htm
  42. 'for details.
  43. '**************************************
  47. Public Sub CreateDSN(sDSN As String)
  48.     ' **************************************
  49.     '     ********************************
  50.     ' * Comments : Create a DSN
  51.     ' *
  52.     ' *
  53.     ' **************************************
  54.     '     ********************************
  55.     Dim nRetAs Long
  56.     Dim sDriverAs String
  57.     Dim sAttributes As String
  58.     sDriver = "Oracle73 Ver 2.5"
  59.     sAttributes = "Server=pressdb.world" & Chr$(0)
  60.     sAttributes = sAttributes & "DESCRIPTION=" & sDSN & Chr$(0)
  61.     sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
  62.     sAttributes = sAttributes & "DATABASE=DB" & Chr$(0)
  63.     sAttributes = sAttributes & "UID=Waty" & Chr$(0)
  64.     sAttributes = sAttributes & "PWD=myPassword" & Chr$(0)
  65.     DBEngine.RegisterDatabase "kiki", "Oracle73 Ver 2.5", True, sAttributes
  66.     'nRet = SQLConfigDataSource(vbAPINull, O
  67.     '     DBC_REMOVE_DSN, sDriver, sAttributes)
  68. End Sub
  71. Public Sub DeleteDSN(sDSN As String)
  72.     ' #VBIDEUtils#**************************
  73.     '     **********************************
  74.     ' * Programmer Name : Waty Thierry
  75.     ' * Web Site : www.geocities.com/Researc
  76.     '     hTriangle/6311/
  77.     ' * E-Mail : waty.thierry@usa.net
  78.     ' * Date: 25/11/98
  79.     ' * Time: 15:08
  80.     ' * Module Name: DSN_Module
  81.     ' * Module Filename : DSN.bas
  82.     ' * Procedure Name : DeleteDSN
  83.     ' * Parameters:
  84.     ' * sDSN As String
  85.     ' **************************************
  86.     '     ********************************
  87.     ' * Comments : Delete a DSN
  88.     ' *
  89.     ' *
  90.     ' **************************************
  91.     '     ********************************
  92.     Dim nRetAs Long
  93.     Dim sDriverAs String
  94.     Dim sAttributes As String
  95.     sDriver = "Oracle73 Ver 2.5"
  96.     sAttributes = sAttributes & "DSN=" & sDSN & Chr$(0)
  97.     nRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, sDriver, sAttributes)
  98. End Sub
返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞