//Query1为SQL Server查询,换成ADOQuery即可
//Table1.DatabaseName := '<路径>';procedure TForm1.Button1Click(Sender: TObject);
var
FileNames: string;
begin
Table1.Close;
Table1.TableType := ttFoxPro;
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;
Table1.Close;
end;
//Table1.DatabaseName := '<路径>';procedure TForm1.Button1Click(Sender: TObject);
var
FileNames: string;
begin
Table1.Close;
Table1.TableType := ttFoxPro;
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;
Table1.Close;
end;
解决方案 »
- 请教一个select语句
- SQL Server数据库连接失败
- XP安SQL SERVER 2008 企业版 无SQL Server Management Studio出来???
- 请教一个复杂SQL视图统计
- 相同查询在服务器和PC上为何查询耗时相差这么多?
- SQL SERVER 高级数据提取 绝对超难算法
- "内部错误 构造不完整"
- 如何修改表中列名
- sql server 中和case该如何表达....
- 如何从oracle数据库中定时抽取数据并放入mssql数据库中
- The database has to be run 24 hr/day and 7 days/week
- .mb文件是什么冬冬,我用什么可以打开它。
//继续关注中