紧急求救!求SQL语句(50分)

  • 主题发起人 主题发起人 tlly
  • 开始时间 开始时间
T

tlly

Unregistered / Unconfirmed
GUEST, unregistred user!
有三个表

表一
房间号 房间名 部门号 人员号.....

表二
部门号 部门名称 ......

表三
人员号 姓名 职务 年龄.......

要求通过选择部门显示以下内容
房间号 房间名 姓名 职务 年龄

需要返回实际结果集(可修改其中的记录)
[?][?][?][?]
 
select A.房间号,A.房间名,C.姓名,C.职务,C.年龄 from table1 a,table3 c where a.人员号=c.人员号;
不就行了?
 
select 表一.房间号,表一.房间名,
表三.姓名,表三.职务,表三.年龄
from 表一,表二,表三
where 表一.部门号=表二.部门号
and 表一.人员号=表三.人员号
and 表二.部门名称= :部门名称

编辑修改结果可使用cache update方式。 但是多表cache update 比较麻烦些。
 
[blue]zhangkan

select A.房间号,A.房间名,C.姓名,C.职务,C.年龄 from table1 a,table3 c where a.人员号=c.人员号;
不就行了?[/blue]
你的语句我早已经试过了,返回的记录集是只读的!!还有没有好办法
 
你查询一下前面的贴子,有很多使返回的记录集可修改的贴子了
 
设置一个变量:Q
select A.房间号,A.房间名,C.姓名,C.职务,C.年龄 from table1 a,table3
where 部门编号 like:q
 
我的语句是
select a.房间号,a.房间名,b.姓名
from 表一 a,表三 b
where a.人员号=b.人员号 and a.部门号=:bm

在query1中为 bm 赋与初始值的话,返回的结果集可修改
如果动态赋值给 bm 那返回的结果集是只读的,可是我需
要返回的结果集可修改

各位高手请多指教
 
sql查询得到的结果是只读,要修改需通过与UpdateSQL一同进行,
http://www.delphibbs.com/delphibbs/dispq.asp?lid=625571

看看这个例子 ,(运行通过) t_debug (id,new) ,t_debug2(id,old)
query1.SQL.text:='select t_debug.id as id,new,old from t_debug left join t_debug2 on t_debug.id=t_debug2.id';
updatesql1.InsertSQL.add('insert into t_debug(id,new) values(:id,:new)');
updatesql1.DeleteSQL.add('delete from t_debug where id=:id and new=:new');
updatesql1.ModifySQL.Add('update t_debug set id=:id,new=:new where id=:old_id and new=:old_new');
query1.CachedUpdates:=true;
query1.UpdateObject:=updatesql1;
query1.Open;

query1.Edit;
query1.FieldByName('id').AsString:=edit1.Text;
query1.FieldByName('new').AsString := edit2.Text;

query1.Database.StartTransaction;
try
query1.ApplyUpdates;
query1.Database.Commit;
except
showmessage('error');
query1.Database.Rollback;
end;
 
上例近修改一个表中的数据,若两个表中的数据都需修改,试试add语句看行不?(我没有亲自试过)
你的选择结果集主键可以看成是人员号。
 
以上很多朋友的语句都可以实现啊!
 
以上很多朋友的都可以实现,只是涉及到QUERY中多表的修改可能比较麻烦,
要配合UPDATESQL一起使用
 
用ADO吧,ADO可以修改来自多个数据表Join来的数据,将更新数据写回相应的表中,简直棒极了。
是时候放弃UPDATESQL更新多表了。


 
最好做个视图,什么都出来了
 
接受答案!
谢谢大家!!!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部