例程如下,其中fsPath是我在程序中定义的一个Form级的全局变量,你可用其他变量或常量代替。procedure TForm1.Button2Click(Sender: TObject);
var
TempAccessDB: OleVariant;
s: String;
begin
if not FileExists(fsPath) then begin
TempAccessDB := CreateOleObject('ADOX.Catalog');
try
TempAccessDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + fsPath);
except
ShowMessage('Failed!');
Exit;
end;
end;
s := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
'Data Source=' + fsPath + ';Mode=Share Deny None;' +
'Extended Properties="";Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';
with ADOConnection1 do begin
Connected := False;
ConnectionString := '';
ConnectionString := s;
try
Connected := True;
except
ShowMessage('Not Connected!');
end;
end;
end;
var
TempAccessDB: OleVariant;
s: String;
begin
if not FileExists(fsPath) then begin
TempAccessDB := CreateOleObject('ADOX.Catalog');
try
TempAccessDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=' + fsPath);
except
ShowMessage('Failed!');
Exit;
end;
end;
s := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' +
'Data Source=' + fsPath + ';Mode=Share Deny None;' +
'Extended Properties="";Jet OLEDB:System database="";' +
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";' +
'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;' +
'Jet OLEDB:Global Partial Bulk Ops=2;' +
'Jet OLEDB:Global Bulk Transactions=1;' +
'Jet OLEDB:New Database Password="";' +
'Jet OLEDB:Create System Database=False;' +
'Jet OLEDB:Encrypt Database=False;' +
'Jet OLEDB:Don''t Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;' +
'Jet OLEDB:SFP=False';
with ADOConnection1 do begin
Connected := False;
ConnectionString := '';
ConnectionString := s;
try
Connected := True;
except
ShowMessage('Not Connected!');
end;
end;
end;
解决方案 »
- delphi7中如何加载一个GIF图
- 我想把Memo控件的数据加到ListView控件中,有什么高效率点的方法?数据太多,循环的时候卡死了.
- CreateRemoteComObject 如何配置?
- 菜鸟小妹:请各位大哥哥指点一下怎样动态建立数据库表呢??(sql server 2000)
- 还是每人回答,再问 关于BLOB SIZE
- 关于Treeview和ImageList的问题
- 怎样学习XML
- 巨好的FTP站点,有许多许多商业控件!!太全了!!还有许多电子书,俄国人办的,赶快去看。ftp://VCL:[email protected]/
- 笔记本电脑键盘的几个键被锁了,有谁知道怎样解开??
- ADOTABLE怎么搜索一记录?
- 各位大哥,小妹做了一个小型的管理系统,但是不能在别的机子上运行,help me!!
- dbgrid中自定义显示的格式,运用editformat
search...
在SERVERS面板上取一个ACCESSAPPLICATION放到FORM上
然后;;;
AccessApplication1.NewCurrentDatabase('c:\test.mdb');
AccessApplication1.Run....
没有找到ACCESSAPPLICATION 我是delphi 5.0