• 0
Lamyaa

كيف يمكن تعبئة أداة DataGridView من خلال استعلام SQL

سؤال

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

 

قمت بكتابة الكود التالي :

 

ولكن لم أعرف كيف أقوم بتعبئة DataGridView

Imports System.DataImports System.Data.OleDbPublic Class Form1    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load        Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ALYASEER\libdata.MDB;Persist Security Info=True;Jet OLEDB:Database Password=5165")        Dim ds As New DataSet        Dim da As New OleDbDataAdapter("SELECT BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN  BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)", conn)        da.Fill(ds, "BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN  BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)")        DataGridView1.DataSource = ???    End SubEnd Class
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

اختي الكريمة غيري Dataset ب DataTable

Dataset هي عبارة عن ثمتيل لقاعدة بيانات ليست ثمتيل لجدول

Dim dt As New DataTableda.Fill(dt, "BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN  BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)")DataGridView1.DataSource = dt
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ALYASEER\libdata.MDB;Persist Security Info=True;Jet OLEDB:Database Password=5165")

Dim ds As New DataSet

Dim da As New OleDbDataAdapter("SELECT BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)", conn)

حتى الاعلى نفس كودك اللي عملته

da.Fill(ds, "Book")

تعديل السطر كالتالي

DataGridView1.DataSource = ds.Tables("Book")

تعديل السطر كالتالي

End Sub

End Class

تم تعديل بواسطه code.vip
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

اختي الكريمة غيري Dataset ب DataTable

Dataset هي عبارة عن ثمتيل لقاعدة بيانات ليست ثمتيل لجدول

Dim dt As New DataTableda.Fill(dt, "BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN  BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)")DataGridView1.DataSource = dt

 

 

Imports System.DataImports System.Data.OleDbPublic Class Form1Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadDim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ALYASEER\libdata.MDB;Persist Security Info=True;Jet OLEDB:Database Password=5165")Dim ds As New DataSetDim da As New OleDbDataAdapter("SELECT BOOK_INFO.BOOK_NO, BRWOER_INFO.BRW_NO, BRWOER_INFO.BRW_NAME, BOOK_INFO.LABLE, BRWO_BOOKS.ret, BRWO_BOOKS.BRW_DATE, BRWO_BOOKS.RET_DATE FROM ((BRWO_BOOKS INNER JOIN BRWOER_INFO ON BRWO_BOOKS.BRW_NO = BRWOER_INFO.BRW_NO) INNER JOIN BOOK_INFO ON BRWO_BOOKS.BOOK_NO = BOOK_INFO.BOOK_NO) WHERE (BRWO_BOOKS.ret = false) AND (BRWOER_INFO.BRW_NO = 302)", conn)حتى الاعلى نفس كودك اللي عملتهda.Fill(ds, "Book")تعديل السطر كالتاليDataGridView1.DataSource = ds.Tables("Book")تعديل السطر كالتاليEnd SubEnd Class

 

شكرًا لكما ..

 

أدعو الله أن يوفقكما ويرزقكما من فضله

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .