文件名为1.txt,里面的内容用','分隔开,怎样用程序实现将此文本的内容导入SQL SERVER(表名为ct,已经建好相应字段)
能否给详细一点的程序代码?我才刚刚开始学delphi
附:文本的部分内容(每一行存为一条记录)
430,14447,31147,法国,, ,H,O,13,A,C06,V,A,,1
143618,544,296544,同仁堂,D, ,D,O,07,A,C06,V,A,,1
4174077,g636,686876,地方,D, ,D,C,02,A,B02,D,A,,1
6632,dtcl,5355,不,,U120033049,A,D,16,A,105,C,A,,1
14841,gcelin,387,速度,A,K220751019,A,A,11,A,101,U,A,,1
46702,uudng,9,若,A,A104196302,A,D,12,A,101,C,A,,1
15,96505,813,文化,F,45722870,A,A,32,A,101,C,A,,1
497,00315,7770,第三,A,E551546(0),A,M,12,B,101,U,A,,1
40207,d7160,54160,离开,,D120818155,A,D,16,A,101,C,A,,1
能否给详细一点的程序代码?我才刚刚开始学delphi
附:文本的部分内容(每一行存为一条记录)
430,14447,31147,法国,, ,H,O,13,A,C06,V,A,,1
143618,544,296544,同仁堂,D, ,D,O,07,A,C06,V,A,,1
4174077,g636,686876,地方,D, ,D,C,02,A,B02,D,A,,1
6632,dtcl,5355,不,,U120033049,A,D,16,A,105,C,A,,1
14841,gcelin,387,速度,A,K220751019,A,A,11,A,101,U,A,,1
46702,uudng,9,若,A,A104196302,A,D,12,A,101,C,A,,1
15,96505,813,文化,F,45722870,A,A,32,A,101,C,A,,1
497,00315,7770,第三,A,E551546(0),A,M,12,B,101,U,A,,1
40207,d7160,54160,离开,,D120818155,A,D,16,A,101,C,A,,1
解决方案 »
- CXgrid明细嵌套问题
- 使用TreeView的LoadFromFile速度慢的问题
- 求一个好用的控件!!!!
- 这个SQL怎么写?
- 紧急在线求助!!!重新安装SQL Server后 程序出现严重问题!!!如果我说得不清楚 请与我QQ联系~~~~~~~ 谢谢!!!
- Query+SQL 问题
- 对一个文件(任何类型的文件)用MD5算法加密,加密前是否要对文件做一些预处理?
- delphi7连接MYSQL5的问题??????
- delphi的兄第快来帮忙。小弟在线等待。感谢!!!
- delphi 界面有操作的时候数据传输错误!
- 谁能告诉我怎样把系统时间的值赋给一个记录的字段(在线等)
- 如何调用Dll中用地址传递的参数?
EXEC master..xp_cmdshell 'bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword'/** 导出文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" out c:\DT.txt -c -Sservername -Usa -Ppassword'
或
EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword'导出到TXT文本,用逗号分开
exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password'
建议参考C++版的一贴:
http://community.csdn.net/Expert/topic/4098/4098581.xml?temp=.5737268
回四楼的,其实文本格式中的内容虽然乱,但却有共同点的:都是15个字段,在表中用可以为空的VARCHAR存储。还有,我就是要通过Delphi做的程序来导入,不是通过SQL SEVER的查询分析器什么
的
然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.insert into
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Text;HDR=Yes;DATABASE=C:\'
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
from
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls'
--,Sheet1$)
)...[Sheet1$]