用Delphi 怎么从server2000导出dbf文件

如题

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

SQL Server 2000的数据文件是mdf和ldf，楼主导出这干啥？
SQL Server2000 自己有导出功能吧
我要做个小软件给客户用
从server2000中查数据然后导出到dbf
哪就要新建FoxPro的数据库，然后导入数据
可以用select把所有的data查出来，在一个一个记录查到dbf中
    //设置比较结果输出表的位置
    try
      OutPutCon.Connected := False;
      OutPutCon.ConnectionString := 'Provider=MSDASQL.1;' +
        'Extended Properties="Driver={Microsoft Visual Foxpro Driver};' +
        'SourceType=DBF;' +
        'SourceDB=' + MyPaths(ExtractFilePath(OutPutFile.Text)) + ';MaxBufferSize=2048;"';      OutPutCon.Connected := True;
    except
      on E: Exception do
        Application.MessageBox(Pchar(E.message), '系统提示', MB_OK + MB_ICONERROR);
    end;    //接收到的源路径
    AdoSour.Connection := SourceCon;
    //输出数据
    AdoOut.Connection := OutPutCon;
    AdoIns.Connection := OutPutCon;
    //创建输出数据表
    SetCurrentDir(MyPaths(ExtractFilePath(OutPutFile.Text)));    oFileName := MyFileNamePaths(OutPutFile.Text);
    AdoOut.Close;
    AdoOut.SQL.Clear;
    SqlStr3 := 'create table ';
    SqlStr3 := SqlStr3 + oFileName;
    SqlStr3 := SqlStr3 + '(bh i,xxdm c(10),xxmc c(60), bxlx c(8),bxlxname c(56))';    AdoOut.SQL.Add(SqlStr3);
    AdoOut.ExecSQL;
//插入部分    for ic1 := 0 to AdoSour.RecordCount - 1 do
    begin
      AdoIns.Close;
      AdoIns.SQL.Clear;
      SqlStr4 := 'insert into ';
      SqlStr4 := SqlStr4 + oFileName;
      SqlStr4 := SqlStr4 + '(bh,xxdm,xxmc,bxlx,bxlxname) ';
      SqlStr4 := SqlStr4 + 'Values(';
      SqlStr4 := SqlStr4 + IntToStr(ic1 + 1) + ',';
      SqlStr4 := SqlStr4 + '''' + TrimRight(AdoSour.Fields[0].AsString) + ''',';
      SqlStr4 := SqlStr4 + '''' + TrimRight(AdoSour.Fields[1].AsString) + ''',';
      SqlStr4 := SqlStr4 + '''' + TrimRight(AdoSour.Fields[2].AsString) + ''',';
      SqlStr4 := SqlStr4 + '''' + TrimRight(AdoSour.Fields[3].AsString) + ''')';      AdoIns.SQL.Add(SqlStr4);
      AdoIns.ExecSQL;      AdoSour.Next;
    end;
..
我只用过msSQL 2000 的备份你在程序中拉个ADOQuery控件出来然后直接给他赋语句:ADOquery.sql.Text := 'backup database Test//数据库名称 to disk= :SaveDir'//SaveDir 路径比如  c:\1.bak
ADOQuery1.Parameters[0].Value := :='c:\1.bak';//自己设置保存路径
  ADOQuery1.ExecSQL;MS sql 2000的FoxPro就不知道了
backup database xx to 'filename'
select * into abc.dbf from T_bmk IN [ODBC] [ODBC;Driver=SQL Server;UID='+userid+';PWD='+password+';Server='+datasource+';DataBase='+catalog+']'