如何洽当地保存database的directory++再请问如何执行register.xml??

haroldlbc

假如我用VB做了一个module
是用来寻找database的directory
以便让我的program利用database...

那么
通常大家是怎样保存那个directory
以便让sub-modules来refer呢？

以前我作project的方法很烂（我是中途做project先的，现在还在读）
是在MDI form里define一个变量来保存
然后sub-module可以refer MDI

丢脸
所以要问大家比较妥当

懂VS Studio的人可以回答我...

[ 本帖最后由 haroldlbc 于 22-5-2006 01:00 PM 编辑 ]

goatstudio

不用丢脸, 你的算是一个方法之一.

另一个方法, 是用 public variable.
另外, 可以记录在 registry/xml 文件里, 这样, 不只是随时随地可以 refer 你的 database, 以后再打开你的软件, 也不需要再要求用户重新输入资料库的 path.

johe07

原帖由 goatstudio 于 22-5-2006 00:17 发表
不用丢脸, 你的算是一个方法之一.

另一个方法, 是用 public variable.
另外, 可以记录在 registry/xml 文件里, 这样, 不只是随时随地可以 refer 你的 database, 以后再打开你的软件, 也不需要再要求用户重 ...

我想问，所谓不需要重新输入的意思是输入原本的path对吗？

那么，如果path换了，是不是我们需要改registry/xml里面所设定的path，对吗？

goatstudio

原帖由 johe07 于 22-5-2006 09:15 AM 发表


我想问，所谓不需要重新输入的意思是输入原本的path对吗？

那么，如果path换了，是不是我们需要改registry/xml里面所设定的path，对吗？

这个当然... 当 path 换了... 程序找不到, pop 出对话框要求重新输入咯...

johe07

我以为有更神奇的方法。。。
哈哈哈

谢谢

haroldlbc

原帖由 goatstudio 于 22-5-2006 12:17 AM 发表
不用丢脸, 你的算是一个方法之一.

另一个方法, 是用 public variable.
另外, 可以记录在 registry/xml 文件里, 这样, 不只是随时随地可以 refer 你的 database, 以后再打开你的软件, 也不需要再要求用户重 ...

registry／xml比较容易
public class／varable 的coding很难...


[ 本帖最后由 haroldlbc 于 22-5-2006 12:58 PM 编辑 ]

haroldlbc

请问要如何执行registry／xml比较容易,
可以给sample／example吗？

goatstudio

我猜想你用 VB6?
很久以前我这么做过... 以下的 code 是我从一个网站抄回来的, 把它弄成一个 module, 你就可以用了.
基本上, 你只需要用到:

WriteRegistry
ReadRegistry
DeleteValue

1. 
   
2. Option Explicit
   
3. 'Security Mask constants
   
4. Public Const READ_CONTROL = &H20000
   
5. Public Const SYNCHRONIZE = &H100000
   
6. Public Const STANDARD_RIGHTS_ALL = &H1F0000
   
7. Public Const STANDARD_RIGHTS_READ = READ_CONTROL
   
8. Public Const STANDARD_RIGHTS_WRITE = READ_CONTROL
   
9. Public Const KEY_QUERY_VALUE = &H1
   
10. Public Const KEY_SET_VALUE = &H2
    
11. Public Const KEY_CREATE_SUB_KEY = &H4
    
12. Public Const KEY_ENUMERATE_SUB_KEYS = &H8
    
13. Public Const KEY_NOTIFY = &H10
    
14. Public Const KEY_CREATE_LINK = &H20
    
15. Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or _
    
16.    KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or _
    
17.    KEY_CREATE_LINK) And (Not SYNCHRONIZE))
    
18. Public Const KEY_READ = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or _
    
19.    KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
    
20. Public Const KEY_EXECUTE = ((KEY_READ) And (Not SYNCHRONIZE))
    
21. Public Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE _
    
22.    Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE))
    
23. ' Possible registry data types
    
24. Public Enum InTypes
    
25.    ValNull = 0
    
26.    ValString = 1
    
27.    ValXString = 2
    
28.    ValBinary = 3
    
29.    ValDWord = 4
    
30.    ValLink = 6
    
31.    ValMultiString = 7
    
32.    ValResList = 8
    
33. End Enum
    
34. ' Registry value type definitions
    
35. Public Const REG_NONE As Long = 0
    
36. Public Const REG_SZ As Long = 1
    
37. Public Const REG_EXPAND_SZ As Long = 2
    
38. Public Const REG_BINARY As Long = 3
    
39. Public Const REG_DWORD As Long = 4
    
40. Public Const REG_LINK As Long = 6
    
41. Public Const REG_MULTI_SZ As Long = 7
    
42. Public Const REG_RESOURCE_LIST As Long = 8
    
43. ' Registry section definitions
    
44. Public Const HKEY_CLASSES_ROOT = &H80000000
    
45. Public Const HKEY_CURRENT_USER = &H80000001
    
