'測試注冊表讀寫
Sub TestRegistry()
 Set registry = CreateObject("stock.registry")
 Call registry.Open("software\weisoft\金字塔\settings")
 Call registry.WriteInt("id",123)
 result=registry.ReadInt("id")
 application.msgout result
End Sub

'測試全局變量讀寫
Sub TestExtData()
 Call document.setextdata("id",123)
 result=document.getextdata("id")
 application.msgout result
End Sub

'測試INI文件讀寫
Sub TestInI()
 Call document.WritePrivateProfileFloat("settings","id",123,"d:\\settings.ini")
 result=document.GetPrivateProfileFloat("settings","id",1,"d:\\settings.ini")
 application.msgout result
End Sub

'測試數(shù)據(jù)庫讀寫
Sub TestDatabase()
 Set adoconnection=CreateObject("adodb.connection")
 adoconnection.Open("provider=microsoft.jet.oledb.4.0;data source="&application.apppath&"\db1.mdb")
 adoconnection.Execute("insert into main(id) values(123)")
 Set rs = adoconnection.Execute("select id from main")
 application.msgout rs("id").Value
 adoconnection.close
End Sub