数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]

---

作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================
  Q7 q: ]+ T, j3 N8 N- f# J0 d' Y3 N''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
" E: L: [$ K" ]'' xhony@163.com
0 Y1 u8 a9 D7 i& ]& B: R'' version 1.0
% D; j* ~+ s! [5 ?/ t''===================================================================
/ M" G/ u" ]7 U2 [<%  
  z% E# o5 n- ]4 E
; p5 a& n4 l) C! N( n
<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
. q* R( [  D, @2 K4 Q, q''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
: o. z3 ]9 P8 q/ m% j''打开要读取的文件
- ?; M5 [. j; k, Jdim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
9 ^" X! l8 |% X8 L; L) O''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
3 {9 M# T- K9 Y$ a<>rst.activeconnection=conn</P>
3 {- Z. D: Z$ M- \$ Q) `) c<>dim fread</P>
7 L  W! C; |0 P; {% d, P<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
# M3 V, {/ _7 X  @1 k+ ~<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
' Y0 ~4 W2 z2 ], B, a4 q8 grst.open
loop</P>
<>f1.close
- s: N% i5 @, O' [/ A7 }conn.close
! {& p* w/ m) g4 o& T''''all over
4 X& t5 _9 j2 |! P$ D0 \%&gt;
</P>

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5