数据库中表间的导入 ( 积分: 20 )

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-29

• #1

如何把同一数据库中5个表的信息导入到第6个表里???
注:5个表中只要与第6个表中字段相同的项就导入

 

S

sedwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-29

• #2

能否具体点？什么字段相同，各表主要字段例举几个比较直观。
例A、B、C、D、E、F表
A:id,name
B:id,Sex
C:id,old
D:id,project
E:id,Address
[red]F:id,name,sex,old,project,Address[/red]
Insert into F (id,name,sex,old,project,Address)
Select A.id,A.name,B.sex,C.old,D.project,E.address From A,B,C,D,E Where A.id=B.id And B.id=C.id And C.id=D.id And D.id=E.id And A.id=111
是不是这个意思？

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-30

• #3

不是,是象
A;id, name,sex
B:xn(学年),xq(学期),xh(学号)
C:地址,编号
D:xn,sex
E:学分,地址,职称
F:xn,xq,name,sex,地址
这样,把ABCDE中和F相同的导入,现在遇到的问题是:
例如:E中地址项这一列有的值是空的,导入到这项时就报错..

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-30

• #4

代码:

begin

while not ADOQuery2.Eof do

begin
ADocommand1.CommandText :='';
str:= 'insert into ASD(num,职称)'+' values('+ ADOQuery2.FieldValues['num']+','+quotedstr(ADOQuery2.FieldValues['职称'])+')';
ADocommand1.CommandText := str;
ADocommand1.Execute;
ADOquery2.next;

end ;


ADOQuery1.Requery;


end;

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-30

• #5

请问截图怎么贴上去???

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-30

• #6

[?]我把错误和表做压缩文件了,但不知道怎么上传

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-30

• #7

我把分数给你先,呵呵,谢谢你帮忙

 

W

wangzi1117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-07-31

• #8

我自己解决了..............