Windows 脚本组件与 ACCESS [原作]

zhuyiwen

用记事本新建文件，内容如下：

1. <SCRIPTLET>
   
2. 
   
3. <Registration
   
4.         Description="ConvertTemp"
   
5.         ProgID="ConvertTemp.Scriptlet"
   
6.         Version="1.00"
   
7. >
   
8. </Registration>
   
9. <public>
   
10.     <property name="number">
    
11.       <get internalname="getNumber"/>
    
12.       <put internalname="setNumber"/>
    
13.     </property>
    
14. 
    
15.         <method name=Celsius>
    
16.                 <PARAMETER name=F/>
    
17.         </method>
    
18.         <method name=Fahrenheit>
    
19.                 <PARAMETER name=C/>
    
20.         </method>
    
21.     <event name="onnumberchange"/>
    
22. </public>
    
23. 
    
24. 
    
25. <SCRIPT LANGUAGE=VBScript>
    
26. 
    
27. dim num
    
28. 
    
29. ' Get 属性
    
30. function getNumber()
    
31.    getNumber = num
    
32. End Function
    
33. 
    
34. ' Put 属性
    
35. function setNumber(newNumber)
    
36.    if not IsNumeric(newNumber) then
    
37.       num = 0 'return not a number, ignore
    
38.    else
    
39.       num = newNumber
    
40.       fireEvent("onnumberchange")
    
41.    end if
    
42. End Function
    
43. 
    
44. ' 以下为两个 COM 方法
    
45. Function Celsius(F)
    
46.           Celsius = 5/9 * (F - 32)
    
47. End Function
    
48. 
    
49. Function Fahrenheit(C)
    
50.           Fahrenheit = (9/5 * C) + 32
    
51. End Function
    
52. 
    
53. </script>
    
54. 
    
55. </SCRIPTLET>

复制代码

保存为 "ConvertScriptlet.sct" 文件。

这是一个完整的 Windows 脚本组件文件。

1. <Registration
   
2.         Description="ConvertTemp"
   
3.         ProgID="ConvertTemp.Scriptlet"
   
4.         Version="1.00"
   
5. >
   
6. </Registration>

复制代码

这一段为脚本组件注册。ProgID="ConvertTemp.Scriptlet"定义类的名称。

1. 
   
2.     <property name="number">
   
3.       <get internalname="getNumber"/>
   
4.       <put internalname="setNumber"/>
   
5.     </property>

复制代码

这一段为定义属性和属性过程。

1. 
   
2.         <method name=Celsius>
   
3.                 <PARAMETER name=F/>
   
4.         </method>
   
5.         <method name=Fahrenheit>
   
6.                 <PARAMETER name=C/>
   
7.         </method>

复制代码

定义方法和方法参数。

1. 
   
2. ' Get 属性
   
3. function getNumber()
   
4.    getNumber = num
   
5. End Function
   
6. 
   
7. ' Put 属性
   
8. function setNumber(newNumber)
   
9.    if not IsNumeric(newNumber) then
   
10.       num = 0 'return not a number, ignore
    
11.    else
    
12.       num = newNumber
    
13.       fireEvent("onnumberchange")
    
14.    end if
    
15. End Function

复制代码

这段这属性过程的实现。

1. 
   
2. Function Celsius(F)
   
3.           Celsius = 5/9 * (F - 32)
   
4. End Function
   
5. 
   
6. Function Fahrenheit(C)
   
7.           Fahrenheit = (9/5 * C) + 32
   
8. End Function

复制代码

这段是方法的实现。

组件注册：
在 Windows 资源管理器中，右键单击该文件，选择[注册]。

在 ACCESS 中，使用 CreateObject() 函数创建脚本组件的实例：

1. Set objConvert = CreateObject("ConvertTemp.Scriptlet")

复制代码

这样就可以使用脚本组件所提供的方法和属性了。

文件下载

使用组件的优势是：1、实现商业规则，例子中，就是实现了摄氏和华氏温度的转换这个规则。2、当规则发生变化后，不需要改变应用程序。（这就是我所说的以不变应万变）。3、使用 VB 或 VC 等高级语言开发组件，还可分布在网络其它主机上，实现分布式计算。4、... 总之，好处多多！

[em26][em26][em26]

未经许可，请勿转载

[此贴子已经被zhuyiwen于2002-6-11 20:18:26编辑过]

