SIJO Soft DSN

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 : [e-mail]
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