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

يتعلم عميل قاعدة البيانات العالمي برنامج اتصال قاعدة البيانات العالمي. يمكن القول أن عميل قاعدة البيانات هذا عميل لقاعدة بيانات عالمية تدعم تغطية قاعدة البيانات وجميع قواعد البيانات التي يمكننا رؤيتها. هل تعرف برنامج اتصال قاعدة البيانات العالمي؟ دع محرر قناة Foot New Technology يأخذك لمعرفة المزيد عنها!

مقدمة: توصيل أنواع مختلفة من قواعد البيانات والوظائف لعمليات قاعدة البيانات

يمكن القول أن البرنامج التالي هو برنامج اتصال قاعدة بيانات عالمي يمكنه الاتصال بجميع قواعد بيانات MS تقريبًا. يرجى استخدامه للبحث بنفسك (هذا البرنامج موجود في كتاب "ASP Web Page Production Tutorial" - كتاب جيد):

<٪

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getMDBConnection (اسم الملف)

مزود قاتمة ، DBPATH

Provider = "Provider = microsoft.jet.oledb.4.0 ؛"

DBPath = "Data Source =" & server.mappath (اسم الملف)

تعيين getMDBConnection = getConnection (مزود و DBPath)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSecuredMDBConnection (اسم الملف ، كلمة المرور)

مزود قاتمة ، DBPATH

Provider = "Provider = microsoft.jet.oledb.4.0 ؛"

DBPath = "Data Source =" & server.mappath (اسم الملف)

تعيين getSecuredMDBConnection = getConnection (موفر و DBPath & "؛ Jet OLEDB: Database Password =" & Password) End Function

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDBCConnection (اسم الملف)

Dim Driver ، SourCetype ، DBPath

Driver = "Driver = {Microsoft Visual Foxpro Driver} ؛"

SourCeType = "SourCeType = DBC ؛"

DBPath = "SourcedB =" & server.mappath (اسم الملف)

SET GETDBCCONNECTION = getConnection (برنامج التشغيل و SourCETYPE & DBPATH)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDBFConnection (الدليل)

Dim Driver ، SourCetype ، DBPath

Driver = "Driver = {Microsoft Visual Foxpro Driver} ؛"

SourCeType = "SourCeType = DBF ؛"

DBPath = "SourcedB =" & server.mappath (دليل)

SET GETDBFConnection = getConnection (برنامج التشغيل و SourCETYPE & DBPATH)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getExcelConnection (اسم الملف)

سائق خافت ، DBPath

Driver = "Driver = {Microsoft Excel Driver (*.xls)} ؛"

DBPath = "dbq =" & server.mappath (اسم الملف)

تعيين getExCelConnection = getConnection (برنامج التشغيل و "readonly = 0 ؛" & dbath) وظيفة النهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getTextConnection (الدليل)

سائق خافت ، DBPath

Driver = "Driver = {Microsoft Text Driver ( *.txt ؛ *.csv)} ؛"

DBPath = "DBQ =" & server.mappath (دليل)

تعيين getTextConnection = getConnection (برنامج التشغيل و DBPath)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSqlServerConnection (الكمبيوتر ، معرف المستخدم ، كلمة المرور ، ديسيبل)

Dim Params ، conn

تعيين getSqlServerConnection = لا شيء

params = "Provider = sqloledb.1"

params = params & "؛ data source =" & computer

params = params & "؛ معرف المستخدم =" & userId

params = params & "؛ password =" وكلمة المرور

params = params & "؛ الكتالوج الأولي =" & db

تعيين conn = server.createObject ("adodb.connection")

conn.Open params

تعيين getSqlServerConnection = conn

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getMdbRecordset (اسم الملف ، المصدر)

اضبط getMdbRecordset = getMDBRS (اسم الملف ، المصدر ، 2 ، "")

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getMDBStaticRecordset (اسم الملف ، المصدر)

تعيين getMDBStaticRecordset = getMDBRS (اسم الملف ، المصدر ، 3 ، "")

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSecuredMDBRECORDSET (اسم الملف ، المصدر ، كلمة المرور)

تعيين getSecuredMDBRECORDSET = getMDBRS (اسم الملف ، المصدر ، 2 ، كلمة المرور) وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSecuredMDBStaticRecordset (اسم الملف ، المصدر ، كلمة المرور)

تعيين getSecuredMDBStaticRecordset = getMDBRS (اسم الملف ، المصدر ، 3 ، كلمة المرور) وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDbfrecordset (الدليل ، SQL)

تعيين getDbfRecordset = getotherrs ("DBF" ، الدليل ، SQL ، 2)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDBfStaticRecordset (الدليل ، SQL)

