فئة قاعدة بيانات الإدارة عبر الإنترنت

<٪

classrlmandbcls

PrivatesDbPath ، Rlconn ، SDBType ، SserverName ، Susername ، Spassword

PublicCount

privatesubclass_initialize ()

sdbtype = ""

ينتهي

privatesubclass_terminate ()

IfisObject (rlconn) ثم

rlconn.close

setRlConn = لا شيء

Endif

ينتهي

publicpropertyletdbtype (ByvalStrvar)

sdbtype = strvar

endproperty

PublicPropertyletServerName (ByvalStrvar)

sserverName = strvar

endproperty

publicpropertyletusername (ByvalStrvar)

Susername = strvar

endproperty

publicpropertyletpassword (Byvalsstrvar)

Spassword = strvar

endproperty

قم بتعيين مسار قاعدة البيانات

publicpropertyletdbpath (ByvalStrvar)

SDBPATH = strvar

SelectCasesDbtype

حالة "SQL"

strserver = اسم خادم قاعدة البيانات sserverName

struid = حساب تسجيل الدخول susername'your

strsapwd = spassword'your كلمة مرور تسجيل الدخول

strdbname = اسم قاعدة البيانات sdbpath'your

sdbpath = "driver = {sqlserver} ؛ server =" & strserver & "؛ uid =" & struid & "؛ pwd =" & strsapwd & "؛ database =" & strdbname

حالة "الوصول" ، ""