delphi to access

连接Access数据库，用ADO没问题，具体的连接字符串可以这样写  
  connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User   ID=Admin;Data   Source='+  
                          ####.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   ID=;';  
      constr:=constr+'Password="";User   ID=;';  
      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;

 

 摘自互联网,未测试

转载于:https://www.cnblogs.com/wcg249165510/archive/2009/01/14/1375393.html