أريد أن أعرف كيفية انشاء وحذف جداول الاستعلام عن طريق جمل ال Sql - ومكتبة الأدو

للرفع ضروووووووووووووووووووووووري

للرفع ضروووووووووووري

وأنا بعد محتاج هالكود لكن تعبت من البحث بكافة المواقع ..

لكني أعرف الفكره

أول شي / ننشئ الإستعلام بقاعدة البيانات

ثاني شي/ نقوم بعمل Drop للإستعلام ( بالكود)

ثالث شي/ نقوم بعملCreate الإستعلام مره ثانية ( بالكود)

لكن أصعب شي الطريقة الثانية .

وأصعب شي إنك لا تجد من يجاوبك أو من يواسيك

فما العمل يا اخوان

اسعفونا بارك الله فيكم

السلام عليكم...

قمت بتجربة الكود التالي مع SQL Server و قد نجح في الحالتين: إنشاء معاينة (CREATE VIEW) و حذف المعاينة (DROP VIEW).

* ملاحظة: صيغة جملة الـ SQL قمت بإنشائها من داخل SQL Server Enterprise Manager ثم نسختها إلى VB:

Private SQLCnn As New ADODB.Connection

Private Sub Form_Load()
	Dim SQLCnnString As String

	SQLCnnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False"
	SQLCnnString = SQLCnnString & ";Initial Catalog=MultStor"
	SQLCnnString = SQLCnnString & ";Data Source=(LOCAL)"
	SQLCnn.Open SQLCnnString
End Sub

Private Sub Form_Unload(Cancel As Integer)
	SQLCnn.Close
End Sub

Private Sub cmdCreateView_Click()
	Dim CmdText As String

	CmdText = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VIEW1]') "
	CmdText = CmdText & "and OBJECTPROPERTY(id, N'IsView') = 1) drop view [dbo].[VIEW1]"
	SQLCnn.Execute CmdText

	CmdText = "CREATE VIEW dbo.VIEW1 AS SELECT dbo.Customers.CustID, "
	CmdText = CmdText & "dbo.Customers.CustName, dbo.CustAccounts.AccountDate, "
	CmdText = CmdText & "dbo.CustAccounts.Statement FROM dbo.Customers INNER JOIN "
	CmdText = CmdText & "dbo.CustAccounts ON dbo.Customers.CustID = dbo.CustAccounts.CustID"
	SQLCnn.Execute CmdText
End Sub

Private Sub cmdDropView_Click()
	Dim CmdText As String

	CmdText = "if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[VIEW1]') "
	CmdText = CmdText & "and OBJECTPROPERTY(id, N'IsView') = 1) drop view [dbo].[VIEW1]"
	SQLCnn.Execute CmdText
End Sub

نرجو أن يحقق ذلك المطلوب و السلام.

جزاك الله خير

ومشكور وما قصرت

الأخ الكريم ، أنا تعاملت مع كلاً من Access و SQL-Server و Oracle من خلال الفيجوال 6.0 وكانت النتيجة واحدة سواء إدراج أو حذف عارض موجود داخل قاعدة البيانات ، وكانت تعمل بنجاح !!!!

Access :
--------
Create View V1 As Select * From Emp

Drop View V1

Oracle :
--------
Create Or Replace View V1 As(Select * From emp);

Drop View V1;

SQL-Server :
-------------
Create View V1 As Select * From Emp
Or
Create View V1 As(Select * From Emp)

Drop View Emp

مع العلم أن كل هذا يمكننا تنفيذة من داخل منفذ أوامر جمل الـ SQL الخاص بمكتبة Connection كما يلي :

Cn.Execute "SQL"

أكيد هناك مشكلة أخري غير واضحة ، ياريت تعرفنا ما هي رسالة الخطأ ، أو أفضل شيء إدراج مثال علي نوع معين من قواعد البيانات يحدث فية المشكلة !!!

شكراً