delphi 操作数据库!!! 急!!!

发布网友 发布时间：2022-04-26 11:07

我来回答

共4个回答

热心网友 时间：2022-04-10 10:50

简单来说就是一个表减少一条记录
另一个表增加一条相同的记录
而且两个表的内容都相同是吧

var
cph:String;

with DM.Qxyclkscx do
begin
Close;
SQL.Clear;
sql.add('insert into XYCLXXCX values('+quotedstr(dm.ADODSZLDJ.FieldByName('cph').AsString)+','+quotedstr
(dm.ADODSZLDJ.FieldByName('clmc').AsString)+','+quotedstr
(dm.ADODSZLDJ.FieldByName('clys').AsString)+','+quotedstr
(dm.ADODSZLDJ.FieldByName('clbh').AsString)+')');
ExecSQL;
end;
cph:=dm.ADODSZLDJ.FieldByName('cph').AsString;

with DM.CLXXdo
begin
Close;
SQL.Clear;
sql.add('delete from CLXX where cph='+quotedstr(cph));
ExecSQL;
end;

热心网友 时间：2022-04-10 12:08

用SQL查询语名进行:
1、用查询回车选定一条记录,插入到销售表中．
假设库存表字段为：(零件号,名称,单价,数量)：
销售表字段为：(零件号1,名称1,单价1,数量1)
query1.close;
query1.sql.clear;
query1.sql.add('insert
into
销售表(零件号1,名称1,单价1,数量1)
select
(零件号,名称,单价,数量)
from
库存表
where
条件
');
query1.prepare;
query1.exesql;
这方面的书太多,到大书店都能购到,不过我建议你买一些Delphi数据库编程方面带实例方面的书看看.

热心网友 时间：2022-04-10 13:42

引用部分加入
:
uses
ComObj;
实现部分
:
procere
TFormOffice.BitBtn1Click(Sender:
TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\Aceco.mdb');
end;
说明
:
1
、
C:\
下创建
Aceco.mdb;
2
、
Access2000
格式
,用
Access97
打开
;
3
、系统需安装
MDAC,好消息
,客户需安装
Access
也

热心网友 时间：2022-04-10 15:34

不懂，学习！希望高手解答！