万能数据库连接程序-1
2008-02-23 09:28:12来源:互联网 阅读 ()
下面这部分程序可说是万能的数据库连接程序几乎可以连接所有的MS数据库。 <% '--------------------------------------------------- Function GetMdbConnection( FileName ) Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath(FileName) Set GetMdbConnection = GetConnection( Provider & DBPath ) End Function '--------------------------------------------------- Function GetSecuredMdbConnection( FileName, Password ) Dim Provider, DBPath Provider = "Provider=Microsoft.Jet.OLEDB.4.0;" DBPath = "Data Source=" & Server.MapPath(FileName) Set GetSecuredMdbConnection = GetConnection( Provider & DBPath & ";Jet OLEDB:Database Password=" & Password ) End Function '--------------------------------------------------- Function GetDbcConnection( FileName ) Dim Driver, SourceType, DBPath Driver = "Driver={Microsoft Visual FoxPro Driver};" SourceType = "SourceType=DBC;" DBPath = "SourceDB=" & Server.MapPath( FileName ) Set GetDbcConnection = GetConnection( Driver & SourceType & DBPath ) End Function '--------------------------------------------------- Function GetDbfConnection( Directory ) Dim Driver, SourceType, DBPath Driver = "Driver={Microsoft Visual FoxPro Driver};" SourceType = "SourceType=DBF;" DBPath = "SourceDB=" & Server.MapPath( Directory ) Set GetDbfConnection = GetConnection( Driver & SourceType & DBPath ) End Function '--------------------------------------------------- Function GetExcelConnection( FileName ) Dim Driver, DBPath Driver = "Driver={Microsoft Excel Driver (*.xls)};" DBPath = "DBQ=" & Server.MapPath( FileName ) Set GetExcelConnection = GetConnection( Driver & "ReadOnly=0;" & DBPath ) End Function '--------------------------------------------------- Function GetTextConnection( Directory ) Dim Driver, DBPath Driver = "Driver={Microsoft Text Driver (*.txt; *.csv)};" DBPath = "DBQ=" & Server.MapPath( Directory ) Set GetTextConnection = GetConnection( Driver & DBPath ) End Function '--------------------------------------------------- Function GetSQLServerConnection( Computer, UserID, Password, Db ) Dim Params, conn Set GetSQLServerConnection = Nothing Params = "Provider=SQLOLEDB.1" Params = Params & ";Data Source=" & Computer Params = Params & ";User ID=" & UserID Params = Params & ";Password=" & Password Params = Params & ";Initial Catalog=" & Db Set conn = Server.CreateObject("ADODB.Connection") conn.Open Params Set GetSQLServerConnection = conn End Function '--------------------------------------------------- Function GetMdbRecordset( FileName, Source ) Set GetMdbRecordset = GetMdbRs( FileName, Source, 2, "" ) End Function '--------------------------------------------------- Function GetMdbStaticRecordset( FileName, Source ) Set GetMdbStaticRecordset = GetMdbRs( FileName, Source, 3, "" ) End Function '--------------------------------------------------- Function GetSecuredMdbRecordset( FileName, Source, Password ) Set GetSecuredMdbRecordset = GetMdbRs( FileName, Source, 2, Password ) End Function '--------------------------------------------------- Function GetSecuredMdbStaticRecordset( FileName, Source, Password ) Set GetSecuredMdbStaticRecordset = GetMdbRs( FileName, Source, 3, Password ) End Function '--------------------------------------------------- Function GetDbfRecordset( Directory, SQL ) Set GetDbfRecordset = GetOtherRs( "Dbf", Directory, SQL, 2 ) End Function '--------------------------------------------------- Function GetDbfStaticRecordset( Directory, SQL ) Set GetDbfStaticRecordset = GetOtherRs( "Dbf", Directory, SQL, 3 ) End Function '--------------------------------------------------- Function GetDbcRecordset( FileName, SQL ) Set GetDbcRecordset = GetOtherRs( "Dbc", FileName, SQL, 2 ) End Function '--------------------------------------------------- Function GetDbcStaticRecordset( FileName, SQL ) Set GetDbcStaticRecordset = GetOtherRs( "Dbc", FileName, SQL, 3 ) End Function |
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:ASP项目中的公共翻页模块
下一篇:用纯ASP实现完美的WEB柱状图
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash