请高手帮忙看看这段代码有什么问题?谢谢(50分)

  • 主题发起人 主题发起人 yedixifeng
  • 开始时间 开始时间
Y

yedixifeng

Unregistered / Unconfirmed
GUEST, unregistred user!
access数据库,两个表zhiyuan和zhiyuan1,彼此结构相同,想从zhiyuan1中把数据导入zhiyuan中,这段代码却不起作用。请帮忙看看,谢谢。

begin
with dm.qzhiyuan do
begin
close;
sql.Clear;
sql.Add('insert into zhiyuan (系统类别,系统编码,号码,PID,FName,Folder) select 系统类别,系统编码,号码,PID,FName,Folder from zhiyuan1');
end;
end;
 
应该还有一句类似于sql.Execute的命令吧?你光有语句还要执行它才可以。
 
with dm.qzhiyuan do
begin
close;
sql.Clear;
sql.Add('insert into zhiyuan (系统类别,系统编码,号码,PID,FName,Folder) select 系统类别,系统编码,号码,PID,FName,Folder from zhiyuan1');
open; //...
end;
 
begin
with dm.qzhiyuan do
begin
close;
sql.Clear;
sql.Add('insert into zhiyuan (系统类别,系统编码,号码,PID,FName,Folder) select 系统类别,系统编码,号码,PID,FName,Folder from zhiyuan1');
Execsql;//这里执行
end;
end;
 
[:(]没执行SQL
 
try
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into test(系统类别,系统编码,m) select objectid,parentid,tablename from treeview');
execsql;
end;
except
on e:exception do
e.Create('Error');
end;
//测试过,可以将数据Insert到表中
 
楼主的水平确实是需要高手来指点一下的...
 

Similar threads

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