Question

DELPHI中如何使用ADOQUERY和TEDIT，TMEMO操作数据库。

要求如下：

主窗体上办有以下几个控件：
TADOConnection
TADOQuery
TListbox
TEdit : 名称
TMemo : 内容
TButton : 增加
TButton : 保存

表address1结构：
mc: char 20
nr: text

程序实现功能：
TADOConnection实现与数据库连接
TADOQuery实现查询
TListBox列表显示数据“名称”
点击一项在TEdit和TMemo中分别显示本条数据的值
点增加清空TEdit和TMemo的值。
点保存读入TEdit和TMemo值添加到数据库中，并刷新列表。

刚刚接触数据库这块，有时间的朋友帮下我。

不用告诉我DBEDIT和DBMEMO了，主要就是想研究下这些内容。数据类型。

再次谢谢大家了

我现在已经可以做到用ADOQuery读入到TEdit里了。

但是将text字段读入TMemo和用代码写入数据库还是没有搞定。
因为数据要进行一系列操作，所以不能直接用SQL语言写入数据库。
希望知道的人不吝赐教。
谢谢begfromnet。可以详细点么。
adoquery.edit应该是改变当前记录的意思吧。
如果要添加一条新记录要怎么做？

Answer 1

你的text字段为nr,读入memo1:
begin
memo1.line.add(adoquery.fields['nr'].asstring);
end;

将memo1的内容写入数据库：
var
s:string;
i:integer;
begin
try
for i:=0 to memo1.line.count-1 do//具体不知道memo1有几行，所以用循环读取，避免丢失数据。
s:=s+memo1.lines.strings[i];
ADOQuery1.append;//进入新增数据模式，如果用edit为修改模式
ADOQuery1.fields['nr'].asstring:=s;
ADOQuery1.post;
s:='';//清空字符型变量，以备下次使用
memo1.lines.clear;//道理同s
showmessage('操作成功！');
except
ADOQuery1.cancel;
showmessage('操作失败！');
end;
end;

Answer 2

adoquery.edit;
adoquery.fields[1].asstring := memo1.lines.text;
adoquery.post;