سوال در موردباز وبسته نمودن بانک در وی بی نت با دستوراتcloseوopen

[farhad85]

سلام دوستان
من یک متغیر سراسری کانکشن تعریف کردم به صورت زیر:

Dim my_cn As New SqlConnection("server=(local);database=2000.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
1-حالا چطور بانکم رو باز کنم وقتی تورویدا لود فرمم میزنمmy_cn.open
یا اصلا هنگام ران یا فرمم اصلا ناپدید میشه یا اگر میندازمش تو رویداد کیلیک یک دکه هنگ میکنه.
2-آیا متغیر سراسری که من تعریف کردم روی یک سیستم دیگه فرقی نداره که فایل بانکم کجا نصب بشه
3- هنگام نوشتن دستورات اس کیو ال با استفاده از کامند وقتی my_cn.open مینویسم فرمم هنگ میکنه

[مهرداد صفا]

با سلام.
لطفا 30 ثانیه صبر کنید و در صورت کانکت نشدن متن خطا را قرار دهید.

[behnam2010]

دوست عزیز
درابتدا به sql server خودتون بروید در هنگام باز شدن برنامه sql server اسم کامپیوترتون رو از قسمت servername بردارید مثل شکل زیر و در کدی که واستون گذاشتم بجای Behnam-pc\Behnam قراربدید :

104605

اول یه ماژول بساز و کد زیر رو بنویس :


Imports System.Data.SqlClient
Module connect_to_db
Function connect(ByRef con As SqlConnection) As Boolean
Try
cn = New SqlConnection("Data Source=Behnam-pc\Behnam;initial catalog=db_Daf;Integrated Security=True")
con.Open()
Return True
Catch ex As Exception
MsgBox("!! عدم برقراری ارتباط", MsgBoxStyle.Critical, "اخطار")
Return False
End Try
End Function
End Module
داخل فرمت هرجا که میخوای استفاده کنی ازین کد زیر استفاده کن



dim con as new sqlconnection
if connect(con)=false then exit sub
ازین به بعد con.open نیاز نداری فقط دستورات رو بنویس تهش con.close بذار
امیدوارم که مشکلی پیش نیاد :)