00001010203040506000010550
00002010203040506000010550
00003010212020833000020000
00004010212021159000020000
00005010212021302000020000
00006010212021732000020000 要实现将每条记录分为几块插入表中.
如:
00006 01 021202 1732 00002 0000
00002010203040506000010550
00003010212020833000020000
00004010212021159000020000
00005010212021302000020000
00006010212021732000020000 要实现将每条记录分为几块插入表中.
如:
00006 01 021202 1732 00002 0000
解决方案 »
- 在implementation中找不到DBlookupcomboboxclick方法?是什么原因呢
- 开源跨平台的pascal工具:lazarus(fpc)
- 见了鬼了!时间控件不听使唤了。。。
- MS Office 不停升级,但不向后兼容,我的程序OLE MS,是否需要为每个版本的 Ms Office重新编译呢?
- 实现多步Undo/Redo操作有什么思路?
- c到pascal的语法对应
- delphi 7 ,delphi2010 那个不错
- 紧急求助,编程如何快速把SQL6.5表转入Access97,谢谢
- 关于焦点的问题?
- 映射网络驱动器!
- 我加入MSFLXGRD.OCX这样一个ActiveX控件!为什么用不了,它一老提示没有认证信息,不能使用设计模式!这是为什么?
- 请赐教!
如何取的TXT中的数据?有命令吗?
BCP虽然可以,但BCP是外部命令不能用到存储过程中.
然后调用BCP啊,我这两天就在做这事.
事实上没有必要用到存储过程.
var
ss,tem,filename:string;
oldf,newf:tstrings
begin
old.
begin
oldf:=Tstringlist.Create;
newf:=tstringlist.Create;
oldf.LoadFromFile('c:\test.txt');
for i:=0 to oldf.Count-1 do
begin
ss:=oldf.Strings[i];
//这里添加你要处理的语句
TEM:=ss;
newf.Add(tem);
end;
filename:='c:\test1.txt';
newf.SaveToFile('filename');
ss:='c:\sybase\bin\bcp ivsp.dbo.T_MS_7 in '+filename+' -Udata -Ptry -Sdbadba -c -t#';
form1.Caption:=ss;
winexec(pchar(ss),1);
end;end.
var
ss,tem,filename:string;
oldf,newf:tstrings
i:integer;
begin
oldf:=Tstringlist.Create;
newf:=tstringlist.Create;
oldf.LoadFromFile('c:\test.txt');
for i:=0 to oldf.Count-1 do
begin
ss:=oldf.Strings[i];
//这里添加你要处理的语句
TEM:=ss;
newf.Add(tem);
end;
filename:='c:\test1.txt';
newf.SaveToFile('filename');
ss:='c:\sybase\bin\bcp ivsp.dbo.T_MS_7 in '+filename+' -Udata -Ptry -Sdbadba -c -t#';
form1.Caption:=ss;
winexec(pchar(ss),1);
end;end.