如何導出數據庫中的紀錄？

Question

Sql Server 2000數據庫，可以使用哪一個工具，將指定數據庫中數據表的記錄，
導出成‘insert into ’這樣的腳本，如何做 ?

Answer 1

不太明白楼主的意思，不过SQL SERVER 可以导处SQL脚本

Answer 2

看不懂楼主要问的……
乱写一点
1、 insert into table_temp2 valuse(select * from table_temp1)
2、MS SQL SERVER是可以导出脚本的~~答非所问，闪了先~~

Answer 3

可能你的意思是把数据库转到另外一条电脑上,你可以用SQL企业管理器分离数据库,然后考出去即可,在目的电脑上还是利用SQL企业管理器导入数据库即可,你试一下吧,如果不是你的本意,请将你的问题表述的再明确一些.

Answer 4

靠,  select 'insert into ......' from You_table

Answer 5

你use
  comobj;单元
然后调用产生excel ，word 接口
这样能导出。
 procedure TFrmWIPCheck.PMenuXLSClick(Sender: TObject); 
                var
  VarExcel: variant;//定义一个EXCEL变量; 
  Vari,Varj:integer;      //控制for循环的两个变量即Excel中的行数和列数 
  VarFilePath:String;//存储本程序导出数据文件的路径
                begin
   if Pagecontrol1.ActivePage =TabSheet1 then 
   begin
     if DataModule1.WIPCheckTbl.Active = False then 
     begin
       Showmessage('没有数据可供您输出！')
       Exit;
     end;
     VarExcel := CreateOleObject( 'Excel.Application' );
     VarExcel.Workbooks.Add;
     VarExcel.Cells[1,1].Value:='盘点单号';
     VarExcel.Cells[1,2].Value:='板号';
     VarExcel.Cells[1,3].Value:='工单号'
     VarExcel.Cells[1,4].Value:='客户名称';
     VarExcel.Cells[1,5].Value:='工单数量';
     VarExcel.Cells[1,6].Value:='PNLS数量';
     VarExcel.Cells[1,7].Value:='UNIT数量'
     VarExcel.Cells[1,8].Value:='报废数量';
     VarExcel.Cells[1,9].Value:='销售订单数量';
     VarExcel.Cells[1,10].Value:='所在部门';
     VarExcel.Cells[1,11].Value:='板的状态';
     VarExcel.Cells[1,12].Value:='盘点日期';
     with DataModule1.WIPCheckTbl do 
     begin
       First;
       DisableControls;
       FrmProgress :=TFrmProgress.Create(nil);//创建一个进度条窗体。
       FrmProgress.Show;
       FrmProgress.ProgressBar1.Max := DataModule1.WIPCheckTbl.RecordCount ; 
       for VarI:=1 to (RecordCount) do
       begin
         for VarJ:=0 to 11 do  
         begin
           VarExcel.Cells[VarI+1,VarJ+1].Value := Fields[VarJ+1].Text ;
         end;
         Next;
         FrmProgress.ProgressBar1.StepBy(1);
       end;
     end;
     FrmProgress.Free;
     VarFilePath:='C:\WIP盘点.xls';
     if FileExists(VarFilePath) then  
        DeleteFile(VarFilePath);
     VarExcel.ActiveSheet.SaveAs(VarFilePath);
     VarExcel.ActiveWorkBook.Close;
     VarExcel.Quit;
     ShowMessage('C:\WIP盘点.xls,数据导出成功 ,');
     DataModule1.WIPCheckTbl.EnableControls;
   end;