怎样从数据库中导出文本，又将文本导入数据库？

[Fantasychen]

我正在进行一个项目的开发，在这个过程中，考虑到数据库的容量太大，想用文本的形式保存，当需要该数据的时候再将之导入到数据库中，本人不只怎么操作，不知哪位高手能帮我解决这一问题，谢谢。（最好能有原代码实例）

[hsbiss]

写proc啊，用cmd_shell

[fhuibo]

procedure TForm1.DbgridToTxt(source: Tobject);
var
FileName: TextFile;
DataSet: TDataSet;
titlestr,valuestr,tempstr:string;
counter:integer;
begin
if (source is TDBGrid) then
DataSet := TDBGrid(source).DataSource.DataSet
else
DataSet := TDataSet(source);
if ((DataSet.IsEmpty) or (not DataSet.Active)) then
Exit
else
begin
DataSet.DisableControls;
DataSet.First;
if SaveDialog1.Execute then
begin
AssignFile(FileName,SaveDialog1.FileName);
Rewrite(FileName);
titlestr := '';
for counter := 0 to DataSet.FieldCount - 1 do
begin
titlestr := titlestr + ' ' + FormatStr(DataSet.Fields[counter].DisplayLabel, DataSet.Fields[counter].DataSize);
end;
titlestr := Trim(titlestr);
Writeln(filename,titlestr);
while not DataSet.Eof do
begin
valuestr := '';
for counter := 0 to DataSet.FieldCount - 1 do
begin
tempstr := DataSet.Fields[counter].Text;
tempstr := FormatStr(tempstr, DataSet.Fields[counter].DataSize);
valuestr := valuestr + ' ' + tempstr;
end;
valuestr := Trim(valuestr);
Writeln(filename,valuestr);
DataSet.Next;
end;
CloseFile(FileName);
end;
DataSet.EnableControls;
ShowMessage('保存成功');
end;
end;

[97866]

如果数据库是用MS SQL Server 可用如下：
导出：
SQL_Str:='bcp 库名..TableName out D:\File_Name.txt -w -S Sservername '
+'-U UserName -P PassWord';
ADO_OUTIN.Sql.Text:='MASTER..xp_cmdshell '''+SQL_STR+'''';
Ado_OutIn.ExecSql;

导入：

SQL_Str:='BULK INSERT HTFZDB.dbo.[TableName] FROM ''D:\File_Name.Txt''';
ADO_OutIn.Sql.Txt:=SQL_Str;
ADo_OutIn.ExecSql;

[Goxu]

MemoryStream: TMemoryStream;
MemoryStream.LoadFormFile(‘c：\temp.doc’);
TBlobField(ADOQuery.FieldByName('Text')).LoadFromStream(MemoryStream);
//Text为数据库中要保存该文件的字段名

[boynicky]

dbgrid.savetofile(相关参数)
dbgrid.readfromfile(相关参数)