[الكاتب]

هنا مرادك

لتعريف جملة اتصال مره واحده خارج المشروع اعمل ملف CONEMP.txt وضع بداخله الجملة وانقله للقرص C

إقتباس :Data Source=GT8-PC\SQLEXPRESS;Initial Catalog=dbShop;User ID=alktab;Password=1234

اسم جهازك GT8-PC
اسم السيرفر SQLEXPRESS
يوزر الدخول alktab
الباس 1234
القاعده dbShop ولابد أن تكون في المسار هنا مع مراعات نظامك 86 او 64
C:\Program Files\Microsoft SQL Server\MSSQL11.SQLEXPRESS\MSSQL\DATA

ثم اعمل لها اتاش من السيرفر واعطها كامل صلاحيات الدخول والتعديل

اعمل موديل وضع بداخله التالي
Dim Read As New StreamReader("C:\CONEMP.txt")
Public Sqlconn As New SqlConnection(Read.ReadToEnd) ' الاتصال بالقاعدة

اسم الملف الذي عملته مسبقا
CONEMP.txt

جرب الاتصال في حدث تحميل الفورم

إقتباس : Try
If Sqlconn.State = ConnectionState.Open Then
Sqlconn.Close()
End If
Sqlconn.Open()
Me.Text = "متصل"
Sqlconn.Close()
Catch ex As Exception
Me.Text = "غير متصل"
MsgBox(ex.Message & "لايوجد اتصال مع السيرفر ", MsgBoxStyle.Exclamation, "تنبيه")
Application.Restart()
Exit Sub
End Try

---

بالنسبة للأتصال بالكريستال اتبع الرابط الاول من الصورة دي

---

طبعا بعد ادراج اداة CrystalReportViewer والتقرير اثناء فتحه للتحرير