第一次搞Delphi,不是很明白adotable,adodataset,adoquery等等的关系
解决方案 »
- FieldByName 问题
- TRSClass = class of TRSCustomView;这句是什么意世?什么作用?3Q
- 谁能教教我TCHART控件怎么用的?
- 嘻嘻,找些歌来听听吧
- 请教一下,换肤功能是怎么实现的?是什么原理?
- csdn人都是活雷锋
- 问一下 DELPHI里面要显示GIF文件用什么组件?
- 网站不写储存过程会有什么影响?
- 图标题取器1.2发布,欢迎下载使用,http://icnw.myrice.com
- 100分求网络五子棋之类的网络小游戏的原代码
- 不知道我的这个问题有没有难度,大家帮我想想办法吧.
- 在delphi中用ADOQuery连接数据库ACCSE,如何显示ACCSE中的所有表名在EDIT上
http://www.dapha.net/down/show.asp?classid=6
用ado写的
初学者可以看看
你可以搜索一下。
这方面的资料也很多
begin
Connection:=ADOConnection;
SQL.Clear;
SQL.Add('SELECT * FROM table');
Open;
Append;
FieldValues['field']:=...
Post;
end;
with ADOTable do
begin
Connection:=ADOConnection;
TableName:='table';
Open;
Append;
FieldValues['field']:=..
Post;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;type
TRequestForm = class(TForm)
Label1: TLabel;
ComRequest: TComboBox;
MemRequest: TMemo;
RequestConnection: TADOConnection;
RequestDataSet: TADODataSet;
ADOTable1: TADOTable;
Label2: TLabel;
edtstat: TEdit;
btnok: TButton;
btnback: TButton;
procedure FormCreate(Sender: TObject);
procedure btnokClick(Sender: TObject);
procedure btnbackClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
RequestForm: TRequestForm;implementationuses unittest;{$R *.dfm}{
函数名:FormCreate
主要功能:启动表单时把数据库中表记录相关字段Load进Combobox的Items中
}
procedure TRequestForm.FormCreate(Sender: TObject);
var
i:integer;
begin
ComRequest.items.clear;
for i:=0 to adotable1.FieldCount -1 do
ComRequest.Items.add(adotable1.Fields[i].FieldName);
end;{
函数名:btnokClick
主要功能:根据Combobox中选择的字段名在Edit中输入相关的记录寻找相匹配数据
}
procedure TRequestForm.btnokClick(Sender: TObject);
var
i:integer;
j:integer;
begin
RequestDataSet.Close;
RequestDataSet.CommandText:=format('select * from db_Test where %s = ''%s''',[ComRequest.text,edtstat.text]);
RequestDataSet.open;
i:=0;
memrequest.Clear;
if requestdataset.Recordcount=0 then
begin
showmessage('没有查找到相关记录');
edtstat.Text:='';
end;
while i<requestdataset.RecordCount do
begin
i:=i+1;
for j:=0 to adotable1.FieldCount -1 do
memrequest.Lines.Add(adotable1.Fields[j].FieldName+': '+RequestDataSet.fieldbyname(adotable1.Fields[j].FieldName).AsString);
end;
end;{
函数名:btnbackClick
主要功能:退出应用程序
}
procedure TRequestForm.btnbackClick(Sender: TObject);
begin
form1.close;
end;end.