<%
Classrlmandbcls
Privatesdbath, rlconn, sdbtype, sservername, susername, spassword
PublicCount
Privatesubclass_initialize ()
sdbtype = ""
Endsub
Privatesubclass_terminate ()
IfisObject (rlConn) Então
Rlconn.close
SetRlconn = nada
Endif
Endsub
PublicPropertyLetDBType (Byvaltrvar)
sdbtype = strvar
EndProperty
PublicPropertyLetServerName (Byvaltrvar)
sservername = strvar
EndProperty
PublicPropertyLetUserName (Byvaltrvar)
Susername = strvar
EndProperty
PublicPropertyLetPassword (Byvaltrvar)
spassword = strvar
EndProperty
'Defina o caminho do banco de dados
PublicPropertyLetDBPath (Byvaltrvar)
sdbpath = strvar
SelectCasesDBType
Caso "SQL"
StrServer = Nome do servidor de banco de dados SSERVERNAME '
STUID = Susername'ur seu Login Conta
StrSAPWD = spassword'uSur Login senha
Strdbname = sdbpath'our bathabase name
sdbpath = "driver = {sqlServer}; server =" & strServer & "; uid =" & struid & "; pwd =" & strsapwd & "; database =" & strdbname
Caso "Access", ""