如何将文本数据转换成数据库文件？急，，急，，

Question

我有很多数据是放在记事本中，数据还是有一定的规律，比如用tab键隔开现在想把这些数据导入一个数据库中的一个表格内，请问如何实现？急，，，，

Answer 1

Access 新建立一空数据库或者打开一存在数据库
文件\获取外部数据\导入 接着打开文本，注意选好数据类型SQLserver2000 
使用DTS
在具体数据库的表单击右键，选择到如数据库，根据向导一步一步做即可，细心点，选好数据源

Answer 2

用excel 打开盖文本文件,然后另存为数据库文件.
foxpro中,好像可以用如下命令:

Answer 3

Access 新建立一空数据库或者打开一存在数据库
文件\获取外部数据\导入 接着打开文本，注意选好数据类型用这种方法是最简单的.如果是想在程序中导入,可能需要用TXT的驱动,文本文件作为源数据库,导入目标库.

Answer 4

如楼上的建议, 请先用现成的工具, 如excel, access等打开你的文件, 因为数据库对数据类型很严谨, 虽然你见到无问题, 但问题如'空格'和'tab'是不同的字符, 会引致导入失败.
当你可以用人手把问题列改好, 便能直接导入数据表了.
请说明是那个数据库?如是sql server, 你又懂sql的话, 自然可以把本文转为sql statement,然後执行该statement输入.

Answer 5

cuilj(往上爬) 你可不可以说的再具体些,Delphi6中有TXT的驱动吗?具体是那一个控件,谢谢回复!

Answer 6

cuilj(往上爬) 请具体说一下，谢谢！

Answer 7

我的已经解决了,代码如下,希望能给各位启示!!!
由于具体情况不同,我只把主要的代码写了下来,在TXT档中,是以TAB来分断,但考虑到有可能有空,所以加了个TRIM.
各位有什么不懂的请联系,大家一同进步!s2:='insert into compal.ck_dn_control_t values(';
      s4:='';
      n:=0;
      for i:=1 to length(ws) do
       begin
        s3:=ws[i];
        if s3=#9 then
         begin
          s2:=s2+ansiquotedstr(trim(s4),'''')+',';
          char[n]:=trim(s4);
          n:=n+1;
          s4:='';
         end
        else
         s4:=s4+s3;
       end;
      s2:=s2+trim(ansiquotedstr(trim(s4),''''))+')';      query1.Close;
        query1.SQL.Clear;
        query1.SQL.Text:=s2;
        caption:=s2;
        query1.ExecSQL;