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

Delphi7.0中如何用代码访问数据的方法一、第一种方法：1、设计的界面如下：2、主要代码：（1）启动窗口中的主要代码： Se:= ExtractFilePath(Application.ExeName) + datajczk.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）提示窗口：Application.MessageBox(ss,提示,64);（4）说明：DataSource1必须要与ADOADOQuery1连接在一起；DBGrid1必须要与DataSource1连接在一起。（5）取值：EDIT1.Text:=ADOADOQuery1.FieldByName(yhz04).AsString（6）怎么使用ADOQuery1给数据库添加数据? ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert into Tab_Contron_record); ADOQuery1.SQL.Add(+str_V+); ADOQuery1.SQL.Add(values(+str_T+); ADOQuery1.ParamByName(用户名).AsString:=admin; ADOQuery1.ParamByName(连接设备IP).AsString:=6; ADOQuery1.ParamByName(用户类型).AsString:=管理员; ADOQuery1.ParamByName(连接时间).AsString:=datetimetostr(now); ADOQuery1.ParamByName(备注).AsString:=无;ADOQuery1.ExecSQL;（7）、怎么样查询数据库中表的值，即条件查询(注意：Quotedstr()函数的使用)： cnn:=select * from sinfo where sid=200601001; /“sid”字段为数值型可以直接使用； cnn:=select * from sinfo where sclass=+Quotedstr(高一一);/“sclass”字段为字符类型； /多条件进行查询的例子 cnn:=select * from sinfo where sclass=+Quotedstr(高一一)+ and ssex=+quotedstr(男); ADOQuery1.Close ; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(cnn); ADOQuery1.Open; ADOQuery1.Active :=true;（8）、与SQL Server2000远程数据库相连接的办法： /计算机进入界面的时候就可以进入，注意密码为“1”；数据库名称为“TEST”；IP地址为“”，直接法： cnstring:=Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=sa;Initial Catalog=test;Data Source=; ADOQuery1.ConnectionString :=cnstring;方框法： /计算机进入界面的时候就可以进入 cnstring:=Provider=SQLOLEDB.1;Password=+Edit3.Text+;Persist Security Info=True;User ID=sa;Initial Catalog=+Edit2.Text+;Data Source=+Edit1.Text; /; ADOQuery1.ConnectionString :=cnstring;（9）其它查询的例子和数据记录集的移动方法： cnn:=select * from sinfo where sclass=+Quotedstr(高一一)+ and ssex=+quotedstr(男); ADOQuery1.Close ; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(cnn); ADOQuery1.Open; ADOQuery1.Active :=true; if ADOQuery1.RecordCount0 then begin Application.MessageBox(您已经查询到了相关的记录！,提示,64); ADOQuery1.Active :=true; Edit1.Text:=ADOQuery1.FieldValuessname;/取出它的值 end else begin Application.MessageBox(您设有查询到了相关的记录，点击退出！,提示,64); close; end; ADOQuery1.Active :=true; ADOQuery1.Next;/下一条记录 Edit1.Text:=ADOQuery1.FieldValuessname;/取出它的值 ADODataSet1.Next;/下一条 /ADODataSet1.Prior;/前一条 /ADODataSet1.First;/第一条 /ADODataSet1.Last;/最后一条 edit1.Text:=ADODataSet1.FieldValues姓名;（10）记录的数据值如何进行修改。begin ADOQuery1.Close ; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from sinfo where sclass=+Quotedstr(高一一); ADOQuery1.Open; ADOQuery1.Active :=true; if ADOQuery1.RecordCount0 then begin Application.MessageBox(您已经查询到了相关的记录！,提示,64); edit1.text:=ADOQuery1.FieldValuessname;/取出它的值 /以下是对取得的值进行修改 ADOQuery1.Edit; /进入修改模式 ADOQuery1.FieldValuessname:=廖裕10;/修改的数值 ADOQuery1.Post; / 进行修改并写回数据库中去； /ADOQuery1.Cancel;/不进行修改 /以下重新打开数据库并进行显示 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from sinfo where sclass=+Quotedstr(高一一); ADOQuery1.Open; ADOQuery1.Active :=true; end; end;（11）如何向数据库中追加记录的方法begin ADOQuery1.Close ; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from sinfo where sclass=+Quotedstr(高一一); ADOQuery1.Open; ADOQuery1.Active :=true; Application.MessageBox(您已经查询到了相关的记录！,提示,64); edit1.text:=ADOQuery1.FieldValuessname;/取出它的值 /以下是对取得的值进行修改 ADOQuery1.Edit; /进入修改模式 ADOQuery1.Append; /进行追加一条记录 ADOQuery1.FieldValuessname:=廖裕30;/修改的数值 ADOQuery1.FieldValuessid:=2010011;/修改的数值 ADOQuery1.Post; / 进行修改并写回数据库中去； /ADOQuery1.Cancel;/不进行修改 /以下重新打开数据库并进行显示 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(select * from sinfo); ADOQuery1.Open; ADOQuery1.Active :=true; DBGrid1.Refresh; end;（11）其它模糊查询的例子：二、第二种方法：1、界面设计和控件的设计：2、“ADOConnection1”的部分属性设置：（1）LoginPrompt:False（2）Provider: SQLOLEDB（3）其它的控件必须要进行关联。3、“开始查询”代码： ADOConnection1.ConnectionString:=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:testdatacjzk.mdb;Persist Security Info=False; ADODataSet1.Close; ADODataSet1.CommandText:=select * from syk1; ADODataSet1.Open; ADODataSet1.Active :=true; edit1.Text:=ADODataSet1.FieldValues姓名;/取出它的值4、窗口退出代码：ADODataSet1.Close;5、取出字段的值：edit1.Text:=ADODataSet1.FieldValues姓名;/取出它的值6、SQL Server2000连接方法，其它的方法完全一样： ADOConnection1.ConnectionString:=Provider=SQLOLEDB.1;Password=yuanli;Persist Security Info=True;User ID=liyuan;Initial Catalog=pzhjyj;Data Source=06;7、移动记录的访问： ADODataSet1.Next;/下一条 /ADODataSet1.Prior;/前一条 /ADODataSet1.First;/第一条 /ADODataSet1.Last;/最后一条 edit1.Text:=ADODataSet1.FieldValues姓名;8、增加记录的方法：ADODataSet1.Append9、修改记录的值（第二种方法）： ADODataSet1.Edit; /进入修改模式 ADODataSet1.FieldValues姓名:=zhang; ADODataSet1.Post; /进行修改和更新 ADODataSet1.Active :=False; ADODataSet1.Active :=True; ShowMessage(操作成功！);10、删除当前记录的值：if not ADODataSet1.Eof thenbeginIf applic