'حل مشكلة مسار قاعدة بيانات ACCESS!
'استخدم DBType=0 أو DBType=1 للتمييز بين مكتبة AC أو مكتبة MSSQL
'بالنسبة للمسائل المحددة التي يجب الانتباه إليها عند استخدام مكتبة AC، يرجى الاطلاع على وصف البرنامج
----------------------------- ----- ----------
خافت DBType، كون، StrConn
DBType=0 '0 هي قاعدة بيانات Access، 1 هي قاعدة بيانات MSSQL
إذا (DBType=0) إذن
'****************** الوصول إلى قاعدة البيانات ******************
خافت DbFolderName،DbFolder_Path،SiteFolder
DbFolderName="ArticleData" 'اسم المجلد الذي توجد به قاعدة البيانات
DbFolder_Path = Server.MapPath(DbFolderName) 'المسار إلى قاعدة البيانات
SiteFolder="Article" 'اسم الدليل الجذر حيث يوجد النظامIf
Session("RootDir") = "" إذن
Session("RootDir") = Mid(DbFolder_Path, 1, InStr(1,DbFolder_Path,SiteFolder,1) -1) & SiteFolder
انتهي إذا
تعيين Conn = Server.CreateObject("Adodb.Connection")
StrConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Session("RootDir") & ""& DbFolderName & "Data.mdb" 'الاتصال بقاعدة البيانات
كون.افتح ستركون
'********************************************************************************************************************************************************************************* *
ElseIf(DBType=1) إذن
'******************قاعدة بيانات خادم MSSQL******
خافت DBUserID، DBPassWord، DBName، DBIP
'قم بتعديل المعلومات التالية لتناسب موقعك
DBUserID="sa" 'اسم تسجيل الدخول لقاعدة البيانات
DBPassWord="" 'كلمة مرور قاعدة البيانات
DBName="dbname" 'اسم قاعدة البيانات
DBIP="local" 'عنوان قاعدة البيانات، إذا كانت قاعدة بيانات محلية: (محلي)
Set Conn=Server.CreateObject("Adodb.Connection")
StrConn = "PROVIDER=SQLOLEDB.1;مصدر البيانات ="&DBIP&";الكتالوج الأولي ="&DBName&";معلومات الأمان المستمرة=True;معرف المستخدم ="&DBUserID&";كلمة المرور ="&DBPassWord&";مهلة الاتصال=30"
كون.افتح ستركون
'********************************************************************************************************************************************************************************* * ****
آخر
'************************خطأ في إعداد قاعدة البيانات******************
Response.Write "خطأ في إعداد قاعدة البيانات، يرجى الاتصال بالمسؤول!"
الاستجابة.النهاية
نهاية إذا
'Response.WriteStrConn