一一')); ADOQuery1.Open;
ADOQuery1.Active :=true;
3
Application.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 * 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:\test\data\cjzk.mdb;Persist Security Info=False'; ADODataSet1.Close;
ADODataSet1.CommandText:='select * from syk1'; ADODataSet1.Open;
ADODataSet1.Active :=true;
4
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=218.89.107.206'; 7、移动记录的访问:
ADODataSet1.Next;//下一条 //ADODataSet1.Prior;//前一条 //ADODataSet1.First;//第一条 //ADODataSet1.Last;//最后一条
edit1.Text:=ADODataSet1.FieldValues['']; 8、增加记录的方法: ADODataSet1.Append
9、修改记录的值(第二种方法): ADODataSet1.Edit; //进入修改模式
ADODataSet1.FieldValues['']:='zhang'; ADODataSet1.Post; //进行修改和更新 ADODataSet1.Active :=False; ADODataSet1.Active :=True; ShowMessage('操作成功!'); 10、删除当前记录的值: if not ADODataSet1.Eof then begin
If application.MessageBox('你删除该条记录吗?','删除',MB_OKCANCEL)=1 then ADODataSet1.Delete; end else
showmessage('已经到达记录末尾'); 11、关于对文本控件的显示:
请您使用IDE中的“Data Contrle”中的“BDEdit”控件就可以了,但是要注意关联相关的数据源[ADODataSet1]。
12、关于
Delphi7.0的帮助文件的调用方法:
ShellExecute(handle,nil,'winsys4.hlp',nil,nil,SW_ShowNormal);
5