国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 學(xué)院 > 開(kāi)發(fā)設(shè)計(jì) > 正文

從文本文件中讀取信息并存儲(chǔ)入數(shù)據(jù)庫(kù)

2019-11-18 20:58:58
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
<%

dim fso,f1
Const ForReading = 1

set fso=createobject("Scrset f1=fso.OpenTextFile("E:/doit/info2.txt", ForReading)
''打開(kāi)要讀取的文件
dim conn,rst

set conn=server.createobject("adodb.connection")
''建立數(shù)據(jù)庫(kù)連接，執(zhí)行操作
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循環(huán)體插入數(shù)據(jù)
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
%>


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 鹤峰县| 通化县| 永顺县| 襄樊市| 曲阜市| 剑阁县| 遵义市| 常宁市| 都安| 诏安县| 黑水县| 海原县| 通辽市| 泸西县| 金塔县| 闸北区| 湖州市| 天长市| 万全县| 江华| 鄯善县| 祁阳县| 舟山市| 乌苏市| 美姑县| 赞皇县| 衡山县| 英超| 上高县| 商都县| 利辛县| 沂水县| 南和县| 大姚县| 古浪县| 特克斯县| 淮阳县| 同江市| 行唐县| 永川市| 富川|