سؤال في الكريستال ريبورت

بسم الله الرحمن الرحيم

أولا عليك ربط الكريستال ريبورت بview منشأ في قاعدة البينات وبعدها سميه:

view1

هندها تقوم بكتابة هذا الكود لتغير الview1 عند الضغط على button1 مثلا:

[ Dim cn As New ADODB.Connection

Dim cm As New ADODB.Command

Dim cm2 As New ADODB.Command

cn.Provider = "sqloledb"

cn.ConnectionString = "data sourse"

cn.Open()

cm2.ActiveConnection = cn

cm.ActiveConnection = cn

cm.CommandType = ADODB.CommandTypeEnum.adCmdText

cm.CommandText = "if exists(select * from sysobjects where name ='view1' "') drop view 1" & customerid

cm.Execute()

cm2.CommandType = ADODB.CommandTypeEnum.adCmdText

cm2.CommandText = "create view1" & customerid & " as select * from customer where [customer id]= " & customerid

cm2.Execute()

cn.Close()]

ووظيفة هذا الكود هو هد الview1 القديم وإنشاء view1 جديد على حسب القيود المطلوبة

ملاحظة : هذا الكود يستخدم فقط إذا كان البرنامج المنشأ لمسخد واحد فقط وعليك إضافة refrance من نافذة solution explorer بالنقر على على

refrances واضافة adobd

وبالتوفقيق إنشأأأأأأأأأأأأأالله

أخوكMegren

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

الف الف شكر لك يااخ megren على حسن تجاوبك وشرحك الجميل حيث اني والله قد فقدت الامل في الحصول على اجابة لمشكلتي حتى اني اضطررت لعرض المشكلة في قسم التقارير التابع لفيجوال 6 ولكن للاسف لم اجد من يساعدني فشكرا وجزاك الله خيرا

بسم الله

لسلام عليكم

ولكن أخي الكريم MEGREN كيف يمكن الربط بين الريبورت والفيو ، معذرة فأنا لم أتعامل مع الفيو إلا بشكل طفيف

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