Data Binding буюу єгєгдєл бэхлэх (Visual Basic .NET)

Windows Form байгуулах:

Доорх алхмуудыг даган хийснээр жишээний формоо байгуулах болно.

1. Visual Studio.NET–ийг нээж, New Project товчлуурыг сонгон
2. Windows Application-ийг Template-ээс сонгон, Name textbox-д DataBinding гэж нэр єгєн прожектоо vvсгэнэ.
3. Properties цонхон дах формын property-нуудаас Name property-д frmProducts, Text property-д Product Information.оноож єгнє.

DataSet-ийг vvсгэх болон бэлтгэх

DataGrid-ийг єгєгдлєєр дvvргэх

Юуны ємнє та DataGrid контролыг frmProducts формдоо байрлуулана. Уг контролыг сонгон Property цонхон дах DataSource property-д dsProducts1, DataMember property-д Products тус тус оноож єгнє.

Одоо бид DataGrid контролыг DataSet рvv бэхлэсэн байгаа боловч DataSet нь форм ачаалагдахад автоматаар єгєгдлєєр дvvргэгддэггvй. Иймд форм Load event-д дараах кодыг бичиж єгнє.

   Private Sub frmProducts_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load

       ' DataSet контролыг хоослох
       dsProducts1.Clear()
       ' DataSet контролыг Products хvснэгтээс єгєгдлєєр дvvргэх
       OleDbDataAdapter1.Fill(dsProducts1, "Products")

   End Sub

Combo Box-уудтай ажиллах

Бидний vvсгэсэн жишээ багахан хэмжээний єгєгдєлтэй vед тєвєггvй ажиллах боловч хэдэн мянган бичлэгтэй vед тийм ч тохиромжтой биш байх болно. Тиймд бvтээгдэхvvний тєрлийг combo box-оос сонгон, тухайн тєрлийн бvтээгдэхvvнvvдийг дэлгэцэнд DataGrid дээр харуулбал илvv тохиромжтой. Эхлээд combo box-ийг єгєгдлєєр дvvргээд, дараа нь combo box-ийг хэрэглэн дэлгэцэнд data grid-д харагдах єгєгдлийг хязгаарлая.

Хоёр дох Data Adapter, DataSet нэмэх

1. Дахин OleDbDataAdapter-ийг Toolbox-ийн Data tab-аас сонгон, форм дээр байрлуулна.
2. <Ємнєх жишээнд хэрэглэж байсан Northwind єгєгдлийн баазын холболтыг хэрэглэнэ. “Next” товч дарна.
3. “Use SQL Statements”-ийг сонгон, “Next” товч дарна.
4. Дараах SQL мэдэгдлийг бичнэ:

   SELECT CategoryID, CategoryName FROM Categories

5. Энэ диалогоос “Advanced Options” товчлуурыг сонгоно.
6. “Generate Insert, Update, and Delete statements” сонголтыг арилгана. Учир нь бид зєвхєн combo box дvvргэх гэж байгаа тул эдгээр коммандуудыг хэрэглэх шаардлагагvй.

Combo Box-ыг DataAdapter луу бэхлэх

1. Формд Combo box байрлуулан, идэвжvvл
2. Name property-д cboCategories
3. DataSource property-д dsCat1
4. DropDownStyle property-д DropDownList
5. DisplayMember property-д Categories.CategoryName. Энэ нь дэлгэцэнд харагдах багана ба data grid контролын єгєгдлийг єєрчлєхєд хэрэглэгдэх багана утгаа авахад туслана.
6. ValueMember property-д Categories.CategoryID онооно. ValueMember property нь item сонгогдоход жинхэнэ утгыг авна. єєрєєр хэлбэл CategoryName сонгогдоход харгалзах CategoryID-г энэ property-гоос авч чадна.

Combo Box-ыг єгєгдєлтэй болгох

   Private Sub frmProducts_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load

       dsProducts1.Clear()
       OleDbDataAdapter1.Fill(dsProducts1, "Products")

       ' Combo Box-д єгєгдєл дvvргэхэд хэрэглэгдэн DataSet-ыг бэлтгэх
       dsCat1.Clear()
       OleDbDataAdapter2.Fill(dsCat1, "Categories")

   End Sub

Параметртай Query vvсгэх

Одоо бvгдээрээ тєрєл сонгогдоход data grid дээр харгалзах бvтээгдэхvvнvvдийг харуулж чаддаг болъё.

1. Data grid контролыг єгєгдєлжvvлдэг кодыг формын Load event-ээс хасна.
   Дараах кодыг формын Load event-ээс хасна уу.

      dsProducts1.Clear()
      OleDbDataAdapter1.Fill(dsProducts1, "Products")
   

2. OleDbDataAdapter1 объектын SelectCommand property-г єєрчлєн, CategoryID параметр авах боломжтой болгоно. OleDbDataAdapter1 объектыг сонгон Properties window (F4) дах SelectCommand property-гийн дэд property-нуудыг дэлгэнэ. CommandText property-г сонгон, Build (…) товчлуурыг дарснаар дэлгэцэнд Query Builder диалог гарч ирэх болно. WHERE буюу нєхцлийг нэмснээр дараах байдалтай харагдах болно.

      SELECT ProductID, ProductName, UnitPrice, UnitsInStock
      FROM Products
      WHERE CategoryID = ?
   

   OK товчлуурыг дарснаар єєрчлєлт маань хадгалагдах болно.

   OleDbDataAdapter1 объектыг сонгон Data -> Generate Dataset менюг сонгон, Ok товчлуурыг дарснаар одоо байгаа dsProducts dataset-ээ дахин байгуулалт хийнэ.

