Stored Procedure Generator

[مهدی کرامتی]

سلام.

در SQL Server Enterprise Manager 2000 ابزاری وجود داشت که به کمک آن می شد به سختی Stored Procedure ها را بطور نیمه خودکار ایجاد کرد و از نوشتن آنها بصورت دستی خلاص شد. اون ابزار خیلی خوب نبود، اما بقول قدیمی ها کوزه شکسته ای بود که گاهی وقتا ازش آب می خوردیم.

فقدان اون ابزار در SQL Server Management Studio 2005 باعث شد دنبال یک ابزار آماده بگردم، و راه دست ترین چیزی که یافتم این بود: EZStoredProc

ابزار فوق هم تمام کارهایی که من میخواستم رو انجام نمی داد، و از نسخه آزمایشی اش استفاده میکردم، اونقدرها هم برام نمی ارزید که قیمت 45 دلاری اش رو پرداخت کنم و بخرمش.

این روزها کمی وقت آزاد بیشتری دارم و میتونم بیشتر برای بازی با کد وقت بگذارم، بنابراین تصمیم گرفتم خودم یکی مثل اون، البته با قابلیت های مد نظرم رو بنویسم. نتیجه اش هم چیزی شده که تصویرش رو در زیر می بینید:

اگر شما هم دوست دارید از یک ابزار آماده برای تولید Stored Procedure هاتون استفاده کنید می تونید از این برنامه استفاده کنید. چیز ساده ای است، اگر پیشنهادی برای بهتر شدنش دارید در خدمت هستم.

کار کردن با این ابزار خیلی ساده است، اسم سرور رو وارد میکنید، دکمه Connect رو کلیک می کنید، دیتابیس، و سپس جدول مورد نظر رو انتخاب میکنید و کلید Generate ... رو کلیک میکنید.
برای ایجاد Stored Procedure ها کافیه اسکریپت SQL ایجاد شده رو در SQL Management Studio در یک Query جدید Copy/Paste کنید و اجرایش کنید.

بعدا که این برنامه کاملتر بشه سورس اش رو هم جهت مقاصد آموزشی ارائه خواهم داد.

موفق باشید.

[pranses_smt]

جناب delphiassistant واقعا عالیه
دستتون درد نکنه

[hamed_bostan]

من قبلا خودم این برنامه رو چون بهش نیاز داشتم نوشتم و بر اساس متد های خودم تو کد نویسی توابع vb.net اونها رو هم که استورد پروسیجر رو call میکرد نوشتم و خیلی هم حال داد . نقایصی هم داشت که دستی تو اسکریپت حل میشد و لی ثسمت استورد پرئسیجرش به کاملی برنامه بالا نبود .

ممنون

[hdv212]

DelphiAssistant عزیز، ممنون از این حرکت قشنگت.
من برنامه تو اجرا کردم و به محض اینکه به سرور کانکت شدم این پیغام رو میده و فقط دیتابیس ها رو نشون میده (هیچ زیر مجموعه ای براشون درست نکرده):



در ضمن اگه کاراکترهای فیلد پسورد به صورت * باشه، خیلی بهتره.
موفق باشید.

[anubis_ir]

با تشکر.
- جناب کرامتی از چه برنامه‌ای برای pack‌ کردن برنامه استفاده کرده‌اید؟

چند پیشنهاد:
- از یک ترد برای لیست کردن دیتابیس‌ها استفاده کنید تا برنامه هنگام اتصال به سرور در ابتدای کار هنگ نکنه.
- یک دکمه کوچک ذخیره در فایل مفید‌تر خواهد بود (بجای کپی در حافظه).
- اگر هر جدول را در یک tab‌ جداگانه باز کند زیباتر و کاربردی‌تر خواهد شد.
- اضافه کردن یک منوی جهنده با کلیک راست روی جدول انتخابی همانند دکمه بالایی برای تولید رویه ذخیره شده معمول‌تر و آشناتر است.
- بحث syntax highlighting رو هم می‌تونید اضافه کنید :)

[مهدی کرامتی]

به محض اینکه به سرور کانکت شدم این پیغام رو میده و فقط دیتابیس ها رو نشون میده (هیچ زیر مجموعه ای براشون درست نکرده)

