急!!!如何将sqlserver里的某个表里的数据转换成*.txt啊?

解决方案 »

  1.   

    使用企业管理器中的导出功能
    或自己些代码生成txt文件
      

  2.   

    我要将某些更新过的数据生成*.txt?
      

  3.   

    1.使用企业管理器中的导出功能或自己些代码生成txt文件
    2.用PB可以轻松实现
      

  4.   

    Var
    i,J:integer;
    K:Extended;
    tempstring:string;
    stringlist:tstringlist;
    begin
    Query1.Close;
    Query1.Sql.Clear;
    TempString:='';
    Query1.SQL.Text:=('Select Cxs From Dwif Where ');
    Query1.Sql.Add(' Cxs = '''+TempString+'''');
    Query1.Open;
    If Query1.IsEmpty Then
      Begin
        For I:=0 To ListBox1.Items.Count-1 Do
          Begin
            Try
              Query2.SQL.Clear;
              Query2.Sql.Text:=('Select Cxs.Dm,CxsMc,Dwif.Dm,姓名,Yh.单位名称,身份证,银行账号,Sfx From Cxs Left Join Dwif On Cxs.Dm = Dwif.Cxs Left Join Yh On Dwif.Dm = Yh.单位编码 Where ');
              Query2.Sql.Add(' Cxs.Dm = '''+Copy(ListBox1.Items.Strings[I],1,6)+'''');
              Query2.Sql.Add(' Order By Dwif.Dm');   //,银行账号
              Query2.Open;
              If Not Query2.IsEmpty Then
                Begin
                  stringlist:=tstringlist.create;
                  tempstring:='';
                  While Not Query2.Eof Do
                    Begin
                      TempString:=Query2['CxsMc']+',';
                      tempstring:=TempString+Query2['姓名']+',';
                      tempstring:=tempstring+Query2['单位名称']+',';
                      TempString:=TempString+Query2['身份证']+',';
                      TempString:=TempString+Query2['银行账号']+',';
                      TempString:=TempString+FormatFloat('0.00',Query2['Sfx']);
                      stringlist.Add(tempstring);
                      Query2.Next;
                    End;
                  stringlist.savetofile('C:\'+Copy(ListBox1.Items.Strings[I],10,26)+'.txt');
                  stringlist.Clear;
                  tempstring:='';
                End;
              except
                Begin
                  application.messagebox('系统出现异常,可能是由于单位表中有空单位引发,请检查!','系统出错提示!',mb_ok);
                  Exit;
                End;
              End;
          End;
          application.messagebox('生成储蓄所数据完成,请再次校对数据,谢谢使用!','系统提示!',mb_ok);
      End
    Else application.messagebox('有单位代理储蓄所为空,请检查','系统提示',mb_ok);
    End;