السلام عليكم
بيئة العمل VB.net 2019 - Access
الدرس السابق شرحنا طريقة الاتصال عن طريق الـ Data Table , واليوم نبدأ بطريقة الداتا ست DataSet وما هو فرق بينهما
رابط الدرس السابق
بأختصار , DataSet هي عبارة عن واحدة او اكثر من DataTable , . لاحظ المثال ادناه
الداتا سيت (X) هي الحاوي الكبير للـ DataTable (A,B) .
من ناحية الكود لا يوجد اختلاف في جملة الاتصال او الاستعلامات (select , delete ,edit,add)
هذا كود مع الشرح لبعض النقاط المهمة
اي استفسار تدللونكود:Imports System.Data Imports System.Data.OleDb Imports System.IO Public Class Form1 ' كود الاتصال هو هو ما يختلف عن الطريقة في الموضوع السابق ' لاحظ قاعدة البيانات مقفلة برقم سري 12345 وانت تكدر تغيره عن طريق الاكسس Dim con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\data.mdb;user id=admin;jet oledb:database password=12345") 'الاعلان عن الداتا ست في التصريحات العامة Dim DataSet1 As New DataSet Dim DataSet2 As New DataSet Dim DataSet3 As New DataSet Dim DataAdapter As OleDbDataAdapter Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next Dim cmd As OleDbCommand = New OleDbCommand("SELECT id,name,phone,datee,pic from TableName order by ID ", con) DataAdapter = New OleDbDataAdapter(cmd) Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(DataAdapter) con.Open() ' فتح الاتصال ' هنا الاختلاف الاساسي بموضوع اليوم ,, لاحظ طريقة ملأ الداتا ست بالبيانات تختلف قليلاً عن الداتا تيبل DataSet1 = New DataSet DataAdapter.Fill(DataSet1, "TableName") con.Close() ' غلق الاتصال ' في الكود ادناه طريقة سحب البيانات من قاعدة البيانات الى برنامجك وتسمى هذه العملية الـ DataBindings Label1.DataBindings.Add("Text", DataSet1, "TableName.id") TextBox1.DataBindings.Add("text", DataSet1, "TableName.name") TextBox2.DataBindings.Add("text", DataSet1, "TableName.phone") TextBox3.DataBindings.Add("text", DataSet1, "TableName.datee") ' ربط الداتا كرد فيو بالداتا ست (يعني تسحب الداتا ست وتخليها كبل بداخل الداتا كرد فيو ) DataGridView1.DataSource = DataSet1 DataGridView1.DataMember = "TableName" End Sub End Class
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة Scrap
