您正在使用IPV4(35.153.166.111)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
虚位以待
2021年 冬至节 14
2021年 圣诞节 18
2022年 元 旦 25
2022年 春 节 56
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    将本地数据表或库上传并导入到服务器数据库的表中
    内容摘要: '函数名:ReadCdbToServ'作用:将本地数据表或库上传并导入到服务器数据库的表中'参数:CdbFileUp----被上传的库或表文件路径及文件名'参数:SdbConnStr----服务器数据库链接字串'参数:SdbTbname----服务器将打开的表名'参数:FildStrArr----导入的数据字段串(各字段用','隔开)'返回值:成功返回Tru......
    '函数名:ReadCdbToServ

    '作用:将本地数据表或库上传并导入到服务器数据库的表中

    '参数:CdbFileUp----被上传的库或表文件路径及文件名

    '参数:SdbConnStr----服务器数据库链接字串

    '参数:SdbTbname----服务器将打开的表名

    '参数:FildStrArr----导入的数据字段串(各字段用","隔开)

    '返回值:成功返回True否则False

    '注可导入的文件类型有(0:Excel1:Access2:Text3:DBF/FoxPro)

    '注:Excel的表为Sheet名称,文本及DBF/FoxPro的表名为数据文件的全名,如aa.txt或aa.dbf

    '注:Text文本数据表是以","为分隔的格式,重点:被导入的数据库只能包含一个表,并且导入的字段应和服务器数据库的表相一致

    '示例:CALLReadCdbToServ(TempSj,"DRIVER=SQLServer;UID=sa;DATABASE=temp;SERVER=127.0.0.1;PWD=mzy1029;","img","mc,lx,mem")

    '示例:Response.write"<formmethod='POST'action='test.asp'enctype='multipart/form-data'><inputtype='file'name='Tfile'><inputtype='submit'value='提交'name='B1'></form>"

    '**************************************************''''

    PublicFunctionReadCdbToServ(ByValCdbFileUp,ByValSdbConnStr,ByValSdbTbname,ByValFildStrArr)

    ReadCdbToServ=False

    DimMbDir,Mbwjmc,aryTemp,VrCdb_Conn_Str,ofu_Conn,ofu_Rs,sfu_Conn,sfu_Rs,ofu_sql_str,sfu_sql_str,oaryTemp,TpTrs,Gtlx,CdbTbname

    VrCdb_Conn_Str=""

    MbDir=Readsyspath(1)

    IfRight(MbDir,1)<>"\"ThenMbDir=MbDir&"\"

    Mbwjmc=CdbFileUp

    aryTemp=Split(Mbwjmc,"\")

    Mbwjmc=aryTemp(UBound(aryTemp))

    aryTemp=Split(Mbwjmc,".")

    Gtlx=UCase(aryTemp(UBound(aryTemp)))

    IfUpFsRn(100,MbDir,"temp."&Gtlx)Then

    IfGtlx="XLS"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties=Excel8.0;DataSource="&MbDir&"temp."&Gtlx&";"''Excel[Tbname$]

    IfGtlx="MDB"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&"temp."&Gtlx&";JetOLEDB:DatabasePassword=;"''Access

    IfGtlx="TXT"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&";ExtendedProperties='text;HDR=Yes;FMT=Delimited'"''Text(,分割)

    IfGtlx="DBF"ThenVrCdb_Conn_Str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&MbDir&";ExtendedProperties=dBASEIV;UserID=Admin;Password="''DBF/FoxPro

    Setsfu_Conn=server.createobject("ADODB.Connection")

    Setsfu_Rs=server.createobject("ADODB.Recordset")

    sfu_Conn.openSdbConnStr

    sfu_sql_str="select"&FildStrArr&"from"&SdbTbname

    Setofu_Conn=server.createobject("ADODB.Connection")

    Setofu_Rs=server.createobject("ADODB.Recordset")

    ofu_Conn.openVrCdb_Conn_Str

    SetTpTrs=ofu_Conn.OpenSchema(20)

    CdbTbname=TpTrs(2)

    TpTrs.Close

    SetTpTrs=Nothing

    IfGtlx="XLS"ThenCdbTbname="["&CdbTbname&&quot;]"

    ofu_sql_str="select"&FildStrArr&"from"&CdbTbname

    oaryTemp=Split(FildStrArr,",")

    sfu_Rs.opensfu_sql_str,sfu_Conn,1,3

    ofu_Rs.openofu_sql_str,ofu_Conn,1,3

    DoWhileNotofu_Rs.Eof

    sfu_Rs.addnew

    Fori=LBound(oaryTemp)ToUBound(oaryTemp)

    sfu_Rs(oaryTemp(i))=ofu_Rs(oaryTemp(i))

    Next

    sfu_Rs.update

    ofu_Rs.MoveNext

    Loop

    ofu_Rs.Close

    ofu_Conn.Close

    Setofu_Rs=Nothing

    Setofu_Conn=Nothing

    sfu_Rs.Close

    sfu_Conn.Close

    Setsfu_Rs=Nothing

    Setsfu_Conn=Nothing

    ReadCdbToServ=True

    DelFile(MbDir&"temp."&Gtlx)

    EndIf

    EndFunction

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:返回服务器信息 下一篇:asp实现获取MSSQL数据库表指定条件行数的函数
    发布日期:2021/10/29
    手机扫二维码直达本页
    发布时间:14:44:35
    点击:358
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021