数学建模社区-数学中国

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

---

作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================
: r0 L+ e8 C* @% `. U7 y. r''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
- n6 t* \# G8 Q# B3 O0 f: M: R'' version 1.0
5 H: u# R5 B& ?! A% S0 Z# ?& S! Z3 a9 G''===================================================================
<%  

3 W% U" J4 i$ m
<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
; U3 N6 o3 d% b7 x% Z''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
6 j5 x- K& J: \, W/ A<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
+ N: v, M1 j2 |<>dim fread</P>
5 J7 T! p3 g( V1 R<>do while not f1.atEndOfStream
2 |1 f% v+ N3 q- F/ w6 L# d) c' u''用do... loop循环体插入数据
- ^' p* I) a. L* Kfread=f1.readline</P>
* @. z- p0 z0 Q( c6 {" d9 K<>line=split(fread,":::")</P>
* N+ u. Z* P0 ~; G8 ^<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
+ e1 g! c& }, Z2 jrst.open
" U' d1 g* I- S- V: G' l6 L% U# aloop</P>
<>f1.close
; Z9 d$ F1 Z) X  j3 d8 T9 w3 z3 {% bconn.close
''''all over
1 O" K- u7 d6 `%&gt;
</P>

---

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

Powered by Discuz! X2.5