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

Posted 2023-05-15

要求如下：

主窗体上办有以下几个控件：
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应该是改变当前记录的意思吧。
如果要添加一条新记录要怎么做？

你的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; 参考技术A adoquery.edit;
adoquery.fields[1].asstring := memo1.lines.text;
adoquery.post;

delphi如何将明细表中的数据保存到数据库中

delphi如何将明细表中的数据保存到数据库中

1. 连接到数据库,例如用
ADOConnection设置连接数据库,
新建一个ADOQuery

2.新建表格, 例如 table2a:
ADOQuery.sql.text := \'CREATE TABLE table2a
(
name varchar(20),
age INT
)\';
ADOQuery.open;
ADOQuery.close;

3. 加入数据表
ADOQuery.sql.text := \'BULK INSERT table2a FROM \'c:\\table2a_file.txt\'
WITH
(
FIELDTERMINATOR = \',\',
ROWTERMINATOR = \'\\n\'
)\';
ADOQuery.open; 参考技术A 分2步
1.连接数据库
2.更新数据库

就这样来问问题，具体代码神仙也写不出来。 参考技术B 信息，从表中保存订单中的物品明细，可以用主表中的订单号作为从表中的外键。这样两个表即可关联起来了。 参考技术C dataset1.post