TA的每日心情 | 奋斗 2024-7-1 22:21 |
|---|
签到天数: 2014 天 [LV.Master]伴坛终老
- 自我介绍
- 数学中国站长
 群组: 数学建模培训课堂1 群组: 数学中国美赛辅助报名 群组: Matlab讨论组 群组: 2013认证赛A题讨论群组 群组: 2013认证赛C题讨论群组 |
''===================================================================$ [6 l4 a4 y9 \% M* a9 \
''从文本文件中读取信息,取其中的一部分,并且将其插入到数据库中去……/ n3 N9 D- V* F0 r- W
'' xhony@163.com
0 Z; ]. V# t2 B8 s0 Q0 J2 \3 H'' version 1.02 f* B: }+ s2 {* `, q6 s" E
''===================================================================
! i0 A! x4 Y5 `7 W* W6 N% I* R<%
& s q& }0 Y: C+ q9 f# }2 {* t1 U9 b1 K- S+ ?- I2 a1 t) Y
2 f6 e: F' o# W3 i* d+ }' M, c< >dim fso,f1) E; c( A) ^+ B' A1 ^
Const ForReading = 1</P>
% j( R: M. M9 a% d< >set fso=createobject("Scripting.FileSystemObject")0 o$ G2 d) x( r1 W ]; F' a
''使用fso对象读取信息。- x7 t, }, g, y+ } K$ @2 A S' b
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
: y% I# n( N/ Z% E) B5 d''打开要读取的文件) o$ [, Q% y8 p( ?- I3 W
dim conn,rst</P>
7 {1 Z ]. |. q7 n6 [. Y< >set conn=server.createobject("adodb.connection")
8 g7 R) Y' ~3 N8 d''建立数据库连接,执行操作& Q+ A* t! C" A9 G8 f Q7 f s. l
set rst=server.createobject("adodb.recordset")</P>
4 X% j9 C2 @% b: D# w g, E< >conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")</P>9 O; `; D* ~ Q3 H
< >rst.activeconnection=conn</P>
( U9 W! e) q/ B/ B< >dim fread</P>" C8 ~$ @& l/ E# }6 ~4 R! b
< >do while not f1.atEndOfStream M" ~( v' T" f- U' z( b
''用do... loop循环体插入数据
& ^* j* y- _( F$ t7 ifread=f1.readline</P>+ u8 S3 S+ }$ a! }8 g" Z9 J1 |
< >line=split(fread,":::")</P>" i9 B" J, r+ X3 e* D
< >rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"9 E& r* F4 g6 t2 P
rst.open1 i5 M4 A! t6 P+ K
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% l! Q {" N! I$ [2 b3 j5 s- s1 d
%>
+ z, f' {! F8 E: q" L+ a</P> |
zan
|