盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
begin
  DbgridToTxt(dbgrid1);
end;

procedure Tform1.DbgridToTxt(source:Tobject);
var
  filename:Textfile;
  Dataset:Tdataset;
  titlestr,valuestr,tempstr:string;
  counter:integer;
begin
  if (source is Tdbgrid)then
    Dataset:=Tdbgrid(source).DataSource.DataSet
    else
      Dataset:=TDataset(source);
  if ((Dataset.IsEmpty)or(not Dataset.Active))then
    exit else
    begin
      Dataset.DisableControls;
      Dataset.First;
      if savedialog1.Execute then
        begin
          assignfile(filename,savedialog1.FileName);
          rewrite(filename);
          for counter:=0 to Dataset.FieldCount-1 do
          titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
          titlestr:=trim(titlestr);
          writeln(filename,titlestr);
          while not Dataset.Eof do
            begin
              valuestr:=';
              for counter:=0 to Dataset.FieldCount-1 do
              begin
                tempstr:=Dataset.Fields[counter].Text;
                valuestr:=valuestr+char(9)+tempstr;
              end;
              valuestr:=trim(valuestr);
              writeln(filename,valuestr);
              Dataset.Next;
            end;
              closefile(filename);
          end;
              Dataset.EnableControls;
    end;
end;
----------------------------------------------
-

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/6/14 11:15:45

1楼：

转移到精华区：~）
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

xxx (肆无忌惮的虫)	★☆☆☆☆	-
	普通会员

2003/6/15 16:45:28

2楼：

不知道可不可以给出与源程序?
----------------------------------------------
我~
肆无忌惮~

作者：

helei (helei)	★☆☆☆☆	-
	盒子活跃会员

2003/8/15 1:58:44

3楼：

那怎么把TXT文件导入到数据呢
----------------------------------------------
-

作者：

yangliu_seu (kandy)	★☆☆☆☆	-
	普通会员

2003/9/15 11:50:00

4楼：

好!
----------------------------------------------
-

作者：

liugang (爱你一万年)	★☆☆☆☆	-
	盒子活跃会员

2003/11/7 16:26:51

5楼：

不知道可不可以给出与源程序?
1 楼的代码很详细！

----------------------------------------------
dfsajkl;

作者：

zqsoft ( )	★☆☆☆☆	-
	普通会员

2003/12/9 11:00:31

6楼：

我想要把TXT导入到数据库,应该怎么导,先谢谢了!!
----------------------------------------------
-

作者：

hrxstar (hrxstar)	★☆☆☆☆	-
	盒子活跃会员

2003/12/18 13:28:10

7楼：

我也想学TXT->DB
----------------------------------------------
-

作者：

maimaizhi (muting)	★☆☆☆☆	-
	普通会员

2003/12/18 19:20:40

8楼：

那里有Txt->Db，我也要。
----------------------------------------------
-

作者：

szhjinf (当当)	★☆☆☆☆	-
	普通会员

2003/12/22 18:03:45

9楼：

TxttoAccess:

ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Contact.mdb;Persist Security Info=False';

ADOConnection1.Connected:=True;
ADOConnection1.Execute('select * into TxtToAccess from [Text;database='+sPath+'].'+sName);

TxttoSql:

ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=seaflyingchf';

ADOConnection1.Connected:=True;

sSql:='select * from OpenRowset(''+'MSDASQL''+',''+'Driver={Microsoft Text Driver (*.txt; *.csv)}; DefaultDir='+sPath+';''+',''+'select * from '+sName+''+')';

ADOConnection1.Execute(sSql);

注意:导入前,要进行数据表检查(检查程序我不知道,如果哪个知道,拿来共享)
----------------------------------------------
-

作者：

randy99 (randy99)	★☆☆☆☆	-
	普通会员

2008/12/10 13:18:11

10楼：

如果有几百万条数据导出到TXT,这样太慢.有什么好方法?

TXT导入到DB中
szhjinf (当当)的方法需要用到Schema.ini来控制字段.

MSSQL最好的方法是调用DTS包来导入导出
----------------------------------------------
-

作者：

xuzhixiang (劲风)	★☆☆☆☆	-
	普通会员

2008/12/24 12:26:32

11楼：

用DBGRIDEH自带的方法,,很有效率!
----------------------------------------------
-

作者：

seowhy123456 (seowhy123456)	▲▲▲▲▲	-
	禁用账号