الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه Lamyaa في 7 نوفمبر 2014 · 3 رد · 971 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

 

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

 

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

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_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 Sub
End Class
post-252239-064955400%201356690312.gif
#2

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

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

Dim dt As New DataTable
da.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

  1. Youtube to mp3 for android phones

#3 

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 في 7 نوفمبر 2014 في 16:17

      
1

      
    

  

    
    

      
#4
        
        

      
noblex كتب:
 
اختي الكريمة غيري Dataset ب DataTable
Dataset هي عبارة عن ثمتيل لقاعدة بيانات ليست ثمتيل لجدول
Dim dt As New DataTable
da.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
 
 
code.vip كتب:
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
 
شكرًا لكما ..
 
أدعو الله أن يوفقكما ويرزقكما من فضله

      
      

      
post-252239-064955400%201356690312.gif

    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…