UC知道怎样创建access空白数据库？【Delphi】
来源：百度知道 编辑：UC知道 时间：2024/05/21 23:57:01
我的delphi代码如下：
var Source:string;CreateDB:Variant
begin
Source:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb';
CreateDB:=CreateOleObject('ADOX.Catalog');
CreateDB.Create(Source);
end;
但是这样创建的是access2000格式的数据库，我要创建95/97格式的access应该做？
var Source:string;CreateDB:Variant
begin
Source:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb';
CreateDB:=CreateOleObject('ADOX.Catalog');
CreateDB.Create(Source);
end;
但是这样创建的是access2000格式的数据库，我要创建95/97格式的access应该做？
把 Microsoft.Jet.OLEDB.4.0 修改成 Microsoft.Jet.OLEDB.3.51
这里有没有创建类别的解决办法
http://topic.csdn.net/u/20080413/10/d2440b3e-f39c-4651-be9c-85eb77cf7e50.html?77020668
function createDBfile(const Database,password: String):string;
var
Cat: Variant;
begin
Cat:= CreateOleObject('ADOX.Catalog');
Result:=Cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Database+';Jet OLEDB:Database Password='+password+';');
end;
以上代码是创建一个带密码的access 路径是 Database，密码是password。
详情请看：
http://www.connectionstrings.com/access
以前我做过类似的功能,用的方法很傻,
就是用access2000或者97创建一个空的文件,当然里面创建好需要用的表结构,
内容都是空的, 存放在某个目录下,用的话copy到指定地方.
用95/97做个空白的，需要的时候拷贝就行。能