QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3108|回复: 0
打印 上一主题 下一主题

[转帖]从文本文件中读取信息并存储入数据库

[复制链接]
字体大小: 正常 放大
madio        

3万

主题

1312

听众

5万

积分

  • TA的每日心情
    奋斗
    2024-7-1 22:21
  • 签到天数: 2014 天

    [LV.Master]伴坛终老

    自我介绍
    数学中国站长

    社区QQ达人 邮箱绑定达人 优秀斑竹奖 发帖功臣 风雨历程奖 新人进步奖 最具活力勋章

    群组数学建模培训课堂1

    群组数学中国美赛辅助报名

    群组Matlab讨论组

    群组2013认证赛A题讨论群组

    群组2013认证赛C题讨论群组

    跳转到指定楼层
    1#
    发表于 2004-11-9 17:07 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta |邮箱已经成功绑定
    ''===================================================================
    5 l$ c$ G9 ?0 O& c''从文本文件中读取信息,取其中的一部分,并且将其插入到数据库中去……
    * v4 w& Y% ?3 _/ G# z# n'' xhony@163.com$ q* y- B8 h( G- t) O5 h
    '' version 1.0
    7 F4 `4 F, s/ U! G, G# s( a''===================================================================! t! H) }- s3 O  m) |, R
    <%  
    1 u5 Z. U5 u! Z# W. U& O# P
    6 m. l& O  ~$ x2 K
    6 w( W# W" c% y( m7 k<>dim fso,f14 I! ~7 H( P9 B( _! O- k
    Const ForReading = 1</P>
    / t% _9 Y, c3 Z) X6 A1 X/ j<>set fso=createobject("Scripting.FileSystemObject")6 i3 O/ J& I" D2 P) v
    ''使用fso对象读取信息。
    + J9 [: ~, M& ~/ n+ Nset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)% f8 ^; ~/ u. w
    ''打开要读取的文件' b& {; }) Q3 ~/ n4 m5 P8 J  [: D& d
    dim conn,rst</P>4 r# w$ ?- ?  Z8 e& F
    <>set conn=server.createobject("adodb.connection")' I" F! Q' d+ T6 ^0 D9 p4 E$ a: N
    ''建立数据库连接,执行操作
    7 r% A" Q& ^8 P- }2 sset rst=server.createobject("adodb.recordset")</P>  g* S7 x8 R: O- h) z: N, u  L# j
    <>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>  ~0 o' H0 K1 j6 j: V% a+ Q
    <>rst.activeconnection=conn</P>) o/ j" ~& O9 Q. W. `' F- v- Y# p
    <>dim fread</P>
    . ]+ @3 `: g, j" l1 {<>do while not f1.atEndOfStream : x3 Q6 D/ ]) B3 ]% _
    ''用do... loop循环体插入数据
    ' F6 a6 o9 S' U, p; Hfread=f1.readline</P>
    5 g: p, z# g1 S7 f2 M& q& e<>line=split(fread,":::")</P>
    . r# z) g: h/ F<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"5 `4 L( X8 _+ a" x
    rst.open
    2 Q6 Q) ^2 }- k7 F7 ^* E# o/ Kloop</P>% I! J  l" j& i; S
    <>f1.close. }( R3 P, u7 P" F
    conn.close9 {; t' ^) l. ^' Z3 `+ {+ ^' v, U
    ''''all over% S2 c8 g2 I  G2 e2 |) e
    %&gt;
    ; z1 c) u  q( T( F</P>
    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    数学建模社会化
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-8-10 01:23 , Processed in 0.419198 second(s), 52 queries .

    回顶部