解决马上结帖！！！

[zhefakai]

现在我有三个excel文件 现我要把它完完全全导入对应的三个access表中 三个access表是导入后自动建立的（各个字段名都是完完全全的） 实现的功能是查询、删除、增加功能。

有源码者 能贴出来是最好或放到我的[e-mail] 在这里谢谢了再谢谢了

[飞狼兄]

帮你顶

[alonesnake]

飞腿

[Samland]

给你点提示吧：
b:= dm.adoq1.CursorType;
if (Pos('$',srcTableName)>0) then
begin
dm.adoq1.CursorType:= ctStatic;
srcTableName:= '[' + srcTableName + ']';
end;

dm.adoq1.Close;
if (srcTableName<>'') then
dm.adoq1.SQL.Text:= 'SELECT * FROM ' + srcTableName + ' WHERE 1=2'
else
dm.adoq1.SQL.Text:= sqlString;
dm.adoq1.Open;
mSQL.Lines.Add('CREATE TABLE ' + destTableName + ' (');
iC:= dm.adoq1.FieldCount;
for i:=0 to iC-1 do
begin
t:= ' ' + dm.adoq1.FieldList[i].DisplayName + ' ';
case dm.adoq1.FieldDefList[i].DataType of
ftFixedChar:
t:= t + 'CHAR';
ftString, ftWideString:
t:= t + 'VARCHAR';
ftSmallint, ftInteger, ftWord, ftAutoInc,ftLargeint:
t:= t + 'NUMERIC';
ftBoolean:
t:= t + 'BOOLEAN';
ftFloat, ftCurrency, ftBCD:
t:= t + 'FLOAT';
ftDate:
t:= t + 'DATE';
ftTime:
t:= t + 'TIME';
ftDateTime:
t:= t + 'DATETIME';
ftUnknown, ftBytes, ftVarBytes, ftBlob, ftGraphic, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd:
t:= t + 'BLOB';
ftMemo, ftFmtMemo, ftOraClob:
t:= t + 'CLOB';
end;
p:= dm.adoq1.FieldList[i].Size;
s:= dm.adoq1.FieldDefList[i].Precision;
if (p>0) then
begin
t:= t + '(';
t:= t + IntToStr(p);
if (s>0) then
begin
t:= t + ',';
t:= t + IntToStr(s);
end;
t:= t + ')';
end;

if (i<iC-1) then
t:= t + ','
else
t:= t + ')';

mSQL.Lines.Add(t);
end;
dm.adoq1.Close;
dm.adoq1.CursorType:= b;

[pdbird]

实现步骤（只是其是一种方法）：
1、将三个excel文件存为 *.csv；
2、按你的意愿建好三个表；
3、读取csv文件中的记录，一条条插入到三个表中。

[bmwyc]

友情帮顶！！！