[转帖]从文本文件中读取信息并存储入数据库

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
0 Z; ]. V# t2 B8 s0 Q0 J2 \3 H'' version 1.0
''===================================================================
! i0 A! x4 Y5 `7 W* W6 N% I* R<%  
& s  q& }0 Y: C+ q9 f# }2 {* t

2 f6 e: F' o# W3 i* d+ }' M, c<>dim fso,f1
Const ForReading = 1</P>
% j( R: M. M9 a% d<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
: y% I# n( N/ Z% E) B5 d''打开要读取的文件
dim conn,rst</P>
7 {1 Z  ]. |. q7 n6 [. Y<>set conn=server.createobject("adodb.connection")
8 g7 R) Y' ~3 N8 d''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
4 X% j9 C2 @% b: D# w  g, E<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
( U9 W! e) q/ B/ B<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
& ^* j* y- _( F$ t7 ifread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
3 C* D6 r3 g' E5 H<>f1.close
' m$ p. c6 [2 V! F  ^5 jconn.close
8 t% ]2 @  _- N; E$ p  @''''all over
%&gt;
+ z, f' {! F8 E: q" L+ a</P>