46. Public Const HKEY_LOCAL_MACHINE = &H80000002
    
47. Public Const HKEY_USERS = &H80000003
    
48. Public Const HKEY_PERFORMANCE_DATA = &H80000004
    
49. Public Const HKEY_CURRENT_CONFIG = &H80000005
    
50. Public Const HKEY_DYN_DATA = &H80000006
    
51. ' Codes returned by Reg API calls
    
52. Private Const ERROR_NONE = 0
    
53. Private Const ERROR_BADDB = 1
    
54. Private Const ERROR_BADKEY = 2
    
55. Private Const ERROR_CANTOPEN = 3
    
56. Private Const ERROR_CANTREAD = 4
    
57. Private Const ERROR_CANTWRITE = 5
    
58. Private Const ERROR_OUTOFMEMORY = 6
    
59. Private Const ERROR_INVALID_PARAMETER = 7
    
60. Private Const ERROR_ACCESS_DENIED = 8
    
61. Private Const ERROR_INVALID_PARAMETERS = 87
    
62. Private Const ERROR_NO_MORE_ITEMS = 259
    
63. ' Registry API functions used in this module (there are more of them)
    
64. Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    
65. Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
    
66. Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
    
67. Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
    
68. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    
69. Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    
70. Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
    
71. Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpValue As Long, ByVal cbData As Long) As Long
    
72. Private Declare Function RegFlushKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    
73. Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long
    
74. Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
    
75. Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
    
76. 
    
77. ' Example
    
78. ' Text1.Text = ReadRegistry(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName")
    
79. '
    
80. Public Function ReadRegistry(ByVal Group As Long, ByVal Section As String, ByVal Key As String) As String
    
81. Dim lResult As Long, lKeyValue As Long, lDataTypeValue As Long, lValueLength As Long, sValue As String, td As Double, TStr1 As String, TStr2 As String, I As Variant
    
82. On Error Resume Next
    
83. lResult = RegOpenKey(Group, Section, lKeyValue)
    
84. sValue = Space$(2048)
    
85. lValueLength = Len(sValue)
    
86. lResult = RegQueryValueEx(lKeyValue, Key, 0&, lDataTypeValue, sValue, lValueLength)
    
87. If (lResult = 0) And (Err.Number = 0) Then
    
88.    If lDataTypeValue = REG_DWORD Then
    
89.       td = Asc(Mid$(sValue, 1, 1)) + &H100& * Asc(Mid$(sValue, 2, 1)) + &H10000 * Asc(Mid$(sValue, 3, 1)) + &H1000000 * CDbl(Asc(Mid$(sValue, 4, 1)))
    
90.       sValue = Format$(td, "000")
    
91.    End If
    
92.    If lDataTypeValue = REG_BINARY Then
    
93.        ' Return a binary field as a hex string (2 chars per byte)
    
94.        TStr2 = ""
    
95.        For I = 1 To lValueLength
    
96.           TStr1 = Hex(Asc(Mid(sValue, I, 1)))
    
97.           If Len(TStr1) = 1 Then TStr1 = "0" & TStr1
    
98.           TStr2 = TStr2 + TStr1
    
99.        Next
    
100.        sValue = TStr2
     
101.    Else
     
102.       sValue = Left$(sValue, lValueLength - 1)
     
103.    End If
     
104. Else
     
105.    sValue = "Not Found"
     
106. End If
     
107. lResult = RegCloseKey(lKeyValue)
     
108. ReadRegistry = sValue
     
109. End Function
     
110. 
     
111. ' Example
     
112. ' WriteRegistry HKEY_CURRENT_USER, "SOFTWARE\My Name\My App", "NewSubKey", ValString, "NewValueHere"
     
113. ' WriteRegistry HKEY_CURRENT_USER, "SOFTWARE\My Name\My App", "NewSubKey", ValDWord, "31"
     
114. '
     
115. Public Sub WriteRegistry(ByVal Group As Long, ByVal Section As String, ByVal Key As String, ByVal ValType As InTypes, ByVal Value As Variant)
     
116. Dim lResult As Long
     
117. Dim lKeyValue As Long
     
118. Dim InLen As Long
     
119. Dim lNewVal As Long
     
120. Dim sNewVal As String
     
121. On Error Resume Next
     
122. lResult = RegCreateKey(Group, Section, lKeyValue)
     
123. If ValType = ValDWord Then
     
124.    lNewVal = CLng(Value)
     
125.    InLen = 4
     
126.    lResult = RegSetValueExLong(lKeyValue, Key, 0&, ValType, lNewVal, InLen)
     
127. Else
     
128.    ' Fixes empty string bug - spotted by Marcus Jansson
     
129.    If ValType = ValString Then Value = Value + Chr(0)
     
130.    sNewVal = Value
     
131.    InLen = Len(sNewVal)
     
132.    lResult = RegSetValueExString(lKeyValue, Key, 0&, 1&, sNewVal, InLen)
     
