网页功能: 加入收藏 设为首页 网站搜索  
数据库连接函数大全
发表日期:2005-04-12作者:[转贴] 出处:  

  无意中在公司的电脑里发现前人留下的一个db.fun的文件,打开一看原来是众多连接数据库的函数。也许用得着,收录一下。


<%

'---------------------------------------------------

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

 

'---------------------------------------------------

Function GetExcelRecordset( FileName, SQL )

 Set GetExcelRecordset = GetOtherRs( "Excel", FileName, SQL, 2 )

End Function


'---------------------------------------------------

Function GetExcelStaticRecordset( FileName, SQL )

 Set GetExcelStaticRecordset = GetOtherRs( "Excel", FileName, SQL, 3 )

End Function

 

'---------------------------------------------------

Function GetTextRecordset( Directory, SQL )

 Set GetTextRecordset = GetOtherRs( "Text", Directory, SQL, 2 )

End Function

 

'---------------------------------------------------

Function GetTextStaticRecordset( Directory, SQL )

 Set GetTextStaticRecordset = GetOtherRs( "Text", Directory, SQL, 3 )

End Function

 

'---------------------------------------------------

Function GetSQLServerRecordset( conn, source )

 Dim rs

 

 Set rs = Server.CreateObject("ADODB.Recordset")

 rs.Open source, conn, 2, 2

 Set GetSQLServerRecordset = rs

End Function


'---------------------------------------------------

Function GetSQLServerStaticRecordset( conn, source )

 Dim rs

 

 Set rs = Server.CreateObject("ADODB.Recordset")

 rs.Open source, conn, 3, 2

 Set GetSQLServerStaticRecordset = rs

End Function

 

'---------------------------------------------------

Function GetConnection( Param )

 Dim conn

 

 On Error Resume Next

 Set GetConnection = Nothing

 Set conn = Server.CreateObject("ADODB.Connection")

 If Err.Number <> 0 Then Exit Function

 

 conn.Open Param

 If Err.Number <> 0 Then Exit Function
 
 Set GetConnection = conn

End Function

 

'---------------------------------------------------

Function GetMdbRs( FileName, Source, Cursor, Password )

 Dim conn, rs

 

 On Error Resume Next

 Set GetMdbRs = Nothing

 If Len(Password) = 0 Then

 Set conn = GetMdbConnection( FileName )

 Else

 Set conn = GetSecuredMdbConnection( FileName, Password )

 End If

 If conn Is Nothing Then Exit Function

 

 Set rs = Server.CreateObject("ADODB.Recordset")

 If Err.Number <> 0 Then Exit Function

 

 rs.Open source, conn, Cursor, 2

 If Err.Number <> 0 Then Exit Function

 Set GetMdbRs = rs

End Function

'---------------------------------------------------

Function GetOtherRs( DataType, Path, SQL, Cursor )

 Dim conn, rs

 On Error Resume Next

 Set GetOtherRs = Nothing

 

 Select Case DataType

  Case "Dbf"

   Set conn = GetDbfConnection( Path )

  Case "Dbc"

   Set conn = GetDbcConnection( Path )

  Case "Excel"

 Set conn = GetExcelConnection( Path )

  Case "Text"

 Set conn = GetTextConnection( Path )

 End Select

 If conn Is Nothing Then Exit Function

 

 Set rs = Server.CreateObject("ADODB.Recordset")

 If Err.Number <> 0 Then Exit Function

 

 rs.Open SQL, conn, Cursor, 2

 If Err.Number <> 0 Then Exit Function

 Set GetOtherRs = rs

End Function

 

'---------------------------------------------------

Function GetSQLServerRs( Computer, UserID, Password, Db, source, Cursor )

 Dim conn, rs

 

 On Error Resume Next

 Set GetSQLServerRs = Nothing

 Set conn = GetSQLServerConnection( Computer, UserID, Password, Db )

 If conn Is Nothing Then Exit Function

 

 Set rs = Server.CreateObject("ADODB.Recordset")

 If Err.Number <> 0 Then Exit Function


 rs.Open source, conn, Cursor, 2

 If Err.Number <> 0 Then Exit Function


 Set GetSQLServerRs = rs

End Function

%>

 

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 数据库连接函数大全
本类热点文章
  ASP获得网卡的MAC地址
  默认点击下载pdf等文件而不是在浏览器中..
  纯ASP结合VML生成完美图-折线图
  利用ASP实现事务处理的方法
  ASP的分页函数
  酷月历(公、农历)
  ASP操作Excel技术总结
  数据库连接函数大全
  ASP中取得图片宽度和高度的类
  ASP连接11种数据库语法总结
  ASP 编程中20个非常有用的例子
  用InstallShield打包ASP程序
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00385