شرح ربط داتا جريد بقاعدة البيانات عن طريق الكود مع العرض فى مربعات النص

بعد تصميم قاعدة البيانات والفورم نقوم بعد ذلك بانشاء مديولا لربط قاعدة البيانات بالفيجوال ونسميها MdDatabase

Public CN As New ADODB.Connection 
Public RS As New ADODB.Recordset 
Public RSS As New ADODB.Recordset 


Public Sub ConData() 
	If CN.State = adStateOpen Then CN.Close 
	CN.CursorLocation = adUseClient 
	CN.Provider = "Microsoft.Jet.OLEDB.4.0;" 
	CN.Open App.Path & "\data.mdb" 


End Sub

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

ثم بعد ذلك اخوانى الكرام ندخل الحدث condata فى اجراء تحميل الفورم Form1 كالتالي

privat sub form1_load 
ConData 
		If RS.State = adStateOpen Then RS.Close 
		rSQL = "SELECT * FROM TBData" 
		RS.Open rSQL, CN, adOpenStatic, adLockPessimistic 
end sub

وهنا تم الاتصال الفعلي بقاعدة البيانات

والان نقوم بربط الداتا جريد بقاعدة البيانات كالتالي

ننشا حدث جديد بأسم DataGrid

Private Sub DGDataShow() 
Dim DDRSS As String 

   If RSS.State = adStateOpen Then RSS.Close 
	DDRSS = " select fld1 as [الكود], Fld2 as [الاسم] from TBData" 
	RSS.Open DDRSS, CN, adOpenDynamic, adLockReadOnly 
	Set Dgdata.DataSource = RSS 
End Sub

ونضع الحدث DgDataShow فى اجراء تحميل الفورم

ليصبح كالتالي

Private Sub Form_Load() 
ConData 
		If RS.State = adStateOpen Then RS.Close 
		rSQL = "SELECT * FROM TBData" 
		RS.Open rSQL, CN, adOpenStatic, adLockPessimistic 
		DGDatashow 
End Sub

ونكمل غداً ان شاء الله

Data.rar

الموضوع مش كويس كده

اسف ياخوانى جزاكم الله خيرا

طبعا ولا رد = موضوع قديم وغير مفيد

شكرا لكم