使用SELECT语句读取excel表
功能getmdbconnection(文件名)
昏暗的供应商,DBPath
商=商=微软。飞机。OLEDB。4;
mdbquot =数据源=server.mappath(文件名)
集getmdbconnection = getConnection(提供者独立)
端功能
---------------------------------------------------
功能getsecuredmdbconnection(文件名、密码)
昏暗的供应商,DBPath
商=商=微软。飞机。OLEDB。4;
mdbquot =数据源=server.mappath(文件名)
集getsecuredmdbconnection = getConnection(提供者独立;射流OLEDB:数据库密码=密码)
端功能
---------------------------------------------------
功能getdbcconnection(文件名)
驾驶员,SourceType,DBPath
驱动程序微软Visual FoxPro驱动程序};
sourcetype =sourcetype = DBC;
mdbquot =sourcedb =server.mappath(文件名)
集getdbcconnection = getConnection(司机SourceType DBPath)
端功能
---------------------------------------------------
功能getdbfconnection(目录)
驾驶员,SourceType,DBPath
驱动程序微软Visual FoxPro驱动程序};
sourcetype =sourcetype = DBF;
mdbquot =sourcedb =server.mappath(目录)
集getdbfconnection = getConnection(司机SourceType DBPath)
端功能
---------------------------------------------------
功能getexcelconnection(文件名)
驾驶员,DBPath
司机:司机= {微软Excel驱动程序(*. xls)};
mdbquot =DBQ =server.mappath(文件名)
集getexcelconnection = getConnection(司机只读= 0;独立)
端功能
---------------------------------------------------
功能gettextconnection(目录)
驾驶员,DBPath
驱动程序=微软文本驱动程序(*;txt;*)};
mdbquot =DBQ =server.mappath(目录)
集gettextconnection = getConnection(司机DBPath)
端功能
---------------------------------------------------
Function GetSQLServerConnection (Computer, UserID, Password, Db)
尺寸参数,Conn
集getsqlserverconnection =没有
参数== SQLOLEDB提供。1
参数=参数;数据源=计算机
参数=参数;用户ID = 用户名
参数=参数;密码=密码
参数=参数;初始目录=分贝
设置conn = server.createobject(数据连接)
康涅狄格州开放的参数
集getsqlserverconnection = Conn
端功能
---------------------------------------------------
功能getmdbrecordset(文件名、源)
集getmdbrecordset = getmdbrs(文件名,源,2,)
端功能
---------------------------------------------------
功能getmdbstaticrecordset(文件名、源)
集getmdbstaticrecordset = getmdbrs(文件名,源,3,)
端功能
---------------------------------------------------
功能getsecuredmdbrecordset(文件名、源、密码)
集getsecuredmdbrecordset = getmdbrs(文件名、来源、2、密码)
端功能
---------------------------------------------------
功能getsecuredmdbstaticrecordset(文件名、源、密码)
集getsecuredmdbstaticrecordset = getmdbrs(文件名、来源、3、密码)
端功能
---------------------------------------------------
功能getdbfrecordset(目录,SQL)
集getdbfrecordset = getotherrs(数据库
端功能
---------------------------------------------------
功能getdbfstaticrecordset(目录,SQL)
集getdbfstaticrecordset = getotherrs(数据库
端功能
---------------------------------------------------
功能getdbcrecordset(filename,SQL)
集getdbcrecordset = getotherrs(DBC
端功能
---------------------------------------------------
功能getdbcstaticrecordset(filename,SQL)
集getdbcstaticrecordset = getotherrs(DBC
端功能
---------------------------------------------------
功能getexcelrecordset(filename,SQL)
集getexcelrecordset = getotherrs(Excel
端功能
---------------------------------------------------
功能getexcelstaticrecordset(filename,SQL)
集getexcelstaticrecordset = getotherrs(Excel
端功能
---------------------------------------------------
功能gettextrecordset(目录,SQL)
集gettextrecordset = getotherrs(文本
端功能
---------------------------------------------------
功能gettextstaticrecordset(目录,SQL)
集gettextstaticrecordset = getotherrs(文本
端功能
---------------------------------------------------
功能getsqlserverrecordset(Conn源)
昏暗的RS
集= server.createobject(ADODB。记录集)
RS开源,Conn,2, 2
集getsqlserverrecordset = RS
端功能
---------------------------------------------------
功能getsqlserverstaticrecordset(Conn源)
昏暗的RS
集= server.createobject(ADODB。记录集)
RS开源,Conn,3, 2
集getsqlserverstaticrecordset = RS
端功能
---------------------------------------------------
函数调用(参数)
昏暗的控制室
下次继续出错
集getConnection =没有
设置conn = server.createobject(数据连接)
如果错误号为0,则退出函数。
康涅狄格州开放的参数
如果错误号为0,则退出函数。
集getConnection = Conn
端功能
---------------------------------------------------
功能getmdbrs(文件名、源、光标、密码)
朦胧的Conn,RS
下次继续出错
集getmdbrs =没有
如果Len(密码)=0
设置conn = getmdbconnection(文件名)
其他的
设置conn = getsecuredmdbconnection(文件名、密码)
最后如果
如果是什么然后退出功能
集= server.createobject(ADODB。记录集)
如果错误号为0,则退出函数。
的。开源、Conn、光标、2
如果错误号为0,则退出函数。
集getmdbrs = RS
端功能
---------------------------------------------------
功能getotherrs(数据类型、路径、SQL、光标)
朦胧的Conn,RS
下次继续出错
集getotherrs =没有
选择数据类型
案例DBF
设置conn = getdbfconnection(路径)
案例DBC
设置conn = getdbcconnection(路径)
案例Excel
设置conn = getexcelconnection(路径)
案例文本
设置conn = gettextconnection(路径)
最后选择
如果是什么然后退出功能
集= server.createobject(ADODB。记录集)
如果错误号为0,则退出函数。
的。打开SQL、Conn、光标、2
如果错误号为0,则退出函数。
集getotherrs = RS
端功能
---------------------------------------------------
功能getsqlserverrs(计算机、用户名、密码、数据库、源、光标)
朦胧的Conn,RS
下次继续出错
集getsqlserverrs =没有
设置conn = getsqlserverconnection(电脑,用户名,密码,数据库)
如果是什么然后退出功能
集= server.createobject(ADODB。记录集)
如果错误号为0,则退出函数。
的。开源、Conn、光标、2
如果错误号为0,则退出函数。
集getsqlserverrs = RS
端功能
%>