منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيفية كتابة السكريبت برمجيا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
سكريبت سكول
كيف يكتب برمجيا

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
السلام عليكم

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

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

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

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

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

تحياتي
مثلا اخي الكريم انا انشات سكريبت بالداتا بيز اسمه script1
اريد كود تنفيذه
مع العلم انه بدون بارمترات
لانه مربوط ب viwe
انا استخدم فيجوال بيسك دوت نت2008 ولا اعرف سي شارب وشكرا
اخي العزيز انت لما تعمل 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)
اكتب الكود بوسم كود افضل بعد تعيين المحاذاة لليسار.