我正在做的是一个数据库集成系统,遇到了困难,希望得到大家的帮助,谢谢~本人是新手,没有分数相赠,实在不好意思。。这个系统大概是这样:用了一个PageControl,一共两个Page,两个ADOQuery,两个DataSource,ADOQuery1连接到SQL的数据库A的表MOCTA,ADOQuery2连接到SQL的数据库B的表job,DataSource1的数据集为ADOQuery1,DataSource2的数据集为ADOQuery2。Page1有三个BitBtn,1、点击BitBtn1,可以查询 数据库A 表MOCTA 的更新情况,且用DBGrid1显示出更新的数据(已实现,用一个值为1的字段New来标志更新的数据,旧的数据该字段值为零,从而筛选出新的数据)
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select TA001,TA002,TA006 From MOCTA');
ADOQuery1.SQL.Add('Where New=1');
ADOQuery1.Open;
end;2、点击BitBtn2,可以将这些数据更新到数据库B的表2的对应字段当中去,如将 数据库A 表MOCTA 中New=1的字段TA001的值插入到 数据库B 表job 中的wo_id字段。
这个我觉得是要用INSERT语句来写,但是不知道具体怎么写,想请教一下大家。。
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOQuery2.SQL.Add('INSERT INTO job(wo_id)')
ADOQuery1.SQL.Add('Select TA001 From MOCTA')
ADOQuery2.SQL.Add('Where New=1')
end;
这是我自己写的,我知道不对,但不知道怎么写才是对的。我是初学者,自学了一点,边学边做,学的也不是很系统,希望大家讲的详细一点,谢谢!
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select TA001,TA002,TA006 From MOCTA');
ADOQuery1.SQL.Add('Where New=1');
ADOQuery1.Open;
end;2、点击BitBtn2,可以将这些数据更新到数据库B的表2的对应字段当中去,如将 数据库A 表MOCTA 中New=1的字段TA001的值插入到 数据库B 表job 中的wo_id字段。
这个我觉得是要用INSERT语句来写,但是不知道具体怎么写,想请教一下大家。。
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ADOQuery2.SQL.Add('INSERT INTO job(wo_id)')
ADOQuery1.SQL.Add('Select TA001 From MOCTA')
ADOQuery2.SQL.Add('Where New=1')
end;
这是我自己写的,我知道不对,但不知道怎么写才是对的。我是初学者,自学了一点,边学边做,学的也不是很系统,希望大家讲的详细一点,谢谢!
解决方案 »
- 有关RICHEDIT问题:如何控制RICHEDIT中滚动条的位置?急(在线等)
- 如何避免自己的abc.exe文件被别的程序调用?
- 有关RBuilder的用法的问题!急救!!!
- delphi 编辑环境下怎样编写汇编程序
- 求mapgis文件浏览控件??谁有啊,给发一个.
- xe生成的apk安装时提示解析包出现问题
- 请问如何实现在一个DBGRID中显示多数据库不要QUERY控件!!!
- 请推荐介绍HOOK技术的文章或网站
- 用DELPHI编写的IE地址栏监测程序,欢迎大家试用,详情见内
- 还是COOKIE的问题,呵呵,我自己都忍不住要笑了
- 如何产生安全的网络唯一ID?
- 请母语为中文的朋友来填写一份关于知识分享绩效的博士论文问卷调查
虽然不懂怎么做,也知道楼主的办法不大对.