اريد التاكد من ان الجدول موجود مسبقا في قاعدة البيانات

هذا موضوع في قسم C# يتكلم عن كيفية الحصول على لائحة الجداول الموجودة على قاعدة بيانات من نوع Acsess. يمكنك تحويل الكود إلى VB.NET و تحريره حسب احتياجاتك.

كيف استطيع الحصول برمجيا على اسماء الجداول والحقول, القاعدة المتعامل معها هي اكسس ,

موقع تحويل أكواد الدوت نت

تحياتي...

اشكرك على الرد

لكني لم اعرف كيف

أولا قم بزيادة مرجع للمكتبة Microsoft DAO 3.6 Library إلى مشروعك

ثانيا زد الدالة التالية على الفورم الذي تريد فيه التأكد من وجود الجدول :

	' التأكد من وجود جدول
	' TableName +> اسم الجدول المراد التحقق من وجوده
	Private Function TableExists(ByVal TableName As String) As Boolean
		' نفترض أنه غير موجود
		Dim exists As Boolean = False
		' إنشاء مسير قواعد البيانات
		Dim dbe As New DAO.DBEngine()
		' فتح قاعدة البيانات
		Dim db As DAO.Database = dbe.OpenDatabase("testess.mdb")
		' استعراض الجداول
		For Each tbl As DAO.TableDef In db.TableDefs
			' التأكد من اسم الجدول
			If tbl.Name = TableName Then
				' الجدول موجود
				exists = True
				' خروج من لوب استعراض جداول قاعدة البيانات
				Exit For
			End If
		Next
		' غلق قاعدة البيانات
		db.Close()
		' تحرير الذاكرة
		db = Nothing
		dbe = Nothing
		' الرجوع بالنتيجة
		Return exists
	End Function

و أخيرا قم بالمناداة على الدالة بالشكل التالي :

TableExists("tab1")

تحياتي...

اشكرك من كل اعماق قلبي اخ محمد رضى

الامور تمت بنجاح

فعلا يعجز اللسان عن شكرك

لاني تعبت وانا ابحث