كيف يمكن كتابة مديول عام للاتصال ب Sql Server 2005

السلام عليكم يارجاله

خلاص عرفت اكتب المديول واشتغل تمام

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Module Connect

	Public ConStr As String = "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyDataSQL;Data Source=WESAMSOF-4F8359\SQLEXPRESS"
	Public conn As New OleDbConnection(ConStr)
	Public dataset1 As New DataSet
	Public Sqlstr As String = "Select name,city,mobile,pic from Table1"
	Public DataAdapter1 As New OleDbDataAdapter(Sqlstr, conn)

	Public Function GetConnect()

		Return conn

	End Function
	Public Function refreshdata()
		dataset1.Clear()

		DataAdapter1.Fill(dataset1, "table1")
		Return refreshdata
	End Function


End Module

بعد كتابة المديول لاستدعاء كود الاتصال نكتب

conn = GetConnect()
	 conn.Open()

   conn.Close()

ارجو ان اكون افدت الجميع ولو ببسيط

السلام عليكــم ورحمـة الله وبركاتــة ،،

كما يمكنك كتابة مديول عام يقوم بالاتصال بأكثر من طريقة - الاتصال من الكمبيوتر المحلي - الاتصال عبر الشبكة عن طريق اسم السيرفر - أو عن طريق رقم IP جهاز السيرفر

كما يمكنك حفظ خيارات الاتصال التى يدخلها المستخدم

ستجد كل ذلك واكثر في الرابط التالي :-

هذا هو الرابـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــط

بالتوفيق

مختار أحمد