数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]
作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================
0 y( {5 y# W8 W# J''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
0 u0 P1 Z9 }; Y1 n'' xhony@163.com( D: A( V. @+ S2 ^) i
'' version 1.04 ^* M. B( S# Q2 R8 r
''===================================================================+ [3 w3 @( I1 n, S& c2 F% H
<%  4 b9 ^3 A' \' K' N6 @

* b8 c" X, I9 Q; I. m& S6 z* X$ ]+ b+ @. e, ^
<>dim fso,f1
2 l* O) F8 Y* p* HConst ForReading = 1</P>
+ ]" }' n- |$ P5 y& A, K" c7 f<>set fso=createobject("Scripting.FileSystemObject")
: L* h$ V& Y" _  m  {! `''使用fso对象读取信息。
# v8 ]3 J* B+ l0 L3 Q, @; Pset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)  B" Y- W/ S5 n* {; c
''打开要读取的文件6 N: `. j- b8 X6 S2 [; e9 A) n  A
dim conn,rst</P>
2 z# `1 H' j" ?9 l- j8 u<>set conn=server.createobject("adodb.connection")1 x# o. K' o% X
''建立数据库连接，执行操作
3 s# l( U- D: F. o( H* X* yset rst=server.createobject("adodb.recordset")</P>
9 K- }) p1 w0 Z. l2 g& E<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>* W; h$ r+ P5 T5 S  \- K1 d* C
<>rst.activeconnection=conn</P>
+ M9 f2 r7 C4 [; ]<>dim fread</P>
8 U% e* C. B( z4 y# N' N# y. d% E<>do while not f1.atEndOfStream
+ Q/ A7 C( G  p''用do... loop循环体插入数据! S4 q4 e" T" ~
fread=f1.readline</P># I" i+ K8 K9 g$ I8 O, t& p/ y
<>line=split(fread,":::")</P>
% v6 f2 n/ c" z1 c; w4 Q<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"; U9 i6 A! a, n5 W7 Y
rst.open0 T/ K& }& |8 N5 A2 X9 B! W8 y
loop</P>
- m+ ?/ z% l7 X+ v<>f1.close
( y3 l* R% p3 B, F! T- pconn.close
- p+ @( a1 q' k. v7 J. T; J( g''''all over5 @" l0 N8 e! E
%&gt;, J# X) g+ b- y8 D0 t6 V
</P>



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