Delphi7-0中如何用代码访问数据库的方法.docVIP

Delphi7.0中如何用代码访问数据的方法 一、第一种方法： 1、设计的界面如下： 2、主要代码： （1）启动窗口中的主要代码： Se:= ExtractFilePath(Application.ExeName) + data\jczk.mdb; //动态取出系统文件的路径 ADOADOQuery1.ConnectionString :=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=+ Se+;Persist Security Info=False; ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add(select * from yhz); ADOADOQuery1.Open;//ADOADOQuery1.ExecSQL;本句表示不返回值时的记录集合 ADOADOQuery1.Active:=true; （2）查询其它表时的代码： ADOADOQuery1.Close; ADOADOQuery1.SQL.Clear; ADOADOQuery1.SQL.Add(select * from jf11); ADOADOQuery1.Open; ADOADOQuery1.Active:=true; （3）提示窗口