احتمالا کاربر sa دسترسی کافی برای مشاهده view فوق نداره. برای تست این موضوع این دستور رو تو Management Studio تون اجرا کنید ببینید چی جواب میده:

Select * from AdventureWorks.sys.tables

@ anubis_ir:
از لطف شما متشکرم.

بنده از نرم افزار Xheo CodeVeil برای Protect کردن استفاده کردم.

پیشنهادات شما را نیز مد نظر قرار خواهم داد.

[Cave_Man]

آقای کرامتی عزیز این App Win32 نیست؟ ظاهرا دات نت هست درسته؟خواهشا به Win32 تبدیل کنید

[مهدی کرامتی]

خیر، مبتنی بر WinForms.Net است و برای اجرا به .Net Framework 2.0 نیاز دارد.

بعدا که کاملتر شد شاید یک Native Image هم ازش منتشر نمودیم.

[پرواز]

جناب کرامتی دستتون درد نکنه. کار قشنگیه.

فقط یه مشکل کوچولو:
وقتی که sp مربوط به Update رو میسازه، تو شرط Where وقتی که عبارتی بعد از کلمه And قرار میگیره، بین اون عبارت و کلمه And فاصله وجود نداره: andFieldName

[مهدی کرامتی]

اصلاح شد.

نسخه 1.0.1 ضمیمه شده است.

[mina_s3]

سلام
مرسی، نرم افزار عالییه ، اما نمیدونم چرا من نمی تونم رو PCایم نصبش کنم

[jalalx]

بابت این برنامه دست شما درد نکنه ولی خوب می شد اگه پروسیجر تولید شده دارای Transaction می بود. مثل این:

USE Accounting;

GO



--Defintion of procedure

CREATE PROCEDURE [AddPersonnel]

(

    @FirstName    [nvarchar](50),

    @LastName     [nvarchar](50),

    @Phone        [nvarchar](50),

    @Mobile     [nvarchar](50),

    @Address     [nvarchar](50)

)

AS



--Starting transaction

BEGIN TRANSACTION



--Insert command

INSERT INTO Customers VALUES (@FirstName,@LastName,@Phone,@Mobile,@Address) 

    

    --Checks for any error 

    IF @@ERROR <> 0

    BEGIN

        --Roll back any change made by command.

        ROLLBACK

        

        --Display message

        RAISERROR ('Error Adding Customer Record', 16, 1)



        --Exit form procedure

        RETURN

    END



--Save all changes on database and exit

COMMIT

RETURN

[bahman_akbarzadeh]

بابت این برنامه دست شما درد نکنه ولی خوب می شد اگه پروسیجر تولید شده دارای Transaction می بود. مثل این:

USE Accounting;

GO



--Defintion of procedure

CREATE PROCEDURE [AddPersonnel]

(

    @FirstName    [nvarchar](50),

    @LastName     [nvarchar](50),

    @Phone        [nvarchar](50),

    @Mobile     [nvarchar](50),

    @Address     [nvarchar](50)

)

AS



--Starting transaction

BEGIN TRANSACTION



--Insert command

INSERT INTO Customers VALUES (@FirstName,@LastName,@Phone,@Mobile,@Address) 

    

    --Checks for any error 

    IF @@ERROR <> 0

    BEGIN

        --Roll back any change made by command.

        ROLLBACK

        

        --Display message

        RAISERROR ('Error Adding Customer Record', 16, 1)



        --Exit form procedure

        RETURN

    END



--Save all changes on database and exit

COMMIT

RETURN

در صورتی احتیاج میشه که چند تراکنش داشته باشیم.
وقتی یک تراکنش موجود باشه، اگه به مشکلی بخوره، چیزی ثبت نمیشه، وگرنه ثبت میشه.

در ضمن من یه گله هم دارم و اون اینه که چرا نرم افزاری که داره یک سری کد شی گرا تولید میکنه، خودش شی گرا نوشته نشده ... البته اگه فرم ها رو کلاس در نظر نگیریم.

[saed2006]

اخرین ورژن پروژه اونجایی که dal تولید میشه
روی DbObject خطا میگیره
چجوری باید رفع کنم؟
من هرچی دنبال dll تو فولدر پروژه گشتم چیزی رو پیدا نکردم

[mrvakil]

جناب DelphiAssistant ، جسارتا یه پیشنهاد داشتم که می تونه به زیبا تر شدن برنامتون کمک کنه ،
می تونید خودتون تو برنامتون query ایجاد کردن stored procedure ای که ایجادش کردینو
توی دیتابیسی که کاربر انتخابش کرده اجرا کنید ، تا اینکه کاربر بخواد اونو Copy/Paste کنه توی دیتابیسش و بعد بسازتش.

[hdv212]

احتمالا کاربر sa دسترسی کافی برای مشاهده view فوق نداره. برای تست این موضوع این دستور رو تو Management Studio تون اجرا کنید ببینید چی جواب میده:

آقای کرامتی عزیز ممنون از لطفتون، مگه میشه sysAdmin دسترس به آبجکتی نداشته باشه ، خیر، توی دیتابیس جواب میده، احتمالا دلیل این خطا به خاطر اینه که من چندتا Instance روی سیستم نصب دارم، ولی آخه به اونا چه ربطی داره ؟
منظورم Instance های دیگه س.

در ضمن اگه امکان اتصال به Instanceهای نصب شده روی سیستم رو هم داشته باشه، عالیه، هرچند من هنوز موفق نشدم با موفقیت اجراش کنم.ولی ایده ی فوق العاده خوبیه، ما سراپا ایده ایم!

بعدا که کاملتر شد شاید یک Native Image هم ازش منتشر نمودیم.

چطوری منتشر میکنی ؟ به ما هم یاد بده استاد ؟ من هر جا خوندم ندیدم Narive Image برنامه های دات نت را Distribute کنن(یعنی میگفتن نمیشه)

[Cave_Man]

من هر جا خوندم ندیدم Narive Image برنامه های دات نت را Distribute کنن(یعنی میگفتن نمیشه)

امیدوارم که بشه چون خیلی دوست دارم از این برنامه استفاده کنم در غیر این صورت متاسفم که از استفاده از این برنامه محروم میشم!!

[hdv212]

امیدوارم که بشه چون خیلی دوست دارم از این برنامه استفاده کنم در غیر این صورت متاسفم که از استفاده از این برنامه محروم میشم!!

البته این کمبود، دلیل داره، زمانی که Clr میخواد برنامه ی کامپایل شده به MsIL رو به NativeCode تبدیل کنه، کاملا هوشمندانه این کار رو انجام میده، یعنی با توجه به نوع پردازشگر و Performance سیستم، این کار رو انجام میده تا بیشترین کارایی رو داشته باشه، به خاطر همین، انتشار NativeCode برنامه های دات نت (تازه اگه بشه)، عملی غیر معقولانه س، چون Performance سیستمهای مختلف با هم فرق میکنه و شاید با کارایی سیستمی که اون NativeCode رو ساخته نباشه.
منبع : Wrox Pro Csharp 2005

[مهدی کرامتی]

آقای کرامتی عزیز ممنون از لطفتون، مگه میشه sysAdmin دسترس به آبجکتی نداشته باشه ، خیر، توی دیتابیس جواب میده، احتمالا دلیل این خطا به خاطر اینه که من چندتا Instance روی سیستم نصب دارم، ولی آخه به اونا چه ربطی داره ؟
منظورم Instance های دیگه س.

فکر نمی کنم به Instance ربطی داشته باشه، چون Instance مورد نظر رو از روی Connection String که از تنظیمات وارد شده توسط شما تعیین میشه تشخیص میده.

در ضمن اگه امکان اتصال به Instanceهای نصب شده روی سیستم رو هم داشته باشه، عالیه، هرچند من هنوز موفق نشدم با موفقیت اجراش کنم.ولی ایده ی فوق العاده خوبیه، ما سراپا ایده ایم!

شما تو این نسخه هم میبایست بتوانید این کار را انجام دهید. در بخش Server Name نام سرور رو اینجوری وارد کنید ببینید جواب میده یا نه:

ServerName\InstanceName

[hdv212]

شما تو این نسخه هم میبایست بتوانید این کار را انجام دهید. در بخش Server Name نام سرور رو اینجوری وارد کنید ببینید جواب میده یا نه

ممنون از پاسخ خوبتون، منظورم این بود که بتونه Instance ها رو هم تشخیص بده.

[mahdi_farhani]

با تشکر از اقای کرامتی
هنگام Connect کردن به من این ارور رو میده

invalid object name sys.databases

[مهدی کرامتی]

با تشکر از اقای کرامتی
هنگام Connect کردن به من این ارور رو میده

invalid object name sys.databases

آیا نام سرور را وارد می کنید؟

[مهدی کرامتی]

نسخه 1.4 با تغییرات زیر آماده شد:

1. افزوده شدن یک Code Editor با قابلیت های Syntax Hilighting و Code Folding
2. افزوده شدن امکان درج نام نویسنده SP در قسمت توضیحات بالای هر اسکریپت
3. تشخیص و استفاده از شناسه MAX بعنوان طول رشته در فیلدهای char و ...

[Behrouz_Rad]

ممنون از پاسخ خوبتون، منظورم این بود که بتونه Instance ها رو هم تشخیص بده.

برای لیست کردن Instance ها میشه از SQL-DMO به شکل ذیل استفاده کرد:

Dim oNames As SQLDMO.NameList

Dim oSQLApp As New SQLDMO.Application

oNames = oSQLApp.ListAvailableSQLServers()

For i As Int32 = 1 To oNames.Count

      MessageBox.Show(oNames.Item(i))

Next

اگر چیزی برگشت داده نشد یعنی localhost

موفق باشید.

[Behrouz_Rad]

با تشکر از اقای کرامتی
هنگام Connect کردن به من این ارور رو میده

invalid object name sys.databases

شما از SQL Server 2000 استفاده می کنید.
در SQL Server 2000، نام دیتابیس ها در جدول sysdatabases نگهداری میشه اما در SQL Server 2005، نام دیتابیس ها در جدول sys.databases ذخیره میشه.
جناب کرامتی با یک ساختار Try-Catch میشه این مشکل رو حل کرد و یا برای آگاهی از نسخه ی SQL Server، میشه از متغیر سیستمی Version@@ استفاده کرد.

موفق باشید.

[mahdi_farhani]

دستتون درد نکنه ، جواب داد
به نظر من اگر بشه همزمان چند Table را با هم انتخاب کرد خیلی بهتره .
در ضمن بازم هم همون مشکل Relation ها که گفتم وجود داره ، Select شما هم به صورت ساده نوشته شده . من می خواهم Join ها و شرط Join هم بدست بیاد .
اگر یه امکان دیگه هم بزارید خوب میشه ، به جای اینکه اول همه sp ها کلمه sp رو بزاره متغییر باشه ، یا حتی فرمت نامگذاری SP ها را بگیره ،
اینهایی که گفتم من تو برنامم دارم .

[anubis_ir]

جناب اسیستنت،

Don't use the prefix "sp_" in the stored procedure name if you need to create a stored procedure to run in a database other than the master database.

http://www.mssqlcity.com/Tips/stored...timization.htm

[beh_develop]

آقای اسیستانت دستتون درد نکنه، واقعا عالیه ، فقط برای من این پیغام خطا رو داد :

Invalid column name 'NAME'.

Invalid column name 'Name'.

سروری که اسمشو وارد کردن نسبت به حروف بزرگ و کوچک حساسه ، ولی وقتی نام سروری که به حروف حساس نبود و وارد کردم کاملا کار کرد.
ممنون میشم این ایرادشم رفع کنین.

[مهدی کرامتی]

منظورتون رو خوب متوجه نشدم، چطور میشه یه سرور نسبت به حروف بزرگ و کوچک حساس باشه و دیگری نباشه؟

آیا تنظیمات خاصی رو سرور باعث این قضیه میشه؟

[Elham_gh]

منظورتون رو خوب متوجه نشدم، چطور میشه یه سرور نسبت به حروف بزرگ و کوچک حساس باشه و دیگری نباشه؟

آیا تنظیمات خاصی رو سرور باعث این قضیه میشه؟

چطور امکان نداره،Collation هایSQL Server هایی که روی 2 تا سرور است متفاوته. یکی Case-Sensitive و دیگری Case_inSensitive است.

[beh_develop]

مثلا اگه Table با نام Students داشته باشین و سرور نسبت به حروف حساس باشه دستور Select * From students یا Select * from STUDENTS اجرا نمیشه، میگه چنین جدول وجود نداره.

