'函数ID：0025[取得数据库链接字串]

'函数名：GetConnStr

'作用：取得数据库链接字串，能生成MsAccess和MsSqlServer链接串

'参数：Lx----0是MsAccess,1是MsSqlServer

'参数：Dbiporpath----数据库IP或路径

'参数：Dbmc----数据库名称

'参数：Dbuid----数据库用户名称

'参数：Dbupwd----数据库用户密码

'返回值：链接字串

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

PublicFunctionGetConnStr(ByValLx,ByValDbiporpath,ByValDbmc,ByValDbuid,ByValDbupwd)

GetConnStr=""

IfLx=0Then

IfRight(Dbiporpath,1)<>"\"ThenDbiporpath=Dbiporpath&"\"

GetConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Dbiporpath&Dbmc&";JetOLEDB:DatabasePassword="&Dbupwd&";"

EndIf

IfLx=1Then

GetConnStr="DRIVER=SQLServer;UID="&Dbuid&";DATABASE="&Dbmc&";SERVER="&Dbiporpath&";PWD="&Dbupwd&";"

EndIf

EndFunction