ارتباط برنامه Exe با بانک اطلاعاتی VB.NET
با سلام
من یک برنامه نوشتم Win App با زبان VB.NETو بانک SQL که تو فولدر Debug فایل های Exe اون قرار داره طبق روال
من اومدم و فایل های بانک اطلاعاتی رو بصورت MDF تو یک فولدر قرار دادم کنارشون
الان مشکل من اینجاست که وقتی برنامه رو تو درایوی که پروژه رو ایجاد کردم اجرا میکنم خیلی خوب کار میکنه ولی فقط کافیه فایل های exe و بانک اطلاعاتی اون رو کپی کنم تو یک درایو دیگه اینجاست که دیگه برنامه من کار نمیکنه و از ارتباط بانک اطلاعاتی من ایراد میگیره
خواستم بدونم راه حلی برای رفع این مشکل نیست ؟
اینم اروری که به من میده وقتی در فرم Login نام کاربری و رمز عبور رو وارد میکنم و روی دکمه Login کلیک میکنم :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
و روند کدها مشکلی نیست چون فقط زمانی که تو درایو دیگه فایل ها رو کپی میکنم اینطوری میشه و الا تو همون درایو H که از ابتدا پروژه تعریف شده هیچ مشکلی نیست چون Database ای که تو Sql من Atach کردم از فایل MDF ای بوده که تو درایو H بوده ، حالا اگه فایل MDFموجود تو درایو D رو اگر Atach کرده بودم رو Sql برنامه تو درایو D فقط اجرا میشه و دیگه تو درایو h اجرا نمیشه
مشکل الان اینه که میخوام ببینم روشی هست که این ارور رو نده و براش فرقی نکنه این فایل های MDF از کدوم درایو Atach شده رو Sql
---
این هم نمونه کدی که من برای ارتباط با بانک استفاده کردم برای دکمهس Login
ساختار بقیه هم به همین صورت هست برای ارتباط با بانک و روند کدها مشکلی نیست چون فقط زمانی که تو درایو دیگه فایل ها رو کپی میکنم اینطوری میشه و الا تو همون درایو H که از ابتدا پروژه تعریف شده هیچ مشکلی نیست چون Database ای که تو Sql من Atach کردم از فایل MDF ای بوده که تو درایو H بوده ، حالا اگه فایل MDFموجود تو درایو D رو اگر Atach کرده بودم رو Sql برنامه تو درایو D فقط اجرا میشه و دیگه تو درایو h اجرا نمیشه
مشکل الان اینه که میخوام ببینم روشی هست که این ارور رو نده و براش فرقی نکنه این فایل های MDF از کدوم درایو Atach شده رو Sql
---
این هم نمونه کدی که من برای ارتباط با بانک استفاده کردم برای دکمهس Login
ساختار بقیه هم به همین صورت هست برای ارتباط با بانک
کد:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As New SqlConnection("Server=.\SQLExpress;AttachDbFilenam e=" + Environment.CurrentDirectory + "\Database\Automation.mdf;Database=Automation;Trus ted_Connection=Yes;")
s2 = "Select count( * ) from Login where UserName = '" & TextBox1.Text & "' and Password = '" & TextBox2.Text & "'"
Dim com As New SqlCommand(s2, conn)
Dim res As Object
conn.Open()
res = com.ExecuteScalar()
conn.Close()
If res = 1 Then
MsgBox("Welcome Dear " + TextBox1.Text, MsgBoxStyle.OkOnly, "Login Successful")
us = TextBox1.Text
If us = "admin" Then
Main.Label4.Text = "ADMINISTRATOR"
Else
Main.Label4.Text = "USER"
us = TextBox1.Text
Main.Button3.Enabled = False
Main.Button5.Enabled = False
Main.Button9.Enabled = False
End If
Main.Show()
Me.Hide()
Else
MsgBox("Invalid User OR Password", MsgBoxStyle.Critical, "Attention Please")
Exit Sub
End If
End Sub
