怎样用编程的方法,通过ODBC创建ACCESS 2000 的数据库文件?

Stone 2001-02-13 07:53:00

ODBC中能在创建数据源时直接创建ACCESS文件，Delphi中如何调用这一功能？
请各位赐教，石头在此多谢了！！！
最好能有源码示例。

...全文

97 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

saoren 2001-02-13

打赏
举报

uses DAO97;
function CreateAccessDB(FileName:String;bOffice97:boolean=true):boolean;
var
CreateAccess:OleVariant;
CreateMSG:string;
begin
Result:=false;
if not FileExists(FileName) then
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
if not bOffice97 then
CreateMSG:='Provider=Microsoft.Jet.OLEDB.4.0;'
else
CreateMSG:='Provider=Microsoft.Jet.OLEDB.3.51;';
CreateMSG:=CreateMSG+'Data Source='+FileName;
try
CreateAccess.Create(CreateMSG);
Result:=true;
except
Result:=false;
end;
end;
end;
你到文档中心，我记得有一篇是关于创建Access的