急!!!如何将sqlserver里的某个表里的数据转换成*.txt啊?
解决方案 »
- 数据库访问型软件的加密(USB加密狗)
- 客户机能Ping通服务器,但是客户机的网上邻居打不开服务器。客户机用SqlServer能连接服务器...
- 请高手解决棘手老问题 《tif文件合并和分割问题》在线等待。。。急急急(分不够可再开贴加)
- 如何释放指针!
- 如何点击“关闭”按钮时最小化到托盘区?
- 在不同的网内如何通讯?????
- 一个关于字符串的问题!
- 如何指定tquery中的某一行?
- ADOTable与ADOquery同步更新问题??
- 请问DELPHI深入研究者:DELPHI自动生成的代码里有一个uses用来包含系统的文件,那么...
- 极简单。送分题。fastreport的问题,纸张大小……
- 如何将窗体分离开(我编译后的文件太大了,有5M,想减小)
或自己些代码生成txt文件
2.用PB可以轻松实现
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;