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

1Delphi7.0中如何用代码访问数据的方法一、第一种方法：1、设计的界面如下：2、主要代码：（1）启动窗口中的主要代码：Se:=ExtractFilePath(Application.ExeName)+'data\jczk.mdb';//动态取出系统文件的路径ADOADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+Se+';PersistSecurityInfo=False';ADOADOQuery1.Close;ADOADOQuery1.SQL.Clear;ADOADOQuery1.SQL.Add('select*fromyhz');ADOADOQuery1.Open;//ADOADOQuery1.ExecSQL;本句表示不返回值时的记录集合ADOADOQuery1.Active:=true;（2）查询其它表时的代码：ADOADOQuery1.Close;ADOADOQuery1.SQL.Clear;ADOADOQuery1.SQL.Add('select*fromjf11');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('insertintoTab_Contron_record');ADOQuery1.SQL.Add('('+str_V+')');ADOQuery1.SQL.Add('values('+str_T+')');ADOQuery1.ParamByName('用户名').AsString:='admin';2ADOQuery1.ParamByName('连接设备IP').AsString:='192.168.18.66';ADOQuery1.ParamByName('用户类型').AsString:='管理员';ADOQuery1.ParamByName('连接时间').AsString:=datetimetostr(now);ADOQuery1.ParamByName('备注').AsString:='无';ADOQuery1.ExecSQL;（7）、怎么样查询数据库中表的值，即条件查询(注意：Quotedstr()函数的使用)：cnn:='select*fromsinfowheresid=200601001';//“sid”字段为数值型可以直接使用；cnn:='select*fromsinfowheresclass='+Quotedstr('高一一');//“sclass”字段为字符类型；//多条件进行查询的例子cnn:='select*fromsinfowheresclass='+Quotedstr('高一一')+'andssex='+quotedstr('男');ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(cnn);ADOQuery1.Open;ADOQuery1.Active:=true;（8）、与SQLServer2000远程数据库相连接的办法：//计算机进入界面的时候就可以进入，注意密码为“1”；数据库名称为“TEST”；IP地址为“127.0.0.1”，直接法：cnstring:='Provider=SQLOLEDB.1;Password=1;PersistSecurityInfo=True;UserID=sa;InitialCatalog=test;DataSource=127.0.0.1';ADOQuery1.ConnectionString:=cnstring;方框法：//计算机进入界面的时候就可以进入cnstring:='Provider=SQLOLEDB.1;Password='+Edit3.Text+';PersistSecurityInfo=True;UserID=sa;InitialCatalog='+Edit2.Text+';DataSource='+Edit1.Text;//127.0.0.1';ADOQuery1.ConnectionString:=cnstring;（9）其它查询的例子和数据记录集的移动方法：cnn:='select*fromsinfowheresclass='+Quotedstr('高一一')+'andssex='+quotedstr('男');ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add(cnn);ADOQuery1.Open;ADOQuery1.Active:=true;ifADOQuery1.RecordCount0thenbeginApplication.MessageBox('您已经查询到了相关的记录！','提示',64);ADOQuery1.Active:=true;Edit1.Text:=ADOQuery1.FieldValues['sname'];//取出它的值endelsebegin3Application.MessageBox('您设有查询到了相关的记录，点击退出！','提示',64);close;end;ADOQuery1.Active:=true;ADOQuery1.Next;//下一条记录Edit1.Text:=ADOQuery1.FieldValues['sname'];//取出它的值ADODataSet1.Next;//下一条//ADODataSet1.Prior;//前一条//ADODataSet1.First;//第一条//ADODataSet1.Last;//最后一条edit1.Text:=ADODataSet1.FieldValues['姓名'];（10）记录的数据值如何进行修改。beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromsinfowheresclass='+Quotedstr('高一一'));ADOQuery1.Open;ADOQuery1.Active:=true;ifADOQuery1.RecordCount0thenbeginApplication.MessageBox('您已经查询到了相关的记录！','提示',64);edit1.text:=ADOQuery1.FieldValues['sname'];//取出它的值//以下是对取得的值进行修改ADOQuery1.Edit;//进入修改模式ADOQuery1.FieldValues['sname']:='廖裕10';//修改的数值ADOQuery1.Post;//进行修改并写回数据库中去；//ADOQuery1.Cancel;//不进行修改//以下重新打开数据库并进行显示ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromsinfowheresclass='+Quotedstr('高一一'));ADOQuery1.Open;ADOQuery1.Active:=true;end;end;（11）如何向数据库中追加记录的方法beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromsinfowheresclass='+Quotedstr('高一一'));ADOQuery1.Open;ADOQuery1.Active:=true;4Application.MessageBox('您已经查询到了相关的记录！','提示',64);edit1.text:=ADOQuery1.FieldValues['sname'];//取出它的值//以下是对取得的值进行修改ADOQuery1.Edit;//进入修改模式ADOQuery1.Append;//进行追加一条记录ADOQuery1.FieldValues['sname']:='廖裕30';//修改的数值ADOQuery1.FieldValues['sid']:='2010011';//修改的数值ADOQuery1.Post;//进行修改并写回数据库中去；//ADOQuery1.Cancel;//不进行修改//以下重新打开数据库并进行显示ADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('select*fromsinfo');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;DataSource=C:\test\data\cjzk.mdb;PersistSecurityInfo=False';ADODataSet1.Close;ADODataSet1.CommandText:='select*fromsyk1';ADODataSet1.Open;ADODataSet1.Active:=true;5edit1.Text:=ADODataSet1.FieldValues['姓名'];//取出它的值4、窗口退出代码：ADODataSet1.Close;5、取出字段的值：edit1.Text:=ADODataSet1.FieldValues['姓名'];//取出它的值6、SQLServer2000连接方法，其它的方法完全一样：ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=yuanli;PersistSecurityInfo=True;UserID=liyuan;InitialCatalog=pzhjyj;DataSource=218.89.107.206';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、删除当前记录的值：ifnotADODataSet1.EofthenbeginIfapplication.MessageBox('你删除该条记录吗？','删