+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : خطأ فى الكود 2147217865- (/showthread.php?tid=15558)
خطأ فى الكود 2147217865- - اسلام الكبابى - 22-04-16
متى تظهر رسالة الخطأ التالية؟ وكيف نتفادى هذا الخطأ؟
TABLE DOS NOT EXIST
و متى تظهر رسالة الخطأ التالية؟ وكيف نتفادى هذا الخطأ؟
TABLE ALREADY EXIST
ولكم ألف شكر
RE: خطأ فى الكود 2147217865- - Ahmed_Mansoor - 22-04-16
أهلا أخي الكريم , تظهر هذه الرسالة TABLE DOS NOT EXIST عندما تحاول فتح إو إستخدام جدول غير موجود في قاعدة البيانات , وتظهر هذه الرسالة TABLE ALREADY EXIST عندما تريد إنشاء جدول موجود في قاعدة البيانات مسبقاً , قمت بعمل دالة لكي تفحص وجود الجدول في قاعدة البيانات من عدمه , الدالة كالتالي :
PHP كود :
Private Function Is_Table_Exist(zTableName As String) As Boolean
On Error GoTo zER
Dim zErrNumber As Long
If Trim$(zTableName) = "" Then Is_Table_Exist = False: Exit Function
If RS.State = 1 Then RS.Close
RS.Open "Select * From " & Trim$(zTableName), DB, adOpenStatic, adLockPessimistic
If RS.State = 1 Then RS.Close
Is_Table_Exist = True
Exit Function
zER:
zErrNumber = Err.Number
If zErrNumber <> 0 Then
If RS.State = 1 Then RS.Close
Is_Table_Exist = False
Err.Clear
Exit Function
Else
Is_Table_Exist = True
Err.Clear
End If
End Function
حيث DB هو كائن ADO الذي يتصل بقاعدة البيانات و RS هو كائن ADO الذي يتصل بالجدول , وطريقة إستخدامها كالتالي :
PHP كود :
IF Is_Table_Exist("Table1") = True Then
MsgBox "الجدول موجود في قاعدة البيانات"
Else
MsgBox "الجدول غير موجود في قاعدة البيانات"
End IF
حيث تمرر للدالة إسم الجدول الذي تريد فحص وجوده من عدمه في قاعدة البيانات فإذا أرجعت الدالة القيمة True فهذا يعني أن الجدول موجود وإذا أرجعت القيمة False فهذا يعني أن الجدول غير موجود في قاعدة البيانات , قم بإستخدام هذا الدالة قبل فتح الجدول الذي تريد إستخدامه في جملة الإستعلام .
RE: خطأ فى الكود 2147217865- - اسلام الكبابى - 22-04-16
بارك الله فيك
ولك ألف شكر