CSV文件的生成

本文介绍了一种使用Delphi和ADO技术从数据库中导出数据到CSV文件的方法。通过简单的代码示例,展示了如何利用SQL查询指定列并将其转换为逗号分隔的文本格式。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

大部分项目都会遇到生成标准文本数据文件,即逗号分隔文件(csv),今使用已做过的项目中的代码(delphi)抛砖引玉!

此代码,提供ADO层面的数据控制,结合SQL语句完成CSV列的控制。

unit UGeneralADO; interface uses SysUtils, Classes, ADODB; var saveFilePath:WideString; function generalCSV(ADOconnectString,ColName,TableName1,ExprotFileName1:WideString;ColCount:integer):Boolean; implementation function generalCSV(ADOconnectString,ColName,TableName1,ExprotFileName1:WideString;ColCount:integer):Boolean; var ADOConnectX:TADOConnection; ADOQueryX:TADOQuery; TempStr:WideString; iFor: integer; TempList:TStringList; begin ADOConnectX:=TADOConnection.Create(nil); ADOQueryX:=TADOQuery.Create(nil); ADOConnectX.LoginPrompt:=False; ADOConnectX.Close; ADOConnectX.ConnectionString:=ADOconnectString; ADOConnectX.Open; ADOQueryX.Connection:=ADOConnectX; ADOQueryX.Close; ADOQueryX.SQL.Text:='select '+ColName+' from '+TableName1; ADOQueryX.Open; TempStr := ''; TempList := TStringList.Create; ADOQueryX.First; while not ADOQueryX.Eof do begin TempStr := ''; for iFor := 0 to ColCount-1 do//colcount列 begin if iFor=0 then begin TempStr := TempStr + ADOQueryX.Fields[iFor].AsString; end else begin TempStr := TempStr +','+ ADOQueryX.Fields[iFor].AsString; end; end; TempList.Append(TempStr); ADOQueryX.Next; end; saveFilePath:=ExprotFileName1; TempList.SaveToFile(saveFilePath); //free object FreeAndNil(TempList); FreeAndNil(ADOConnectX); FreeAndNil(ADOQueryX); Result:=True; end; end.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值