[محاسب يوسف]

السلام عليكم
سكريبت سكول
كيف يكتب برمجيا

USE [AmnDb004]
GO
/****** Object: StoredProcedure [dbo].[prcDisableTriggers] Script Date: 05/16/2014 08:46:53 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[prcDisableTriggers]
@Tbl [VARCHAR](256),
@bExcludeReplicTriggers [BIT] = 1
AS
DECLARE @Sql [VARCHAR](8000)
IF @bExcludeReplicTriggers = 1
BEGIN
DECLARE
@c CURSOR,
@Tr [VARCHAR](300),
@Id [INT],
@TrRep [VARCHAR](300)
SET @TrRep = 'trg_' + @Tbl + '_replic'
SELECT @Id = [Id] FROM [dbo].[sysobjects] WHERE [Name] = @Tbl

SET @c = CURSOR FAST_FORWARD FOR
SELECT [Name] FROM [dbo].[sysobjects]
WHERE xtype = 'TR' AND [Name] NOT LIKE @TrRep + '%' AND [parent_obj] = @Id
OPEN @c FETCH FROM @c INTO @Tr
WHILE @@FETCH_STATUS = 0
BEGIN
SET @Sql = 'ALTER TABLE [' + @Tbl + '] DISABLE TRIGGER [' + @Tr + ']'
EXEC (@Sql)
FETCH FROM @c INTO @Tr
END
END ELSE BEGIN
SET @Sql = 'ALTER TABLE [' + @Tbl + '] DISABLE TRIGGER ALL'
EXEC (@Sql)
END

[Sajad]

السلام عليكم

انظر الى هذه المواضيع:

http://www.vb4arb.com/vb/thread-2271.html

http://www.vb4arb.com/vb/thread-2273.html

تحياتي

[محاسب يوسف]

شكرا اخي للرد ولكن هل ممكن مساعدتي بكود يكتب هذا سكريبت وشكرا

[Sajad]

السلام عليكم

ضع الكود في ملف .sql ثم استخدم البرنامج في مرفقات الموضوع الثاني لتحويلها الى قاعدة بيانات

تحياتي

[محاسب يوسف]

مثلا اخي الكريم انا انشات سكريبت بالداتا بيز اسمه script1
اريد كود تنفيذه
مع العلم انه بدون بارمترات
لانه مربوط ب viwe

[محاسب يوسف]

انا استخدم فيجوال بيسك دوت نت2008 ولا اعرف سي شارب وشكرا

[Sajad]

اخي العزيز انت لما تعمل Script من داخل SQL ستنتج ملف فيه هذه الاكواد

واذا اردت تحويلها الى قاعدة بيانات استخدم مرفقات الموضوع الثاني وسيتم عمل المطلوب

تحياتي

[محاسب يوسف]

السلام عليكم هل يمكن تحويل الكود الى فيجوال بيسك 2008 وشكرا

[محاسب يوسف]

Dim sqlConnectionString As String = ""
'Dim file As New FileInfo("C:\myscript.sql")
Dim file As New FileInfo("e:\CHECKALLPLANS.txt")

Dim script As String = file.OpenText().ReadToEnd()
Dim conn As New SqlConnection(sqlConnectionString)
Dim server As New Server(New ServerConnection(conn))
server.ConnectionContext.ExecuteNonQuery(script)
iهل كتابة الكود صحيح

[سعود]

كود :

Dim sqlConnectionString As String = ""
'Dim file As New FileInfo("C:\myscript.sql")
Dim file As New FileInfo("e:\CHECKALLPLANS.txt")

Dim script As String = file.OpenText().ReadToEnd()
Dim conn As New SqlConnection(sqlConnectionString)
Dim server As New Server(New ServerConnection(conn))
server.ConnectionContext.ExecuteNonQuery(script)

اكتب الكود بوسم كود افضل بعد تعيين المحاذاة لليسار.