klinton
شنبه 22 بهمن 1390, 20:42 عصر
با سلام
با توجه به اینکه بعضی ازدوستان در مورد نصب کریستال رپورت و SQL Server تو سیستم مقصد سوال دارنتصمیم گرفتم یه آموزش خلاصه از ایجاد Setup درست کنم که امیدوارم مفید باشه.
بعضی از دوستان سوال دارن که برای برنامه هایی که نوشتن کریستال رپورت ومخصوصا SQL Server روبصورت دستی و مجزا تو سیستم مقصد نصب کنن که جواب منفی هست و با ایجاد یه فایلستاپ و ضمیمه کردن کریستال و اس کو ال میتونن وظیفه نصب این دو رو در صورت عدموجود در سیستم مقصد به عهده ی فایل ستاپ بذارن والبته در مورد اتچ کردن بانک کدیهست که در آخر میذارمش:
1------ ابتدا باید یه پروژه ایجاد کنید و نوعش رو SetupProject انتخاب کنید
2------- سپس فایل هایی رو که میخواهید به پروژتون add کنید معمولا تمام فایل های موجود در پوشه ی debug
3-------- گام بعدی ایجاد shortcut تو desktop و program menu سیستم مقصد هست برای اینکار1و2
را انتخاب کرده و روی 3 راست کلیک کنید و createshortcut رو انتخاب کنید از فرم جدید فایل exe برنامه تان را انتخاب کنید
82475
4------ برای اضافه کردن SQL و crystal در solution explorer روی پروژه ستاپ (setup1) راست کلیک کرده و در properties باتن prerequisites.. راانتخاب کنید
82477
5-------- در فرم جدید کریستال رپورت و اس کو ال سرور رو اضافهکنید .البته windows installer , .net framework بصورت پیش فرض انتخاب شده اند و از سه رادیو باتن دومی را انتخابکنید
82478
6------- برای افزودن پوشه به دایرکتوری نصب برنامه فولدر به aplication folder اضافه کنید و خاصیت always create را true کنید.
82479
8-------میتوانید آیکونی به پروژه اضافه کنید و به فایل exe برنامه مقید کنید. تنظیمات رجیستری و دایرکتوری در صورت نیاز در solution و file system or target machine موجود هستند.
9--------برنامه را build کنید . فایل ستاپ در my projects موجود است
10-------- کد اتچ کردن بانک (در اولین فرم لود شده ):
Dim cm As New SqlClient.SqlCommand()
cm.Connection =
New SqlClient.SqlConnection("Data Source=.;user id=sa;password=1")
Dim dbname As String = "Anbar"
cm.CommandText =
"USE [master] IF NOT EXISTS (Select name from sys.databases WHERE name = N'" & dbname & "') EXEC sp_attach_db @dbname = N'" & dbname & "', @filename1 = N'" & Application.StartupPath.ToString() & "\DataBase\" & dbname & "_Data.mdf', @filename2 = N'" & Application.StartupPath.ToString() & "\DataBase\" & dbname & "_log.ldf';"
cm.Connection.Open()
cm.ExecuteNonQuery()
cm.Connection.Close()
البته در این کد فولدر DataBase در اپلیکیشن فولدر (6) اضافه شده و فایل دیتابیس در این پوشه قرار گرفته . به integrated security کامند توجه شود.
سوالی بود مطرح بفرمایید :چشمک:
با توجه به اینکه بعضی ازدوستان در مورد نصب کریستال رپورت و SQL Server تو سیستم مقصد سوال دارنتصمیم گرفتم یه آموزش خلاصه از ایجاد Setup درست کنم که امیدوارم مفید باشه.
بعضی از دوستان سوال دارن که برای برنامه هایی که نوشتن کریستال رپورت ومخصوصا SQL Server روبصورت دستی و مجزا تو سیستم مقصد نصب کنن که جواب منفی هست و با ایجاد یه فایلستاپ و ضمیمه کردن کریستال و اس کو ال میتونن وظیفه نصب این دو رو در صورت عدموجود در سیستم مقصد به عهده ی فایل ستاپ بذارن والبته در مورد اتچ کردن بانک کدیهست که در آخر میذارمش:
1------ ابتدا باید یه پروژه ایجاد کنید و نوعش رو SetupProject انتخاب کنید
2------- سپس فایل هایی رو که میخواهید به پروژتون add کنید معمولا تمام فایل های موجود در پوشه ی debug
3-------- گام بعدی ایجاد shortcut تو desktop و program menu سیستم مقصد هست برای اینکار1و2
را انتخاب کرده و روی 3 راست کلیک کنید و createshortcut رو انتخاب کنید از فرم جدید فایل exe برنامه تان را انتخاب کنید
82475
4------ برای اضافه کردن SQL و crystal در solution explorer روی پروژه ستاپ (setup1) راست کلیک کرده و در properties باتن prerequisites.. راانتخاب کنید
82477
5-------- در فرم جدید کریستال رپورت و اس کو ال سرور رو اضافهکنید .البته windows installer , .net framework بصورت پیش فرض انتخاب شده اند و از سه رادیو باتن دومی را انتخابکنید
82478
6------- برای افزودن پوشه به دایرکتوری نصب برنامه فولدر به aplication folder اضافه کنید و خاصیت always create را true کنید.
82479
8-------میتوانید آیکونی به پروژه اضافه کنید و به فایل exe برنامه مقید کنید. تنظیمات رجیستری و دایرکتوری در صورت نیاز در solution و file system or target machine موجود هستند.
9--------برنامه را build کنید . فایل ستاپ در my projects موجود است
10-------- کد اتچ کردن بانک (در اولین فرم لود شده ):
Dim cm As New SqlClient.SqlCommand()
cm.Connection =
New SqlClient.SqlConnection("Data Source=.;user id=sa;password=1")
Dim dbname As String = "Anbar"
cm.CommandText =
"USE [master] IF NOT EXISTS (Select name from sys.databases WHERE name = N'" & dbname & "') EXEC sp_attach_db @dbname = N'" & dbname & "', @filename1 = N'" & Application.StartupPath.ToString() & "\DataBase\" & dbname & "_Data.mdf', @filename2 = N'" & Application.StartupPath.ToString() & "\DataBase\" & dbname & "_log.ldf';"
cm.Connection.Open()
cm.ExecuteNonQuery()
cm.Connection.Close()
البته در این کد فولدر DataBase در اپلیکیشن فولدر (6) اضافه شده و فایل دیتابیس در این پوشه قرار گرفته . به integrated security کامند توجه شود.
سوالی بود مطرح بفرمایید :چشمک: