主页 > 知识库 > 从文本文件中读取信息并存储入数据库

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

热门标签:科大讯飞语音识别系统 Linux服务器 服务器配置 团购网站 Mysql连接数设置 阿里云 银行业务 电子围栏

dim fso,f1
Const ForReading = 1
set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst

set conn=server.createobject("adodb.connection")
''建立数据库连接,执行操作
set rst=server.createobject("adodb.recordset")

conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="Server.mappath("db1.mdb")

rst.activeconnection=conn

dim fread

do while not f1.atEndOfStream 
''用do... loop循环体插入数据
fread=f1.readline

line=split(fread,":::")

rst.source="insert into barcode1(barcode1) values ("trim(line(0))")"
rst.open
loop

f1.close
conn.close
''''all over
%>

标签:枣庄 衢州 衡水 萍乡 大理 江苏 蚌埠 广元

巨人网络通讯声明:本文标题《从文本文件中读取信息并存储入数据库》,本文关键词  ;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 收缩
    • 微信客服
    • 微信二维码
    • 电话咨询

    • 400-1100-266