用delphi写了段导入txt文件到数据库的程序,文本文件中的数据以三种方式分隔:, ; 空格,但现在我在程序里面不管如何设置,程序只能识别"," 这是怎么回事,请高手帮忙,急得很,在现等! cntstr := 'Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source='+ FFileName + ';Mode=ReadWrite;Extended Properties="text';
if fopstate<>opCreate then
begin
if FIsHead then
cntstr := cntstr + ';HDR=YES'
else
cntstr := cntstr + ';HDR=NO';
end;
//cntstr := cntstr + ';FMT=CSVDelimited"';
//cntstr := cntstr + ';FMT=tabdelimitedcsv"';
cntstr := cntstr + ';FMT=Delimited(;)"'; //这个地方应该是应变量的,但我换成;也没作用,还是没分出来
FADOConn.Connected := false;
FADOConn.ConnectionString := cntstr;
try
FADOConn.Connected := true;
FADOConn.GetTableNames(FTables);
Except
On e: Exception do
begin
addErrorMsg('不能打开Text文件,原因:'+e.Message); //
raise Exception.Create('不能打开Text文件,当前文件已经损坏或权限不够');
end;
end;
if fopstate<>opCreate then
begin
if FIsHead then
cntstr := cntstr + ';HDR=YES'
else
cntstr := cntstr + ';HDR=NO';
end;
//cntstr := cntstr + ';FMT=CSVDelimited"';
//cntstr := cntstr + ';FMT=tabdelimitedcsv"';
cntstr := cntstr + ';FMT=Delimited(;)"'; //这个地方应该是应变量的,但我换成;也没作用,还是没分出来
FADOConn.Connected := false;
FADOConn.ConnectionString := cntstr;
try
FADOConn.Connected := true;
FADOConn.GetTableNames(FTables);
Except
On e: Exception do
begin
addErrorMsg('不能打开Text文件,原因:'+e.Message); //
raise Exception.Create('不能打开Text文件,当前文件已经损坏或权限不够');
end;
end;
解决方案 »
- 我见人的软件有,也上CSDN问过,但是还是没有答案。
- 欢迎D区来了个强人--牧野同志.特此散分迎接...
- 请问delphi里面调用外面的一个可执行文件的函数是什么?
- 急急急……WebBrower中始化IE控件,在XP集成SP2系统下出错?有谁遇到过?
- 一个关于dbedit的问题
- 一个关于在dbgrid里放置combobox控件的问题~
- 请问我在中间层的接口方法中怎么定义我自定义的数据类型???
- 需要实现网络文件的传输!用下列方法难以实现,请高手帮忙!给分的!在线等候!
- 用Delphi动态连接SQL库
- 求助高手!(我用ADO与SQL做了个数据库!有的机器运行时就不能联上SQL,有的好用,我已经把MDAC打包进去!)
- Delphi 时间的计算?如何实现随意加上一段时间呢?
- 经纬度转化
EXEC master..xp_cmdshell 'bcp dbname..tablename in c:\文本.txt -c -Sservername -Usa -Ppassword'
我现在就是在取列名的时候,取出来就不正确比如:我以;来分隔,但取出来后的结果是:姓名;年龄;出生日期 根本分不开!用,又是行的!
郁闷
====请参看MS SITE文章
ms-help://MS.MSDNQTR.v80.chs/MS.MSDN.v80/MS.WIN32COM.v10.en/odbc/htm/odbcjetschema_ini_file.htm
====
分享快乐 :www.delphichm.com