创建临时表出错了,请高手帮助!! 试试select * from czb into #temp 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 出错信息如下:Invalid use of keywordToken:intoLine Number:1请问我怎么解决呢? paradox,就是在delphi里用的数据库 paradox是没有'select * into #temp from czb'这个语法的吧? select * from czb as temp //如何将TQUERY查询出的数据项导入一个表procedure TForm1.Button1Click(Sender: TObject);var FileNames: string;begin Table1.Close; Table1.FieldDefs.Assign(Query1.FieldDefs); Table1.TableName := 'NewTable'; Table1.CreateTable; Table1.Open; Query1.First; FileNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]); while not Query1.Eof do begin Table1.Append; Table1[FileNames] := Query1[FileNames]; Table1.Post; Query1.Next; end;end; //如何将TQUERY查询出的数据项导入一个表procedure TForm1.Button1Click(Sender: TObject);var FileNames: string;begin Table1.Close; Table1.FieldDefs.Assign(Query1.FieldDefs); Table1.TableName := 'NewTable'; Table1.CreateTable; Table1.Open; Query1.First; FileNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]); while not Query1.Eof do begin Table1.Append; Table1[FileNames] := Query1[FileNames]; Table1.Post; Query1.Next; end;end; 这个问题谁能帮我解决一下呢! 关于控件的问题----急!急! 在线等待 高分求解,TClientSocket程序总是不确定地报告Access Violation,加个showmessage都不行! 一个问题,望大家支持! delphi 中文件的读取相关问题 按钮使用的问题(在线等待) 关于时间型转换的问题的简单问题 现在还有用DBASE或FOXPRO编程的吗?学校里还一直在考这些东西呢。请大家说一说。 请问如何使FORM响影回车键 如何动态检测是否已联网? 画图问题!!!! 用ExtracFileDir函数是不是要在Use里加入什么东西?
Invalid use of keyword
Token:into
Line Number:1
请问我怎么解决呢?
var
FileNames: string;
begin
Table1.Close;
Table1.FieldDefs.Assign(Query1.FieldDefs);
Table1.TableName := 'NewTable';
Table1.CreateTable; Table1.Open;
Query1.First;
FileNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
while not Query1.Eof do begin
Table1.Append;
Table1[FileNames] := Query1[FileNames];
Table1.Post;
Query1.Next;
end;
end;
var
FileNames: string;
begin
Table1.Close;
Table1.FieldDefs.Assign(Query1.FieldDefs);
Table1.TableName := 'NewTable';
Table1.CreateTable; Table1.Open;
Query1.First;
FileNames := StringReplace(Trim(Query1.FieldList.Text), #13#10, ';', [rfReplaceAll]);
while not Query1.Eof do begin
Table1.Append;
Table1[FileNames] := Query1[FileNames];
Table1.Post;
Query1.Next;
end;
end;