133. End If
     
134. lResult = RegFlushKey(lKeyValue)
     
135. lResult = RegCloseKey(lKeyValue)
     
136. End Sub
     
137. 
     
138. Public Function ReadRegistryGetSubkey(ByVal Group As Long, ByVal Section As String, Idx As Long) As String
     
139. Dim lResult As Long, lKeyValue As Long, lDataTypeValue As Long, lValueLength As Long, sValue As String, td As Double
     
140. On Error Resume Next
     
141. lResult = RegOpenKey(Group, Section, lKeyValue)
     
142. sValue = Space$(2048)
     
143. lValueLength = Len(sValue)
     
144. lResult = RegEnumKey(lKeyValue, Idx, sValue, lValueLength)
     
145. If (lResult = 0) And (Err.Number = 0) Then
     
146.    sValue = Left$(sValue, InStr(sValue, Chr(0)) - 1)
     
147. Else
     
148.    sValue = "Not Found"
     
149. End If
     
150. lResult = RegCloseKey(lKeyValue)
     
151. ReadRegistryGetSubkey = sValue
     
152. End Function
     
153. 
     
154. Public Function ReadRegistryGetAll(ByVal Group As Long, ByVal Section As String, Idx As Long) As Variant
     
155. Dim lResult As Long, lKeyValue As Long, lDataTypeValue As Long
     
156. Dim lValueLength As Long, lValueNameLength As Long
     
157. Dim sValueName As String, sValue As String
     
158. Dim td As Double
     
159. On Error Resume Next
     
160. lResult = RegOpenKey(Group, Section, lKeyValue)
     
161. sValue = Space$(2048)
     
162. sValueName = Space$(2048)
     
163. lValueLength = Len(sValue)
     
164. lValueNameLength = Len(sValueName)
     
165. lResult = RegEnumValue(lKeyValue, Idx, sValueName, lValueNameLength, 0&, lDataTypeValue, sValue, lValueLength)
     
166. If (lResult = 0) And (Err.Number = 0) Then
     
167.    If lDataTypeValue = REG_DWORD Then
     
168.       td = Asc(Mid$(sValue, 1, 1)) + &H100& * Asc(Mid$(sValue, 2, 1)) + &H10000 * Asc(Mid$(sValue, 3, 1)) + &H1000000 * CDbl(Asc(Mid$(sValue, 4, 1)))
     
169.       sValue = Format$(td, "000")
     
170.    End If
     
171.    sValue = Left$(sValue, lValueLength - 1)
     
172.    sValueName = Left$(sValueName, lValueNameLength)
     
173. Else
     
174.    sValue = "Not Found"
     
175. End If
     
176. lResult = RegCloseKey(lKeyValue)
     
177. ' Return the datatype, value name and value as an array
     
178. ReadRegistryGetAll = Array(lDataTypeValue, sValueName, sValue)
     
179. End Function
     
180. 
     
181. Public Function DeleteSubkey(ByVal Group As Long, ByVal Section As String) As String
     
182. Dim lResult As Long, lKeyValue As Long
     
183. On Error Resume Next
     
184. lResult = RegOpenKeyEx(Group, vbNullChar, 0&, KEY_ALL_ACCESS, lKeyValue)
     
185. lResult = RegDeleteKey(lKeyValue, Section)
     
186. lResult = RegCloseKey(lKeyValue)
     
187. End Function
     
188. 
     
189. ' Example
     
190. ' DeleteValue HKEY_CURRENT_USER, "Software\My Name\My App", "NewSubKey"
     
191. '
     
192. 
     
193. Public Function DeleteValue(ByVal Group As Long, ByVal Section As String, ByVal Key As String) As String
     
194. Dim lResult As Long, lKeyValue As Long
     
195. On Error Resume Next
     
196. lResult = RegOpenKey(Group, Section, lKeyValue)
     
197. lResult = RegDeleteValue(lKeyValue, Key)
     
198. lResult = RegCloseKey(lKeyValue)
     
199. End Function
     

复制代码

haroldlbc

原帖由 goatstudio 于 22-5-2006 07:36 PM 发表
我猜想你用 VB6?
很久以前我这么做过... 以下的 code 是我从一个网站抄回来的, 把它弄成一个 module, 你就可以用了.
基本上, 你只需要用到:

WriteRegistry
ReadRegistry
DeleteValue



Option Explic ...

我是用VB.net,只是纯粹要了解。并没有要用。

你给的code不能直接用，但我只是要了解concept， so要时间消化。


谢谢你啊～～

goatstudio

是 VB.NET 啊...
那么看这里: Working with Windows Registry using VB.NET - The Code Project - VB.NET

haroldlbc

原帖由 goatstudio 于 22-5-2006 10:34 PM 发表
是 VB.NET 啊...
那么看这里: Working with Windows Registry using VB.NET - The Code Project - VB.NET

谢谢你啊............