CONNECTIONSTRING:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\xsgl1.mdb;jet OLEDB:Database Password=111111'
解决方案 »
- 怎样获取系统服务最后一次启动时间
- 100分:非常奇怪的存储过程问题!
- 请问怎么把文件夹下面的文件名读到listbox里面?
- 我需要在TTREEVIEW里面增加信息 我想让信息的某些字显示为红色 请问有办法实现吗
- 数据表的问题
- DBNavigator问题
- ServerSocket只要open就报错,什么原因?
- 初学者的问题:query或adoquery中,如果更新数据的记录。现在总是提示我不在修改模式下
- 如何用indy 组件调用php 上传文件?
- 怎样才可以想在什么地方输出文字,就在什么地方输出啊!!用什么方法!!
- Delphi数据库paradox7的问题
- 在程序中实现将文本数据(.txt)转换成ACCESS数据表?
open('odbc名',user,数据库密码)
不然我没有办法
".....;Jet OLEDB:Database Passord=12345";
^大写J
Begin
Connected:=false;
S:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source="'+ExtractFilePath(application.exename);
S:=S+'data\database.mdb";Mode=Share Deny None;Extended Properties="";';
S:=S+'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;';
S:=S+'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;';
S:=S+'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';
ConnectionString:=S;
Connected:=true;
end;//其中有密码的地方加入密码。