'打开 CommonStrings 表, 遍历所有记录并装入数据 Set rsCommonStrings = Conn.Execute("Select StringKey, StringHolder from CommonStrings") Do until rsCommonStrings.EOF DictCommonStrings.Add rsCommonStrings("StringLanguage") & rsCommonStrings("StringKey") _ ,rsCommonStrings("StringHolder") rsCommonStrings.MoveNext Loop
'打开SpecializedStrings表, 遍历所有记录并装入数据 Set rsSpecializedStrings = Conn.Execute("Select StringKey, StringHolder from SpecializedStrings") Do until rsSpecializedStrings.EOF DictSpecializedStrings.Add rsSpecializedStrings ("StringLanguage") & _ rsSpecializedStrings ("StringKey") , rsSpecializedStrings ("StringHolder") rsSpecializedStrings.MoveNext Loop
rsSpecializedStrings.Close rsCommonStrings.Close Conn.Close Set rsSpecializedStrings = Nothing Set rsCommonStrings = Nothing Set Conn = Nothing End Sub