الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن التأكد من وجود الجدول قاعدة بيانات Sql Server 2000

بدأه abohamed في 9 يوليو 2008 · 5 رد · 1,858 مشاهدة · في قسم قواعد البيانات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

أخواني الأعزاء

لدي قاعدة بيانات SQL Server 2000 متصله مع برنامج فيجوال بيسك 6

المطلوب : أن يقوم البرنامج عند تشغيله بالتأكد من وجود أحد الجداول هل هو موجود أم لا ؟

إن لم يكن موجود قام بإنشاءة ....CREATE TABLE

وإن كان موجودا يتجاوز عملية إنشاء الجدول ويفتح الشاشة التالية .

فما هو الكود المطلوب للبحث عن الجدول في قاعدة البيانات هل هو مضاف للقاعدة أم لا ؟

منتظر ردودكم على أحر من الجمر

وتقبلوا خالص تحياتي .

تم تعديل هذه المشاركة بواسطة abohamed في 9 يوليو 2008 في 18:15

[وسط]

XCM59178.jpg

[/وسط]

[وسط] [وسط]الفريق العربي للبرمجة

[/وسط][/وسط]

#2

معقول عدد 22 ما احد يعرف الاجابة

تكفون ياشباب ساعدوني محتاج هالكود ضروري وبصفة عاجله

[وسط]

XCM59178.jpg

[/وسط]

[وسط] [وسط]الفريق العربي للبرمجة

[/وسط][/وسط]

#3

السلام عليكم

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

CREATE PROCEDURE [dbo].[Ad_addtable] 

AS

set nocount on
declare @count int --0 = the  field does not exist 
------------------------------------------------------------------
--نضع اسم الجدول   مع   اسم  حقل  فيه
SELECT @count= COALESCE(COL_LENGTH('dbo.TableName','code'),0)

if @count=0
begin

--  انشاء الجدول
CREATE TABLE [dbo].[dbo.TableName] (
	[code] tinyint (3)  NOT NULL ,
	[name] [nvarchar] (100) NOT NULL 

) 
end

بعد ذلك في الفيجوال بيسك نطلب البروسيجر

dim cmd  as  command 

cmd.commandtype=adcmdprocedure
cmd.commandText="Ad_addtable"
cmd.connection= Con 'Put ur Connection here

cmd.execute

واذا ما بدك الطريقة السابقة استخدم الاستعلام

select COALESCE(COL_LENGTH('dbo.TableName','code'),0) as XXX

عن طريق فتحه في RecordSet

واذا بدك طريقة اخرى لكن لاينصح بها وهي عمل استعلام على الجدول وفحص بعد ذلك وجود خطأ ام لا

#4

آسف لتأخري بالرد عليك

جزاك الله الف خير

أخي العزيز والله ما عندي معرفة في البروسيجر ولا بكيفية تنفيذه....... فمالعمل

هل توجد طريقة أخرى لعمل ذلك

[وسط]

XCM59178.jpg

[/وسط]

[وسط] [وسط]الفريق العربي للبرمجة

[/وسط][/وسط]

#5
اقتباس
واذا ما بدك الطريقة السابقة استخدم الاستعلام select COALESCE(COL_LENGTH('dbo.TableName','code'),0) as XXX

عن طريق فتحه في RecordSet

Dim rs as recordset 
dim sql as string 
sql  ="select COALESCE(COL_LENGTH('dbo.TableName','code'),0) as XXX"
rs.open sql,conn
if rs(0)=0 then
' غير موجود
else
' موجود
endif

وفي الكود السابق غير اسم الجدول بدل TableName واسم حقل موجود في الجدول بدل code

#6

لك الف شكر مني وتقدير

وجاري التجربة

[وسط]

XCM59178.jpg

[/وسط]

[وسط] [وسط]الفريق العربي للبرمجة

[/وسط][/وسط]

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…