QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 3109|回复: 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 M( O. r) S" B- X% ~, e''从文本文件中读取信息,取其中的一部分,并且将其插入到数据库中去……  V# Z4 o3 n; c  Z# c0 R' g
    '' xhony@163.com
    ' h9 |9 v+ g6 H, Z, g9 F'' version 1.0% f' p: @& g: @9 \9 p
    ''===================================================================
    - I7 t( r* e* |/ \* A<%  
      ]- z; \/ M  P; U: a- B7 ?1 C5 x; S, `! [! ?" S: _
    + ~! S7 r4 w5 x9 {' D
    <>dim fso,f1
    ( A. t& D3 U1 z% O* V1 d( I( IConst ForReading = 1</P>1 X3 |$ p5 Z& X; [" P2 s" v8 ]
    <>set fso=createobject("Scripting.FileSystemObject")' D' g3 }+ T/ q1 p6 w3 k
    ''使用fso对象读取信息。) |' k* e: G8 o& B- g% f% A
    set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
    $ I- N7 v4 g: ]! Q' A''打开要读取的文件0 [% Q7 h& ~+ G1 R4 M6 f
    dim conn,rst</P>
    $ w2 {; O( M) `7 G) B- F- Q2 m<>set conn=server.createobject("adodb.connection")+ ^; z$ ]" g2 d( w7 j
    ''建立数据库连接,执行操作
    3 L' t) p6 D2 U% A/ X, \set rst=server.createobject("adodb.recordset")</P>
    & x* F: v, P( H2 V3 J6 n/ k0 y<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
    % s2 U' P9 x" {; z<>rst.activeconnection=conn</P>/ [. G: x: v; x( t* q/ }3 L3 n
    <>dim fread</P>
    ) x: Q  R, P0 r3 b! @<>do while not f1.atEndOfStream % [1 Q! X8 a2 F' G4 u* [
    ''用do... loop循环体插入数据
    1 H2 ]' c2 n5 c; S* U1 a! hfread=f1.readline</P>
    ! N* }: M7 B' a3 g9 V<>line=split(fread,":::")</P>1 ^0 M9 A6 n3 D) S
    <>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"% k. \/ l2 I# j% g
    rst.open% z+ t3 y1 f0 n1 n8 _1 D/ m
    loop</P>
    6 U' @0 Z& M/ O$ C<>f1.close) g6 ]3 {+ l( [' o
    conn.close
    " ?# l- z1 f2 j  w. v1 ^''''all over
    / _5 f# u3 R  T4 E2 B: F6 v# Y%&gt;& _  o, Q  W7 j
    </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 02:12 , Processed in 0.591701 second(s), 52 queries .

    回顶部