怎样把一个文本文件倒入SQL Server数据库的表中,马上结帖

Question

文本文件结构(my.txt)如下,每个项之间用,号隔开
abcdf,dfge,123,wer
fgh,mmn,13,dfg
sdfg,sd,455,wwww
数据库中字段值对应上面,号分隔的数据
sname(char)  s_address(varchar) sage(int)  sunit(char)
abcdf          dfge              123        wer
fgh            mmn               13         dfg
sdfg           sd                455       wwww

Answer 1

用SQL的BULK INSERT命令操作：
我在网上下载的一个文本，将它导入数据库，很快的；我把我写的存储过程给你作个参考：CREATE PROCEDURE Proc_TxtToTable
@dataPath varchar(1000)='D:\test.txt'AS
declare @ws_sql varchar(1000)
set @ws_sql='BULK INSERT tStock_table FROM '''+rTrim(@dataPath)+''''
set @WS_sql=@ws_sql+' WITH (DATAFILETYPE = '''+'char'+''', FIELDTERMINATOR = '''+','+''')'
exec(@ws_sql)
if @@error<>0
select Msg='数据导入出错!'
else 
select Msg='数据导入成功!'

Answer 2

转载：
用Delphi实现将纯文本资料转入数据库
p>　　在我们日常工作中,常会碰到这样一个难题：一大堆收集好的纯文本格式,比较规整的资料怎样才能将它们分离,转到自己已经建好的数据库中进行管理呢？
　　例如,有一段人事档案资料archive.txt,内容如下： 
小许 男 21 工程师 
小吴 女 23 助理工程师 
小蔡 男 22 助理工程师 
小牟 女 22 工程师 
　　要将它转入数据库archive.dbf中,archive.dbf结构如下：
　　姓名,性别,年龄,职称
　　怎么办呢？现在通过使用delphi编程,很好地解决了这个难题。Delphi提供了许多功能强大,丰富的字符处理函数和过程,常用的有：
　　(1)function Length(S：String)：Integer返回串的长度
　　(2)function Copy(S：String;Index,Count：Integer)：String 给出一个字符串中串的拷贝
　　(3)function Pos(Substr：String;S：String);Integer 查找子串在字符串中的位置
　　(4)Procedure Delete(VarS：String;Index,Count：Integer);从一个字符串中去除子串
　　利用Delphi提供的已有函数和过程基础上编制自己的三个函数,实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。
　　archive.txt中每行数据为一个字符串,字符串中每个被分割的数据为一个字段,分割每个字段的字符为分割符,这里是空格,也可以是,、;、＃等符号。具体思想是：先将字符串进行调整,然后把串中每个字符同分割符比较,将不是分割符的字符追加到MyStr串中,最后得到一个字段的内容。通过一个循环,就可以将一个字符串分成几个字段。
　　Function Regulate(aString,Sepchar：string)：string 去掉多余的分割符,规范字符串
　　Function GetSubStr(varsSt g：string;SepChar：String)：String;得到字符串中一个子串,因要改变参数aString的值,所以将它用var定义。
　　FunctionGetSubStrNum(aString,SepChar：String)：Integer;计算一个字符串要被分割成几个字段。
　　参数：aString是所需分割的一个字符串,SepChar是分割符。　　Function RegulateStr(aString：String;Sepchar：String)：String; 
　　var
　　i,Num：Integer;
　　Flag：Boolean;
　　MyStr,TempStr：String;
　　begin
　　Flag:=False;进行标志,去除多余的分割符
　　Num:=Length(aString); 计算aString串的长度
　　for i:=1 to Num do
　　begin
　　TempStr:=Copy(aString,i,1);取aString串中的一字符
　　if TempStr SepChar then
　　begin
　　MyStr:=MyStr+TempStr;
　　Flag:=True;
　　end
　　else
　　if(Flag = True)then
　　begin
　　Mystr:=Mystr+TempSrt;
　　Flag:=False;
　　end;
　　end;
　　if MyStr[Length(MyStr)] SepChar then
　　MyStr:=MyStr+SepChar;
　　RegulateSrt:=MyStr;
　　end;　　Function GetSubStr(var aString：String,SepChar：Strign)：String;
　　var
　　Mysrt：String;
　　StrLen：Integer;
　　SepCharPso：Integer;
　　begin
　　StrLen:=Length(aString);
　　SepCharPos:=Pos(SepChar,aString);计算分割符在子串中的位置
　　MyStr:=Copy(aString,1,SepCharPos－1); 将分割符前所有字符放到mystr串中
　　Delete(aString,1,SepCharPos);除去分割符和分割符前的子串
　　GetSubStr:=MyStr;返回一个字段
　　end;　　FunctionTforml.GetSubStrNum(aString：String;SepChar：String)：Integer;
　　var
　　i：Integer;
　　StrLen：Integer;
　Num：Integer;
　　begin
　　StrLen:=Length(aString);
　　Num:=0;
　　for i:=1 to StrLen do
　　if Copy(aString,i,1) = SepCharthen
　　Num:=Num+1;
　　GetSubSrtNum:=Num;
　　end;　　有了上面三个函数,现在介绍一下具体的应用：
　　1.首先建立一个窗体Forml,加入一个RichEditl(或Menol),一个按钮Buttonl和一个Tablel,设置Tablel的属性：
　　Tablell.DataBase = c:\Archivs
　　Tablell.TableName =Archive.dbf　　2.分别加入以下程序：
　　Const Space= 
　　ProcedureTForml.FormCreate(Sender：Tobject);
　　begin
　　RichRditl.Lines.LoadFromFile(Archive.txt);
　　end;　　ProcedureTForml.Button1Click(Sender：Tobject);
　　var
　　i,j：Integer;
　MyLine：String;
　　begin
　　with Tablel do
　　begin
　 　Open;
　for i:=0 to RichEditl.Lines.Count－1 do
　begin
　　MyLine:=RegulateStr(Richeditl.Lines[i],Space);
　　for j:=1 to Num do 
　　begin
　　Append;
　　fileds[j－1].aString:=GetSubSrt(MyLine,Space));
　　post;
　　end;
　　end;
　　end;
　　end;

Answer 3

再转个代码
希望对你有帮助
不合适的地方自己修改一下Function txtToSQLServer(txtfilename: string): boolean;
var
adoCon : TADOConnection;
adoQuery : TADOQuery;
txtSourceFile : TextFile;
begin
result := False;
if Not FileExists(txtfilename) then exit;
try
assignfile(txtSourceFile,txtfilename);
Reset(txtSourceFile);
if Eof(txtSourceFile) then exit;
adoCon := TADOConnection.Create;
adoQuery := TADOQuery.Create(nil);
try
With adoCon do
begin
     ConnectionString := 'DRIVER={SQL SERVER};SERVER=ERPSERVER;UID=sa;PWD=;Database=TEST';
     Connected := True;
end;
With adoQuery do
begin
     Connection := adoCon;
end;
except
      on E:Exception do
           showmessage(E.Message);
end;
while not eof(txtSourceFile) do
begin
       With adoQuery do
       begin
             sql.clear;
             sql.add('insert into t1(kqno) values (' + quotedstr(readln(txtSourceFile) + ')');
             ExecSQL;
       end;
end;
result := true;
finally
       adoCon.close;
       adoQuery.free;
       adoCon.free;
end;
end;
调用：
procedure tform1.button1click(sender:Tobject);
beign
        if txtToSQLServer('test.txt') then
              showmessage('导入成功')
        else
              showmessage('导入失败');
end;临时根据你的意思写的，如果有错误的话，请见谅，不过方法是对的

Answer 4

functiom replacestr(str,flagstr,substr:string):STRING ; 实现把AAA,BBB,...变成'AAA','BBB',....
过程里面ASSIGNFILE(SFILE,'.../A.TXT');
RTSET(SFILE);
repeat
  READLN(SFILE,S);
  QUERY.SQL.CLEAR;
  QUERY.SQL.ADD('INSERT INTO A VALUES(REPLACESTR(S,',',#39+','+#39))');
  dbconn.starttrans;
  try
    query.execsql;
    commit;
  except
    rollback;
    showmessage('error! '+s);
  end;
until eof(sfile);
closefile(sfile);