منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية كتابة السكريبت برمجيا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://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

السلام عليكم

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

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

http://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)
اكتب الكود بوسم كود افضل بعد تعيين المحاذاة لليسار.