تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية كتابة السكريبت برمجيا
#1
السلام عليكم
سكريبت سكول
كيف يكتب برمجيا

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
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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

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

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

تحياتي
الرد
تم الشكر بواسطة:
#3
شكرا اخي للرد ولكن هل ممكن مساعدتي بكود يكتب هذا سكريبت وشكرا
الرد
تم الشكر بواسطة:
#4
السلام عليكم

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

تحياتي
الرد
تم الشكر بواسطة:
#5
مثلا اخي الكريم انا انشات سكريبت بالداتا بيز اسمه script1
اريد كود تنفيذه
مع العلم انه بدون بارمترات
لانه مربوط ب viwe
الرد
تم الشكر بواسطة:
#6
انا استخدم فيجوال بيسك دوت نت2008 ولا اعرف سي شارب وشكرا
الرد
تم الشكر بواسطة:
#7
اخي العزيز انت لما تعمل Script من داخل SQL ستنتج ملف فيه هذه الاكواد

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

تحياتي
الرد
تم الشكر بواسطة:
#8
السلام عليكم هل يمكن تحويل الكود الى فيجوال بيسك 2008 وشكرا
الرد
تم الشكر بواسطة:
#9
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هل كتابة الكود صحيح
الرد
تم الشكر بواسطة:
#10
كود :
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)
اكتب الكود بوسم كود افضل بعد تعيين المحاذاة لليسار.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تحويل الوحدات في نموذج فاتورة البيع من كرتون لحبة وخلافه wessam.demerdash 3 306 25-06-19, 10:20 PM
آخر رد: atefkhalf2004
  سؤال عن كيفية جمع الارقام الموجبة فقط من عمود في الداتا جريد فيو alfaiz678 2 549 01-10-18, 09:24 AM
آخر رد: alfaiz678
  كيفية حفظ التعديل في Data Grid View مباشرا الى قاعدة البيانات اللورد محمود 1 1,140 02-08-18, 07:26 PM
آخر رد: سعود
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 6,281 16-07-18, 08:48 PM
آخر رد: aridje34
  كيفية استرجاع جدول محدوف المتألق9 0 390 11-07-18, 08:34 PM
آخر رد: المتألق9
  [VB.NET] كيفية عرض الصورة من الداتا جريد الى picture box mohamed2316 3 935 02-03-18, 05:07 PM
آخر رد: كناري008
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 10,352 04-10-17, 10:08 PM
آخر رد: sofiane0552
  كيفية عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس khaled12345 19 1,932 16-07-17, 07:23 PM
آخر رد: حريف برمجة
  كيفية تعديل صورة في قاعدة بيانات اكسس oz7z 6 793 29-03-17, 09:01 AM
آخر رد: oz7z
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 12,558 28-02-17, 10:21 AM
آخر رد: وائل القطاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم