| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/3/26 11:40:48 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我已经有了一个，可是运行时出现，无法打开或其他用户以独占方式打开，怎么处理，近来的顶一下。 var CreateAccess:OleVariant; begin CreateAccess:=CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Password=123;User ID=sss;Data Source=c:\1.mdb'); ---------------------------------------------- - |
|||||
| 作者： |
|
2004/3/26 12:38:42 | ||||
| 1楼： | uses comobj; resourcestring adocs2= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;' + 'Data Source=%s;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=1;Jet OLEDB:Global Partial Bulk Ops=2;' + 'Jet OLEDB:Global Bulk Transaction_s=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'; procedure TSDIAppForm.CreateMDB(DBName: string); // 系统需要安装 MADAC var CreateAccess: OleVariant; begin CreateAccess := CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName); end; procedure TSDIAppForm.DataModuleCreate(DBName:string); var sdir,sfile :string; ssql:string; begin if not FileExists(DBName) then begin//1 try CreateMDB(DBName); except ShowMessage('数据库创建失败！'); Exit; end; SplitPath(DBName,FenJiePath); sdir:=FenJiePath.pathxie ; sfile :=sdir+'Sys\alert'; if FileExists(Sfile) then DeleteFile(Sfile); sfile :=sdir+'Sys\alertid'; if FileExists(Sfile) then DeleteFile(Sfile); ADOTable1.Close ; ADOTable2.Close ; ADOTable3.Close ; ADOTable1.Connection :=nil; ADOTable2.Connection :=nil; ADOTable3.Connection :=nil; ADOConnection1.ConnectionString :=Format(adocs2,[DBName]); ADOQuery1.Connection :=ADOConnection1; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Assign(memo1.Lines ); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Assign(memo2.Lines ); ADOQuery1.ExecSQL; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Assign(memo3.Lines ); ADOQuery1.ExecSQL; ADOQuery1.Connection :=nil; ADOQuery1.Close ; end; file ://1 end;
 
|
|||||
| 作者： |
|
2004/3/26 12:59:09 | ||||
| 2楼： | 谢了，我去试试！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