تعيين getDBfStaticRecordSet = getotherrs ("DBF" ، الدليل ، SQL ، 3)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDbcrecordset (اسم الملف ، SQL)

تعيين getDbcrecordset = getotherrs ("DBC" ، اسم الملف ، SQL ، 2)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getDBCStaticRecordset (اسم الملف ، SQL)

SET GETDBCSTATIATRECORDSET = GETOTHERRS ("DBC" ، اسم الملف ، SQL ، 3)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getExCelrecordset (اسم الملف ، SQL)

تعيين getExCelrecordset = getotherrs ("excel" ، اسم الملف ، SQL ، 2)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getExcelStaticRecordset (اسم الملف ، SQL)

تعيين getExCelScelStaticRecordSet = getotherrs ("excel" ، اسم الملف ، SQL ، 3)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getTextRecordset (الدليل ، SQL)

تعيين getTextRecordset = getotherrs ("النص" ، الدليل ، SQL ، 2)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getTextStaticRecordset (الدليل ، SQL)

تعيين getTextStaticRecordset = getotherrs ("النص" ، الدليل ، SQL ، 3)

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSqlServerRecordset (Conn ، Source)

قاتمة روبية

SET RS = Server.createObject ("ADODB.RecordSet")

مصدر RS.Open ، Conn ، 2 ، 2

تعيين getSQlServerRecordset = RS

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSqlServerStaticRecordset (Conn ، المصدر)

قاتمة روبية

SET RS = Server.createObject ("ADODB.RecordSet")

مصدر Rs.Open ، Conn ، 3 ، 2

تعيين getSqlServerStaticRecordSet = RS

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getConnection (param)

قاتمة كون

عند استئناف الخطأ التالي

تعيين getConnection = لا شيء

تعيين conn = server.createObject ("adodb.connection")

إذا err.number <> 0 ثم الخروج وظيفة

conn.Open param

إذا err.number <> 0 ثم الخروج وظيفة

تعيين getConnection = conn

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getMDBRS (اسم الملف ، المصدر ، المؤشر ، كلمة المرور)

قاتمة كون ، روبية

عند استئناف الخطأ التالي

تعيين getMDBRS = لا شيء

إذا كان len (كلمة المرور) = 0 ثم

تعيين conn = getMDBConnection (اسم الملف)

آخر

تعيين conn = getSecuredMDBConnection (اسم الملف ، كلمة المرور)

إنهاء إذا

إذا لم يكن كون شيئًا فهو وظيفة الخروج

SET RS = Server.createObject ("ADODB.RecordSet")

إذا err.number <> 0 ثم الخروج وظيفة

مصدر RS.Open ، Conn ، المؤشر ، 2

إذا err.number <> 0 ثم الخروج وظيفة

تعيين getMDBRS = RS

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getTerrs (نوع البيانات ، المسار ، SQL ، المؤشر)

قاتمة كون ، روبية

عند استئناف الخطأ التالي

تعيين getotherrs = لا شيء

حدد نوع DATATYPE CASE

حالة "DBF"

SET CONN = GETDBFConnection (PATH)

حالة "DBC"

SET CONN = GETDBCCONNECTION (PATH)

حالة "Excel"

تعيين conn = getExcelConnection (المسار)

حالة "النص"

تعيين conn = getTextConnection (المسار)

نهاية الاختيار

إذا لم يكن كون شيئًا فهو وظيفة الخروج

SET RS = Server.createObject ("ADODB.RecordSet")

إذا err.number <> 0 ثم الخروج وظيفة

Rs.Open SQL ، Conn ، المؤشر ، 2

إذا err.number <> 0 ثم الخروج وظيفة

تعيين getotherrs = روبية

وظيفة نهاية

'-------------------------------------------------------------------------------------------------------------------------------

وظيفة getSQlServerrs (الكمبيوتر ، معرف المستخدم ، كلمة المرور ، ديسيبل ، المصدر ، المؤشر)

قاتمة كون ، روبية

عند استئناف الخطأ التالي

تعيين getSqlServerRs = لا شيء

اضبط conn = getSqlServerConnection (الكمبيوتر ، معرف المستخدم ، كلمة المرور ، db)

إذا لم يكن كون شيئًا فهو وظيفة الخروج

SET RS = Server.createObject ("ADODB.RecordSet")

إذا err.number <> 0 ثم الخروج وظيفة

مصدر RS.Open ، Conn ، المؤشر ، 2

إذا err.number <> 0 ثم الخروج وظيفة

تعيين getSqlServerRs = RS

وظيفة نهاية

٪>

ما سبق هو مقدمة مفصلة لبرنامج اتصال قاعدة البيانات العالمي. لمزيد من المحتوى ، يرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة الخاطئة!