加100分！一个很容易的问题。(100分)

如何将固定格式的文本文件或word文件或Excel文件追加到数据库中?

你要求的其实就是对 Word/Excel的操作方法问题，查看我以前回答的问题
就可以了。（单击Crab)

将其作为一个blob拷到数据库中就行了。

如果是整个文件的话就 LoadFormFile
不过文件一大，速度慢的出奇。指ACCESS

1.查看以前回答的问题.
2.把相适应文件连到BDE，用BATCHMOVE。
3。用OLE。例子（我也是COPY的）：
直接用 OLE 读取 EXCEL 文档。
procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp,MyWorkBook: OLEVariant;
i,j: Integer;
begin
try
ExcelApp:=CreateOleObject('Excel.Application');
MyWorkBook:=CreateOleobject('Excel.Sheet');
except
application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.','',
mb_OK+mb_IconStop);
Exit;
end;
//ExcelApp.Visible := true;
MyworkBook:= ExcelApp.workBooks.Open(ExtractFileDir(Application.ExeName)
+ '/' + Edit1.Text + '.xls');
for i := 3 to 9do
begin
//Read a row into table
table1.Append;
table1.FieldByName('Name').AsString := MyWorkBook.WorkSheets[1].Cells[i,1].Value;
table1.FieldByName('Size').AsString := MyWorkBook.WorkSheets[1].Cells[i,2].Value;
table1.FieldByName('Weight').AsString := MyWorkBook.WorkSheets[1].Cells[i,3].Value;
table1.FieldByName('Area').AsString := MyWorkBook.WorkSheets[1].Cells[i,4].Value;
end;
//showmessage(MyWorkBook.WorkSheets[1].Columns[1].numberformat);
//showmessage(MyWorkBook.WorkSheets[1].Columns[2].numberformat);
ExcelApp:=Unassigned;
//释放VARIANT变量
end;

问题解决了!多谢各位.

用SQL Server里的DTS工具,可以輕鬆轉換數據.