- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5)
---- 查询数据库是否存在SQL怎么写 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=4891)
-- 发布时间：2011/1/19 11:21:52
-- 查询数据库是否存在SQL怎么写
查询数据库是否存在SQL怎么写
如查询D盘根目录下是否存在mydata.mdb
如果存在，打开该数据库，
如果不存在在D盘根目录下建立数据库mydata.mdb
-- 发布时间：2011/1/19 12:39:21
--
试试用文件对象，以磁盘文件名方式查找
-- 发布时间：2011/1/19 13:09:24
--
能具体点呢。我不是专业计算机的哦。谢谢啦。
-- 发布时间：2011/1/19 13:47:35
--
dim fso,strFile
strFile = "d:\\12.txt"
set fso=createobject("scripting.filesystemobject")
if fso.FileExists(strFile) then
msgbox "发现文件:"&strFile
else
msgbox "没有发现文件:"&strFile
end if
-- 发布时间：2011/1/19 14:15:44
--
查询数据库是否存在SQL怎么写
如查询D盘根目录下是否存在mydata.mdb
如果存在，打开该数据库，
-----------------以上解决了------------------
如果不存在在D盘根目录下建立数据库mydata.mdb
没有这个数据库，创建一个怎么弄。本来想像下面一样写的，但测试说关闭时不能操作，我想也是哦，没有开打怎么操作呢。但都不存在谈何打开呢。请教高手。
cresql="CREATE DATABASE mydata.mdb"
adoConn.Execute(cresql)
adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=e:\\mydata.mdb"
-- 发布时间：2011/1/27 2:49:30
--
数据库是否存在可以通过程序在系统表sysdatabases中查找.
[此贴子已经被作者于2011-1-27 2:59:09编辑过]