من احتمال میدم SQL Server شما نسبت به حروف حساس نیست، اگه بود حتما error می داد

آقای اسیستانت وقتی SQL Server 2000 رو روی ویندوز Server نصب می شه اگه به صورت Default نصب شه ، نسبت به بزرگ کوچیکی حرف ها حساس نمیشه، ولی وقته حالت Default انتخاب نکنیم و می تونیم خودمون انتخاب کنبم که سرور Case Sensitive باشه یا نه

[مهدی کرامتی]

میدونم که میشه چنین تنظیمی انجام داد، اما در کدام قسمت و چه گزینه ای؟

لطفا مراحل تنظیم یک سرور بصورت فوق را بنویسید.

[beh_develop]

سعی می کنم تا 3 ساعت جواب سوالتون و بدم ، آخه ویندوز سرور رو سیستم ندارم ، الان دارم نصب می کنم...

[مهدی کرامتی]

نسخه 1.0.7 با این تغییرات آماده شد:

• افزوده شدن امکان تغییر پیشوند Stored Procedure ها به دلخواه شما. اگر می خواهید هیچ پیشوندی برای SP استفاده نکنید کافی است مقدار Prefix را حذف کنید.
• ادغام کتابخانه Draco.Controls در پروژه با استفاده از سورس های موجود. اگر از قبل فایل Draco.Controls.CodeEditor.dll در کنار این پروژه قرار دارد می توانید با خیال راحت آن را حذف کنید. این ادغام باعث بزرگ شدن سایز اسمبلی خروجی پروژه شده است، اما سرعت اجرا سریع تر شده است.

[beh_develop]

دوباره سلام، من SQL Server 2000 رو نصب کردم و اون قسمتی که می گفتم رو ازش عکس گرفتم. می تونین ببینین. اگه گزینه اول یا دوم انتخاب بشه ، نسبت به بزرگی و کوچیکی حروف SQL Server حساس می شه.

ضمیمه 13006

[مهدی کرامتی]

من الان SQL Server 2000 و 2005 رو نصب شده دارم، بعد از نصب کجا می تونم این تغییر رو اعمال کنم؟

[beh_develop]

آقای اسیستانت، تا اونجایی من می دونم فقط هنگام نصب میشه این تنظیمات و انجام داد و بعدش دیگه نمیشه کاری کرد.

من فکر کنم اشکال کار زیاد به سرور ربط نداره، میشه لطف کنین بگین که تو کد برنامتون این دستور( یا دستورات دیگرو) از لحاظ بزرگ کوچیکی چطور نوشتین؟

Select name from master.dbo.sysdatabase

یا اگه می تونین یه Instance دیگه ای از SQL 2000 رو سیستمتون نصب کنین(با تنظیماتی که تو عکس تو پست قبلی نشون دادم)، برنامتونو رو اون سرور تست کنین.

[مهدی کرامتی]

این دستوری است که من برای بدست آوردن لیست دیتابیس ها در SQL Server 2000 استفاده میکنم:

SELECT dbid AS ID, NULL AS ParentID, NAME AS Text FROM [master].[dbo].[sysdatabases] ORDER BY [Name]

[beh_develop]

با سلامی دوباره:

آقای اسیستانت پیغا خطاهایی که برنامه شما رو سروری که من تست کردم اینا بودن :

Invalid column name 'NAME'.

Invalid column name 'Name'.

در داخل Query که نوشتین اگه دقت کنین فیلد name رو به ای ترتیب نوشتین :

select * from sysdatabases

SELECT dbid AS ID, NULL AS ParentID, NAME AS Text FROM [master].[dbo].[sysdatabases] ORDER BY [Name]

فیلد Name و NAME ای که شما نوشتین اگه با حروف کوچک بنویسین مشکل برنامه حل
میشه. ( اگه تمامی فیلدهایی که تو Query نوشتین دقیقا با Database یکی باشه فکر نکنم دیگه مشکلی باشه)

ممنون، شرمنده که این موضوع این همه طولانی شد.

[مهدی کرامتی]

من موردی رو که شما ذکر کردید تست نکردم، ولی سعی کردم اصلاحش کنم. لطفا تست کنید ببینید درست شده یا نه (ضمیمه را دانلود کنید).