您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

vb中sql语言对一个表进行添加数据使用另一个表的内容

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb中sql语言对一个表进行添加数据使用另一个表的内容

发表于：2007-12-20 00:05:49 楼主

表1（mylotdata):
tgt_lot_nbr
1345
1567

表2（myrejectdata):
lot_nbr reject_catg reject_qty
1345 pa 131
1345 op 141
1567 pa 20
1567 op 10
使用sql语言把表2内容添加到表1,如下:
tgt_lot_nbr pa op
1345 131 141
1567 20 10
下面是我做的一些动作,都有问题:
private sub command3_click（)
dim db as dao.database
set db = opendatabase（app.path & "\123.mdb", false, false, ";pwd=kiss")
db.ＥＸＥＣute "alter table mylotdata add column pa int" '我先试pa这种情况先在mylotdata表中加入例pa
db.ＥＸＥＣute "update mylotdata set pa = myrejectdata.reject_qty from myrejectdata where myrejectdata.lot_nbr = mylotdata.tgt_lot_nbr and myrejectdata.reject_catg ='pa'"
'上面这种试过不能通过,始终报警下面为我又用的一种方式
db.ＥＸＥＣute "insert into mylotdata （pa) select reject_qty from myrejectdata where mylotdata.tgt_lot_nbr = myrejectdata.lot_nbr and myrejectdata.reject_catg ='pa'"
'以上这种方式也不能实现,由于数据库是上万条记录,所以只能求助sql语言解决.
end sub

希望大家帮助解决一下,万分感谢!!

发表于：2007-12-20 13:38:561楼得分:0

谁能用dao语句做出来,（再提醒一下数据库是上万条),要简单的code实现.再给100分

发表于：2007-12-21 14:19:062楼得分:0

db.ＥＸＥＣute "alter table mylotdata add column pa int" '我先试pa这种情况先在mylotdata表中加入例pa
'这里需要从新打开db看看
db.ＥＸＥＣute "update mylotdata set pa = myrejectdata.reject_qty from myrejectdata where

发表于：2007-12-21 14:28:513楼得分:0

alter table mylotdata add column pa int
update mylotdata set pa=b.reject_qty from tgt_lot_nbr a,myrejectdata where a.tgt_lot_nbr=b.lot_nbr and b.reject_catg='pa'

发表于：2007-12-22 15:56:354楼得分:0

自已已搞定。楼上的不对

发表于：2007-12-22 15:56:535楼得分:0

自已　已　搞定。楼上的不对

下一篇：datagrid绑定数据源后怎么不显示数据？
上一篇：update命令的使用

其他资讯