取得数据库链接字串

2006-6-27 8:26:00　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'函数名：GetConnStr
'作  用：取得数据库链接字串，能生成MsAccess和MsSqlServer链接串
'参  数：Lx         ---- 0 是MsAccess , 1 是MsSqlServer
'参  数：Dbiporpath ---- 数据库IP或路径
'参  数：Dbmc       ---- 数据库名称
'参  数：Dbuid      ---- 数据库用户名称
'参  数：Dbupwd     ---- 数据库用户密码
'返回值：链接字串
'示  例：
'**************************************************
Public Function GetConnStr(ByVal Lx,ByVal Dbiporpath,ByVal Dbmc,ByVal Dbuid,ByVal Dbupwd)
  GetConnStr=""
  If Lx=0 Then
     If Right(Dbiporpath,1)<>"\" Then Dbiporpath=Dbiporpath & "\"
     GetConnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Dbiporpath&Dbmc&";Jet OLEDB:Database Password="&Dbupwd&";"
  End If
  If Lx=1 Then
     GetConnStr ="DRIVER=SQL Server;UID="&Dbuid&";DATABASE="&Dbmc&";SERVER="&Dbiporpath&";PWD="&Dbupwd&";"
  End If
End Function

>> 相关文章