高分求助：delphi中关于access数据表的导入和导出问题

Question

需要进行数据表中的记录导出，如
人事库.mdb 
其中有表: 学生档案
现在想导出 女学生的档案导入功能则是： 将每台机子导出的女学生的档案合并到一个学生档案库请问如何进行。。
在线。。等

Answer 1

我全部不会，我没学过DELPHI，所以能不能详细点呀

Answer 2

//用ado连接access
ADOConnection1.Close;
  ADOConnection1.ConnectionString:=AccessADOConstr(ExtractFilePath(Application.ExeName)+'人事库.mdb','zz1z97046library');
  ADOConnection1.Open;
  tempADOQry.Connection:=ADOConnection1;
 
function TDataMdl.AccessADOConstr(FileName: TFileName;Password: string): string;
var str:string;
begin
  str:='';
  str:='Provider=Microsoft.Jet.OLEDB.4.0;';
  str:=str+'Password="";';
  str:=str+'User ID=Admin;';
  str:=str+'Data Source='+ExpandFileName(FileName)+';';
  str:=str+'Mode=Share Deny None;';
  str:=str+'Extended Properties="";';
  str:=str+'Locale Identifier=2052;';
  str:=str+'Jet OLEDB:System database="";';
  str:=str+'Jet OLEDB:Registry Path="";';
  str:=str+'Jet OLEDB:Database Password='+Password+';';
  str:=str+'Jet OLEDB:Engine Type=5;';
  str:=str+'Jet OLEDB:Database Locking Mode=1;';
  str:=str+'Jet OLEDB:Global Partial Bulk Ops=2;';
  str:=str+'Jet OLEDB:Global Bulk Transactions=1;';
  str:=str+'Jet OLEDB:New Database Password="";';
  str:=str+'Jet OLEDB:Create System Database=False;';
  str:=str+'Jet OLEDB:Encrypt Database=False;';
  str:=str+'Jet OLEDB:Don'+''''+'t Copy Locale on Compact=False;';
  str:=str+'Jet OLEDB:Compact Without Replica Repair=False;';
  str:=str+'Jet OLEDB:SFP=False';
  result:=str;
end;

Answer 3

然后
tempADOQuery.close;
tempADOQuery.sql.clear;
tempADOQuery.sql.add('select * from 学生档案 where 性别='+''''+'女'+'''');
tempADOQuery.open;
while not tempADOQuery.eof do
begin
  把数据导哪里去的程序
  next
end;

Answer 4

首先你要说清楚,你的数据是要导入到哪里,如果是另一个ACCESS数据表的话.可以将原始表中的符合要求的数据一条条读出,然后在写到新的表中.
如果是导出的其他如EXCEL表中也差不多,比较简单的方法也是一条条读出后再写入!

Answer 5

都是在access中导来导去的，首先是要导出一个文件（是不是只能用.mdb的），然后另外机子导入，要选择刚才那个文件的，那不是要创建动态的dataset才行？
还有一种方法是，导出成SQL语言，然后导入时就用SQL就进行。请问要怎么做？

Answer 6

我给个建议；方法一：进行选择插入
            方法二：先进行全部导出，再进行删除（之所以这样进行，是因为做选择插入会十分地影响运行速度），我在以前做一条一条插入的时候，统计：10个字段，5万条记录，cup c4 1.10G,SDR 256M, 2分钟