3. Хэрэглэгч combo box-оос item сонгоход ажиллах код нэмэх
   Эхлээд cboCategories combo box дээр давхар товшилт хийн, SelectedIndexChanged event процедур vvсгэнэ. Энэ event нь combo box-оос item сонгох vед vvсдэг. Ингээд дараах кодыг бичнэ vv.

    Private Sub cboCategories_SelectedIndexChanged( ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles cboCategories.SelectedIndexChanged
      
          With OleDbDataAdapter1.SelectCommand.Parameters
              .Item(0).Value = cboCategories.SelectedValue
          End With
   
          ' dataset-ийг цэвэрлэх
          DsProducts1.Clear()
          ' dataset-ийг параметрын утгыг хэрэглэх єгєгдєлжvvлэх
          OleDbDataAdapter1.Fill(DsProducts1, "Products")
    End Sub
   

   Data adapter-ийн SelectCommand объектыг ашиглан тухайн Parameter объектыг дамжуулахад хэрэглэж байна. Энэ Parameter объектын Value property-д оноож буй combo box-ийн SelectedValue property нь ValueMember-ийн идэвхтэй байгаа утга (CategoryID)-г авна. Combo box-оос нэр сонгоход dataset нь тухайн тєрлєєр дvvргэгдэн, data grid-д автоматаар байрлана.

Єгєгдлийг гараас бэхлэх

Ямар нэгэн Wizard хэрэглэхгvйгээр DataSet класс vvсгэн, Data grid болон бусад контролыг єгєгдлєєр дvvргэж болох ба энэ аргыг хэрэглэснээр маш уян хатан, илvv хурдан ажиллах программ хийх болно. Одоо ємнєх жишээтэй ижил прожект vvсгэе.

1. Та дахин шинэ DataBindGrid гэсэн прожект vvсгэнэ.
2. frmProducts гэсэн форм vvсгэнэ vv.
3. Label, ComboBox, DataGrid контролуудыг формд нэмнэ.
4. Тэдний нэрийг харгалзан Label1, cboCategories, grdProducts гэж єєрчлєнє.
5. Формын Load event-д дараах кодыг бичнэ.

   Private Sub frmProducts_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
       Call ComboLoad()
   End Sub

   Private Sub ComboLoad()
       Dim da As OleDb.OleDbDataAdapter
       Dim dt As DataTable = New DataTable()
       Dim strSQL As String
       Dim strConn As String

       strConn = "Provider=sqloledb;Data 
        Source=(local);Initial Catalog=Northwind;User ID=sa"

       strSQL = "SELECT CategoryId, CategoryName  "
       strSQL &= "FROM Categories"

       Try
           ‘Data adapter vvсгэх	
           da = New OleDb.OleDbDataAdapter(strSQL, strConn)

           ‘DataTable-ийг єгєгдлєєр дvvргэх
           da.Fill(dt)

           With cboCategories
               ' эхлээд Property-нуудад утга онооно
               .DisplayMember = "CategoryName"
               .ValueMember = "CategoryId"

               ' тэгээд DataSource-ийг єгнє
               .DataSource = dt
           End With

       Catch e As Exception
           MessageBox.Show(e.Message)

       End Try
   End Sub

DisplayMember, ValueMember property-нуудад SQL мэдэгдэлд буй багануудын нэрийг єгєх ёстой. DisplayMember нь combo box-ийн дэлгэцэнд харагдах єгєгдлvvдийг авах баганыг зааж байдаг. Харин ValueMember property нь єєр баганы утгыг хадгалж байдаг combo box-ийн vл харагдах жагсаалт юм.

DataGrid-ийг дvvргэх

   Private Sub cboCategories_SelectedIndexChanged( ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles cboCategories.SelectedIndexChanged
       Call GridLoad()
   End Sub

   Private Sub GridLoad()
       Dim da As OleDb.OleDbDataAdapter
       Dim dt As DataTable = New DataTable()
       Dim strSQL As String
       Dim strConn As String

       strConn = "Provider=sqloledb;Data Source=(local);Initial Catalog=Northwind;User ID=sa"

       strSQL = "SELECT ProductID, ProductName, UnitPrice, UnitsInStock "
       strSQL &= "FROM Products "
       strSQL &= "WHERE CategoryID = " & cboCategories.SelectedValue

       Try
           ‘Data adapter vvсгэх	
           da = New OleDb.OleDbDataAdapter(strSQL, strConn)

           ‘DataTable-ийг єгєгдлєєр дvvргэх
           da.Fill(dt)

           grdProducts.PreferredColumnWidth = DataGrid.AutoColumnSize
           grdProducts.DataSource = dt

       Catch e As Exception
           MessageBox.Show(e.Message)

       End Try
   End Sub