+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (https://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (https://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيفية كتابة السكريبت برمجيا (/showthread.php?tid=2888)
كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
السلام عليكم
سكريبت سكول
كيف يكتب برمجيا
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
RE: كيفية كتابة السكريبت برمجيا - Sajad - 16-05-14
السلام عليكم
انظر الى هذه المواضيع:
https://www.vb4arb.com/vb/thread-2271.html
https://www.vb4arb.com/vb/thread-2273.html
تحياتي
RE: كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
شكرا اخي للرد ولكن هل ممكن مساعدتي بكود يكتب هذا سكريبت وشكرا
RE: كيفية كتابة السكريبت برمجيا - Sajad - 16-05-14
السلام عليكم
ضع الكود في ملف .sql ثم استخدم البرنامج في مرفقات الموضوع الثاني لتحويلها الى قاعدة بيانات
تحياتي
RE: كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
مثلا اخي الكريم انا انشات سكريبت بالداتا بيز اسمه script1
اريد كود تنفيذه
مع العلم انه بدون بارمترات
لانه مربوط ب viwe
RE: كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
انا استخدم فيجوال بيسك دوت نت2008 ولا اعرف سي شارب وشكرا
RE: كيفية كتابة السكريبت برمجيا - Sajad - 16-05-14
اخي العزيز انت لما تعمل Script من داخل SQL ستنتج ملف فيه هذه الاكواد
واذا اردت تحويلها الى قاعدة بيانات استخدم مرفقات الموضوع الثاني وسيتم عمل المطلوب
تحياتي
RE: كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
السلام عليكم هل يمكن تحويل الكود الى فيجوال بيسك 2008 وشكرا
RE: كيفية كتابة السكريبت برمجيا - محاسب يوسف - 16-05-14
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هل كتابة الكود صحيح
RE: كيفية كتابة السكريبت برمجيا - سعود - 17-05-14
كود :
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)