怎么把SQL SERVER2000 数据库中的表转成.dbf格式的表！谢谢

Question

使用SQL Server2000所提供的“导入和导出数据”这个工具。

Answer 1

只好利用bde 的 batchmove来进行控制了，放一个batchmove,类型为copy, 设好数据源和目标表就可以了

Answer 2

sql server 2k 倒入到处工具提供脚本。大概是调用sql server的一个对象sql server 附带vb例程，你可以参考以下

Answer 3

1.导Access库用TBatchMove
2.给你一个我写的简单例子
-------------------------------
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables, Excel97, OleServer;type
  TForm1 = class(TForm)
    ExcelApplication1: TExcelApplication;
    ExcelWorkbook1: TExcelWorkbook;
    ExcelWorksheet1: TExcelWorksheet;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
    procedure OutputDataToExcel(AFileName, AWName,
      AWCaption: string; ADBGrid: TDBGrid);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
  i, row, column: integer;
begin  Try
    ExcelApplication1.Connect;
  Except
    MessageDlg('Excel may not be installed', mtError, [mbOk], 0);
    Abort;
  End;
  ExcelApplication1.Visible[0]:=True;
  ExcelApplication1.Caption:='Excel Application';
  ExcelApplication1.Workbooks.Add(Null,0);
  ExcelWorkbook1.ConnectTo
  (ExcelApplication1.Workbooks[1]);
  ExcelWorksheet1.ConnectTo
  (ExcelWorkbook1.Worksheets[1] as _Worksheet);
  Table1.Open;
  row:=1;
  While Not(Table1.Eof) do
  begin
    column := 1;
    for i:=1 to Table1.FieldCount do
    begin
      ExcelWorksheet1.Cells.Item[row,column] := Table1.fields[i-1].AsString;
      column:=column+1;
    end;
    Table1.Next;
    row := row + 1;
  end;
  ExcelWorkSheet1.SaveAs('f:\yyy');
  ExcelApplication1.quit;
  ExcelWorksheet1.disconnect;
  ExcelWorkbook1.disconnect;
  ExcelApplication1.disconnect;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  ExcelWorksheet1.PrintPreview;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
  ExcelWorksheet1.PrintOut;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
end;procedure TForm1.OutputDataToExcel(AFileName, AWName, AWCaption: string;
  ADBGrid: TDBGrid);
var
  temp_worksheet: _worksheet;
  iCount, jCount: integer;
  aBookMark: TBookMark;
begin  Try
    ExcelApplication1.Connect;
  Except
    MessageDlg('没有安装Excel！', mtError, [mbOk], 0);
    Abort;
  End;//  ExcelApplication1.Visible[0]:=True;
//  ExcelApplication1.Caption:='Excel Application';
  ExcelApplication1.Workbooks.Add(Null,0);
  ExcelWorkbook1.ConnectTo
  (ExcelApplication1.Workbooks[1]);
  ExcelWorksheet1.ConnectTo
  (ExcelWorkbook1.Worksheets[1] as _Worksheet);  for iCount := 0 to ADBGrid.Columns.Count - 1 do
    ExcelWorkSheet1.Cells.Item[1, iCount + 1] := ADBGrid.Columns.Items[iCount].Title.Caption;
  try
    ADBGrid.DataSource.DataSet.DisableControls;
    aBookMark := ADBGrid.DataSource.DataSet.GetBook;
    ADBGrid.DataSource.DataSet.First;
    iCount := 1;
    while not ADBGrid.DataSource.DataSet.Eof do
    begin
      Inc(iCount);
      for jCount := 0 to ADBGrid.FieldCount - 1 do
        ExcelWorkSheet1.Cells.Item[iCount, jCount + 1] := ADBGrid.Fields[jCount].AsString;
      ADBGrid.DataSource.DataSet.Next;
    end;
  finally
    ADBGrid.DataSource.DataSet.GotoBook(aBook);
    ADBGrid.DataSource.DataSet.FreeBook(aBook);
    ADBGrid.DataSource.DataSet.EnableControls;
  end;  ExcelWorkSheet1.SaveAs(AFileName);
  ExcelApplication1.quit;
  ExcelWorksheet1.disconnect;
  ExcelWorkbook1.disconnect;
  ExcelApplication1.disconnect;
  ShowMessage('保存成功！');
end;procedure TForm1.Button5Click(Sender: TObject);
begin
  OutputDataToExcel('f:\yy', 'dd', 'ddd', DBGrid1);
end;end.
------------------------------------------------------

Answer 4

SET SAFE OFF
SET TALK OFF
set esca off
create database start
open database START
create connect sqlodbc connstring  "DRIVER=SQL Server;SERVER="+allt(thisform.text1.value)+";UID="+allt(thisform.text2.value)+";PWD="+allt(thisform.text3.value)+";APP=Microsoft? Visual FoxPro?;WSID=df;DATABASE=master"
=dbsetprop("sqlodbc","connection","displogin",3)
sqlconnhand=sqlconn("sqlodbc",ALLT(this.parent.TEXT2.VALUE),ALLT(this.parent.TEXT3.VALUE))
if sqlconnhand<0
   =messagebox("初始化失败，检查输入的服务器、用户及密码是否有误。",16,"出错信息")
   thisform.text1.setfocus
   retu
endi
****取消连接
=sqldisconnect(sqlodbc)
**建立视图
create sql view temp connection sqlconn share as select * from ctdt  &&建立视图
=dbsetprop("temp.recordid","field","keyfield",.t.)&&设置第一个字段为关键字段
=dbsetprop("ctdt","view","sendupdates",.t.)
**这样后，就好象使用本地表一样使用ＳＱＬ数据表，随便进行导出导入。

Answer 5

利用batchmove组件,很简单你可以试一试!

Answer 6

使用SQL中的数据转化工具：导入和导出数据；在选择栏中选择dbase的数据源即可