Delphi连接ACCESS的方法
一、 TADOConnection //connMain为TADOConnection TADOConnection主要作用是连接数据库
1、 ConnectionString:连接数据库
2、 Connected:设为True
3、 KeepConnection:设为True
4、 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主要用来读取数据(可以从单个表格和多个表格),并对读取的数据进行相应的操作
1、Connection:连接到TADOconnection组件
2、CommandText//说明使用该组件所执行的命令
四、TDataSource //dsQuery为TDataSource DataSource建立TADODataSet与桥接关系
1、Dataset:连接TADODataSet组件
五:TDBGrid //dbGrid为TADODataSet 将数据记录显示在网格中。
1、DataSource:连接TDataSource 如 Form1.dsQuery //DataSource指明了TDBGrid组件中显示数据的来源,正是这一属性,TDBGird组件与TdataSource组件发生联系。从而引入与此TdataSource组件相连的数据集,显示其中的数据信息。
2、写代码
procedure TForm1.btnQueryClick(Sender: TObject);
begin
rsMain.Close;
rsMain.CommandText:='select * from rdata';
rsMain.Open;
Form2.Show;
end;