zhuyiwen

参见：
http://www.office-cn.net/home.ph ... 25&do=blog&id=15307

1. <?xml version="1.0"?>
   
2. <component>
   
3. <?component error="true" debug="true"?>
   
4. <registration
   
5.   desciption="ConDB"
   
6.   progid="ConDB.wsc"
   
7.   version="1.00"
   
8.   classid="{9247c2de-a42d-4755-aa60-8b14c1af6b4f}">
   
9. </registration>
   
10. <reference object="ADODB.Connection.2.8" />
    
11. <public>
    
12.   <method name="ConToDB">
    
13.    <PARAMETER name="servername" />
    
14.    <PARAMETER name="dbname" />
    
15.    <PARAMETER name="user" />
    
16.    <PARAMETER name="password" />
    
17.   </method>
    
18. </public>
    
19. <implements type="ASP" id="ASP" />
    
20. <script language="VBScript">
    
21. <![CDATA[
    
22. Function ConToDB(servername, dbname, user, password)
    
23.   On Error Resume Next
    
24.   Set con = CreateObject("adodb.connection")
    
25.   con.ConnectionTimeout = 25
    
26.   con.ConnectionString = "Provider=SQLOLEDB.1" & _
    
27.    ";Persist Security Info=False;User ID=" & user & _
    
28.    ";pwd=" & password & _
    
29.    ";Initial Catalog=" & dbname & _
    
30.    ";Data Source=" & servername
    
31.   con.Open
    
32.   If con.State = 1 Then
    
33.    ConToDB = "connection success!"
    
34.   End if
    
35.   If Err.Number <> 0 Then
    
36.    ConToDB = Err.Description
    
37.   End If
    
38. End Function
    
39. ]]>
    
40. </script>
    
41. </component>

复制代码

使用命令行，为脚本组件(ConDB.wsc)创建一个类型库，生成一个与脚本组件文件名同名的 .tlb 文件。

1. rundll32.exe c:\Windows\System32\scrobj.dll,GenerateTypeLib -name:ConDBLib -file:e:\component\ConDB.tlb -doc:"ConDB component typelib" -guid:{9247c2de-a42d-4755-aa60-8b14c1af6b4f} -major:1 -minor:0-URL:e:\components\ConDB.wsc

复制代码

Windows Script Component Wizard 下载：
https://download.microsoft.com/download/d/9/5/d95c9a66-718f-45b3-946f-1f43677e6c8b/wz10en.exe

参见：
http://www.xav.com/perl/Windows/windows_script_components.html

zhuyiwen

《让你的access支持二次开发，VBS宏执行器》
作者：layaman_999
http://www.office-cn.net/thread-113201-1-1.html

1. Function RunVbs(subName As String, StrCode As String, Optional obj As Object = Nothing) As Boolean
   
2. On Error GoTo cuowu
   
3. 
   
4.     Dim vbs As Object
   
5.     Set vbs = CreateObject("ScriptControl")
   
6.     vbs.Language = "vbs"
   
7.    
   
8.     If obj Is Nothing = False Then
   
9.         vbs.AddObject "Me", obj, True
   
10.     End If
    
11.    
    
12.     vbs.AddObject "Application", Application, True
    
13.     vbs.AddCode StrCode
    
14.     vbs.ExecuteStatement subName
    
15.     Set vbs = Nothing
    
16.     RunVbs = True
    
17.    
    
18.     Exit Function
    
19. cuowu:
    
20.     MsgBox Err.Description
    
21.     RunVbs = False
    
22. 
    
23. End Function

复制代码

How To Use Script Control Modules and Procedures Collections 如何使用脚本控制模块和过程集合:
https://support.microsoft.com/en-us/kb/184745
https://support.microsoft.com/zh-cn/kb/184745
How To Call Functions Using the Script Control 如何使用脚本控件的函数调用:
https://support.microsoft.com/en-us/kb/184740
https://support.microsoft.com/zh-cn/kb/184740
How To Use the Script Control Error Object 如何使用脚本控制错误对象:
https://support.microsoft.com/en-us/kb/184742
https://support.microsoft.com/zh-cn/kb/184742

purplerose

多谢朱老师 以不变应万变 的组件，要好好地学习一下，不懂可要请教哟！

天昕

祝老师的东西看上去很厉害，先留个印子，回头慢慢品