| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/7/23 11:29:16 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 我是用access连接 的数据库，然后对表进行编辑，报错：不能编辑，其他用户修改了记录。我是本地机，肯定没别的用户呀。怎么会这样呢？ ，请高手指点一下？谢谢了！---------------------------------------------- - |
|||||
| 作者： |
|
2003/7/23 12:51:59 | ||||
| 1楼： | ADO独占型打开 ： 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'; ADOConnection1.ConnectionString :=Format(adocs2,[DBName]); ----------------------------------------------  
|
|||||
| 作者： |
|
2003/7/23 13:45:56 | ||||
| 2楼： | 不好意思，可是我把上面的代码加在什么地方呢？麻烦你再给我讲讲 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/7/23 21:04:39 | ||||
| 3楼： | 上面那段是字符串资源：用关键字 resourcestring来引导 也就是： resourcestring adocs='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=;Persist Security Info=False'; 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'; 写在implementiton上面 procedure TSDIAppForm.FormShow(Sender: TObject); begin ADOTable1.Close ; ADOTable1.Connection :=nil; ADOConnection1.ConnectionString :=Format(adocs2,[DBName]); ADOTable1.Connection :=ADOConnection1; ADOTable1.Open ; end; 不知道是否，如还不行我也只好说 不好意思了！ ----------------------------------------------
|
|||||
| 作者： |
|
2003/7/24 12:32:29 | ||||
| 4楼： | 谢谢！ 我给表加了个索引，然后就可以了。 ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
