PDA

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 موجوده!