delphi 操作数据库!!! 急!!!
发布网友
共4个回答
热心网友
简单来说就是一个表减少一条记录
另一个表增加一条相同的记录
而且两个表的内容都相同是吧
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;
热心网友
用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数据库编程方面带实例方面的书看看.
热心网友
引用部分加入
:
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
也
热心网友
不懂，学习！希望高手解答！
