View Full Version : چگونه ديتابيس SQL را به همراه برنامه ام ارسال كنم...
Afshin160
جمعه 22 شهریور 1387, 01:42 صبح
سلام به تمامي دوستان برنامه نويس......
اميدوارم سلامت و تن درست باشيد........
من برنامه اي به زبان VB.net نوشتم به و با database SQL Server 2005 قراراين برنامه را چند USER در جا هاي مختلف كار كنند يعني تحت شبكه نيست ...حال چند سوال دارم....
1- من بايد اين Database را به چه صورت به سيستم USER هايم انتقال بدهم ...؟
2- براي كار بااين برنامه چه برنامه هايي بايد رو سيستم آنها نصب كنم يعني چه برنامه هايي را در Setup برنامه ام در نظر بگيرم ....؟
3- شنيدم براي كار كردن SQL2005 بايد برنامه اي تحت نامه MSDBE رو سيستم user نصب شود .. اون را از كجا تهيه كنم و به چه صورت نصب كنم...؟
با سپاس افشين160
Afshin160
جمعه 22 شهریور 1387, 15:39 عصر
سلام...
راستي جايي خوندم با برنامه ساخت setup وinstallshild مي شود ولي كد نويسي ميخواد ...
كسي كدس را بلد يا مي تونه راهنمايي كنه..؟
Ab2621367
جمعه 22 شهریور 1387, 16:09 عصر
همیشه تست می کنی که آیا بانک وصل هست یا نه اگه نبود بانک تو به SQL SERVER باید ATTACH کنی
اینم کدش
Public Sub AddDBSQL()
StrDataBaseName = "DataBaseName"
objConnection = New SqlConnection("Data Source=.;Initial Catalog=" & StrDataBaseName & ";Integrated Security=True")
DB_Attach()
End Sub
Public Sub DB_Attach()
Try
Dim StrExec As String
If objConnection.State = ConnectionState.Open Then objConnection.Close()
StrExec = "sp_attach_db '" & StrDataBaseName & "','" & Application.StartupPath & "\" & _
StrDataBaseName & "_Data.mdf','" & Application.StartupPath & "\" & StrDataBaseName & "_Log.ldf'"
objConnection.ConnectionString = "Data Source=.;Initial Catalog=Master;Integrated Security=True"
objCommand = New SqlCommand(strExec, objConnection)
objConnection.Open()
objCommand.ExecuteNonQuery()
objConnection.Close()
Dim strMsg As String
strMsg = "Attach Is Complete"
strMsg &= vbCrLf & "Please Restart Program"
MessageBox.Show(strMsg, "Message", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
EndProgram()
Catch EX As SqlClient.SqlException
Dim strMsg As String
strMsg = "Yejaye kare milange"
MessageBox.Show(strMsg, "Message", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
EndProgram()
End Try
End Sub
اگر متوجه نشده این ای دی منه تو یاهو PM بده تا بهت بگم
AB2621367
salehbagheri
جمعه 22 شهریور 1387, 22:51 عصر
از پروژه ClickOnce Deployment Project در InstallShield 12,14 or 15 استفاده کنید. نیازی هم به کدنویسی اضافه نداره!
توجه داشته باشید که این پروژه فقط در همین سه ورژن از برنامه InstallShield موجوده!
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.