MS访问查询的Application.LoadFromText的替代方法 [英] Alternative to Application.LoadFromText for MS Access Queries
本文介绍了MS访问查询的Application.LoadFromText的替代方法的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试从文本文件中加载查询,并使用VBScript将查询加载到MS Access查询集合中.我正在使用这样的东西: 该代码源自此处.
I am attempting to load from text files, queries into an MS Access Queries Collection using VBScript. I am using something like this: The code originated from Here.
for each myFile in folder.Files
objecttype = fso.GetExtensionName(myFile.Name)
objectname = fso.GetBaseName(myFile.Name)
WScript.Echo " " & objectname & " (" & objecttype & ")"
if (objecttype = "form") then
oApplication.LoadFromText acForm, objectname, myFile.Path
elseif (objecttype = "bas") then
oApplication.LoadFromText acModule, objectname, myFile.Path
elseif (objecttype = "mac") then
oApplication.LoadFromText acMacro, objectname, myFile.Path
elseif (objecttype = "report") then
oApplication.LoadFromText acReport, objectname, myFile.Path
elseif (objecttype = "sql") then
'oApplication.LoadFromText acQuery, objectname, myFile.Path
' Add create querydef code here
end if
next
但是我不确定如何使用VBScript创建查询定义.
But I am unsure how to create a query definition using VBScript.
有什么想法吗?
注意: 我最初使用以下方式导出到文件:
Note: I originally Exported to the file using something like this:
For Each myObj In oApplication.CurrentDb.QueryDefs
Set f = fso.CreateTextFile(sExportpath & "\" & myObj.Name & ".sql", True)
f.WriteLine(myObj.SQL)
f.Close
Next
推荐答案
这将保存查询defs
This saves the query defs
For i = 0 To db.QueryDefs.Count - 1
Application.SaveAsText acQuery, db.QueryDefs(i).Name, sExportpath & "\" & db.QueryDefs(i).Name & ".sql"
Next i
然后LoadFromText应该可以工作
Then the LoadFromText should work
这篇关于MS访问查询的Application.LoadFromText的替代方法的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文