数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]
作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================' p- F- w+ q4 W/ W
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……" Z5 ~; a2 q% S9 p
'' xhony@163.com, Q5 ^: U$ [9 A& Q2 B' J8 Y+ w
'' version 1.0
; Z- C3 I) x7 d$ N: ~) f3 r) \+ o''===================================================================" K* T7 ?3 U7 e" k+ F; c7 x" u9 w
<%  
+ @- ~' V8 x7 l3 d& }* A. C4 n$ }# N. o5 ^
  @& R: A% N' p
<>dim fso,f1
1 N( k2 }2 @/ _, ]$ k* G. B8 a3 RConst ForReading = 1</P>
1 Q" |7 Y0 z9 ?: P<>set fso=createobject("Scripting.FileSystemObject")& E* K9 y% z. y+ r" y
''使用fso对象读取信息。
, ]5 [4 [: V# r2 x/ r5 S4 S& _set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)# j! U- |5 R: s( j. V3 G* v) I) i) b
''打开要读取的文件+ q+ l3 l/ l. K
dim conn,rst</P>% J9 g' ~+ ^) B" Y0 L+ u
<>set conn=server.createobject("adodb.connection")! T  w1 T, d% j' ]* |1 }
''建立数据库连接，执行操作! p8 u' g+ ~. t8 m5 q  s4 L& X
set rst=server.createobject("adodb.recordset")</P>, L- Z0 a: x9 p$ O  @5 F
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
" t8 }( }+ r5 w; E& A+ m8 a<>rst.activeconnection=conn</P>( {1 @7 {2 }1 X" S" ]3 h
<>dim fread</P>* ]7 d5 V1 T4 {; b2 H
<>do while not f1.atEndOfStream + a9 o: `" ]% j" z4 F
''用do... loop循环体插入数据/ s7 M/ O" P9 v+ k" ~
fread=f1.readline</P># `( E9 i: w# n( n& u& W
<>line=split(fread,":::")</P>
" Y* `8 c& M; J0 S$ {' X<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"; z7 w2 _# ]" T/ u% g/ o0 L" r9 O
rst.open6 ?' l1 U; r/ r6 z* B# V  w8 c
loop</P>
1 G9 p1 @1 Y: h9 s% N<>f1.close3 e  O" ]$ P4 i& H: }
conn.close7 l8 F# u! j' V( v) ~' R# u# |, d+ D
''''all over
( M. Y9 w0 m2 b1 E( Q! i1 \9 s%&gt;" E) |1 Z8 u( j: E+ R& J
</P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5