delphi to access
连接Access数据库，用ADO没问题，具体的连接字符串可以这样写
connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User +
####.mdb;Mode=Share Deny None;'+
'Extended Properties="";Locale Identifier=2052;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 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'
其中，####为数据库文件的路径 ****为数据库密码
procedure TDM1.DataModuleCreate(Sender: TObject);
var
constr:string;
str_TestId: string;
begin
try
StrExePath := extractfilepath(application.ExeName);//取得当前应用程序的路径
//配置数据库
ADOConnection1.LoginPrompt := false;
constr:='Provider=Microsoft.Jet.OLEDB.4.0;';
//constr:=constr+'Password="N4S7=y6k0s0n=K8Y9";User ;
constr:=constr+'Password="";User ;
constr:=constr+'Data Source='+StrExePath+'data\lms.mdb;';
constr:=constr+'Mode=Share Deny None;Extended Properties="";';
constr:=constr+'Locale Identifier=2052;Jet OLEDB:System database="";';
constr:=constr+'Jet OLEDB:Registry Path="";';
constr:=constr+'Jet OLEDB:Database Password=nsky;';
constr:=constr+'Jet OLEDB:Engine Type=5;';
constr:=constr+'Jet OLEDB:Database Locking Mode=1;';
constr:=constr+'Jet OLEDB:Global Partial Bulk Ops=2;';
constr:=constr+'Jet OLEDB:Global Bulk Transactions=1;';
constr:=constr+'Jet OLEDB:New Database Password="";';
constr:=constr+'Jet OLEDB:Create System Database=False;';
constr:=constr+'Jet OLEDB:Encrypt Database=False;';
constr:=constr+'Jet OLEDB:Don''t Copy Locale on Compact=False;';
constr:=constr+'Jet OLEDB:Compact Without Replica Repair=False;';
constr:=constr+'Jet OLEDB:SFP=False';
adoconnection1.ConnectionString:=constr;
adoconnection1.Connected:=true;
except
Application.MessageBox(
'数据库连接失败！',
'提示',MB_OK + MB_DEFBUTTON1 + MB_ICONINFORMATION);
exit;
end;
一、 TADOConnection //connMain为TADOConnection TADOConnection主要作用是连接数据库
１、 ConnectionString：连接数据库
２、 Connected：设为True
３、 KeepConnection：设为True
４、 loginPrompt:设为false;
5、 写代码连接
procedure TForm1.FormShow(Sender: TObject);
begin
connMain.Close; //关闭连接
connMain.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Application.EXEName) +'sysdata.mdb;Persist Security
Info=False';//连接到需要的数据库
Button11.Click;
end;
二、TADOCommand //sqlmain为TADOCommand TADOCommand主要作用是执行命令操作
1、Connection:连接到TADOconnection组件
2、CommandText//说明使用该组件所执行的命令
3、写代码
ShortDateFormat:='yyyy-mm-dd';// 对应的时间字符串格式
sqlMain.CommandText:='insert into rdata(receivedata,rdatetime) values('''+ StrToHexStr(str) +''','''+ DateTimetostr((now())) +''')';
//接收到的内容receivedata,rdatetime.表名为rdata 及其对应的字符串
sqlMain.Execute;
这个地方为接收到的字符串写进数据库中.
三、TADODataSet //rsMain为TADODataSet TADODataSet主要用来读取数据（可以从单个表格和多个表格），并对读取的数据进行
相应的操作
１、Connection:连接到TADOconnection组件
2、CommandText//说明使用该组件所执行的命令
四、TDataSource //dsQuery为TDataSource DataSource建立TADODataSet与桥接关系
１、Dataset:连接TADODataSet组件
五：ＴDBGrid //dbGrid为TADODataSet 将数据记录显示在网格中。
1、ＤataSource:连接TDataSource 如 Form1.dsQuery //ＤataSource指明了TDBGrid组件中显示数据的来源，正是这一属性，TDBGird组件
与TdataSource组件发生联系。从而引入与此TdataSource组件相连的数据集，显示其中的数据信息。
2、写代码
procedure TForm1.btnQueryClick(Sender: TObject);
begin
rsMain.Close;
rsMain.CommandText:='select * from rdata';
rsMain.Open;
Form2.Show;
end;
摘自互联网,未测试