TA的每日心情 | 奋斗 2024-7-1 22:21 |
|---|
签到天数: 2014 天 [LV.Master]伴坛终老
- 自我介绍
- 数学中国站长
 群组: 数学建模培训课堂1 群组: 数学中国美赛辅助报名 群组: Matlab讨论组 群组: 2013认证赛A题讨论群组 群组: 2013认证赛C题讨论群组 |
''===================================================================- [% ?: C' y& A. [. \
''从文本文件中读取信息,取其中的一部分,并且将其插入到数据库中去……! Q* p) f: U9 b! d4 P
'' xhony@163.com m0 y7 w* T- s# N! k
'' version 1.0
) k! I1 K0 R5 k: o, @''===================================================================
* s. f, }. G ~1 H ` L* r0 X<%
' G6 J& {+ l! \" r# }, b, B4 i
. l3 ]: p& ^& W* }6 p# \/ `* q2 |4 M0 D7 c
< >dim fso,f1
9 H" o- D$ f1 i2 n. c, f6 eConst ForReading = 1</P>
5 b$ h* o1 x/ A2 L" G" c< >set fso=createobject("Scripting.FileSystemObject")) [5 Z0 \3 ?. j Z/ D$ ~
''使用fso对象读取信息。
) C1 i/ M$ \8 A; {- C' `; aset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
, {, j/ o* ~1 E- Q$ G''打开要读取的文件
! U' Q, `: |. Y. ^5 H7 O# gdim conn,rst</P>0 i2 W" b: z, z
< >set conn=server.createobject("adodb.connection")2 V8 U( l7 Y( ~ I5 \; \" M
''建立数据库连接,执行操作9 A @$ P- T4 A7 Z
set rst=server.createobject("adodb.recordset")</P>& U! ^8 T- z Q- n, h
< >conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db1.mdb")</P>, C+ L! \& f. g( }' _# B* J2 ^
< >rst.activeconnection=conn</P>2 ^9 X1 m' B1 k/ l# E9 _) L
< >dim fread</P>
9 D+ K( s8 K" a5 j- ~< >do while not f1.atEndOfStream
) Y5 h, }! o& o. x''用do... loop循环体插入数据
& ~6 l9 g# J; |" l3 Xfread=f1.readline</P>7 y3 y, t0 q, S$ B5 i! x# [5 P
< >line=split(fread,":::")</P>" i' h$ |6 r* w0 B0 {2 Y7 Z
< >rst.source="insert into barcode1(barcode1) values ("&trim(line(0))&")"
% C5 U; K- V5 R; t5 jrst.open
4 d! e: T0 O% w) f# o4 n iloop</P>1 N6 h9 Z6 D# t8 u* l
< >f1.close4 U+ b9 `/ S. |6 w3 M4 T8 \9 g4 f
conn.close
+ q: S- ?5 f: w$ D" g0 \" B''''all over
# O+ Y4 A' R, ]; j%>
9 d& d2 v! C1 f3 Y& t% V" s</P> |
zan
|