+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] كود تعبئة ليست فيو من جدول او استعلام من قاعدة بيانات اكسس (/showthread.php?tid=12533)
كود تعبئة ليست فيو من جدول او استعلام من قاعدة بيانات اكسس - raaddawood - 18-06-15
بسم الله الرحمن الرحيم
السلام عليكم ,,,, وكل عام وأنتم بخير ورمضان كريم
أخواني كنت أبحث عن كود تعبئة ليست فيو من استعلام في قاعدة بيانات اكسس
وارسلت سؤال بذلك وبعد البحث أنقل لكم هذا الكود للفائدة مع شرح مبسط له
Sub listview1x()
Dim header1, header2 As ColumnHeader , تعريف متغييرين أو بحسب ماتشاء لرؤوس الأعمده في ليست فيو
header1 = New ColumnHeader
header2 = New ColumnHeader
header1.Name = "daleel" , جلب اسم العمود رقم 1 من جدول في القاعدة المطلوبة
header1.Text = "كود", اعطاء اسم للعمود (سميته كود)
header1.TextAlign = HorizontalAlignment.Left , ضبط موقع المعلومات في العمود الأول وبحسب ماتريد
header1.Width = 50 , اختيار عرض العمود رقم 1
header2.Name = "hesab_name" , للعمود رقم 2 وبنفس الشرح اعلاه
header2.Text = "إسم الحساب"
header2.TextAlign = HorizontalAlignment.Right
header2.Width = 230
Me.ListView1.Clear()
Me.ListView1.Columns.Add(header1)
Me.ListView1.Columns.Add(header2)
Dim constr As String = "Provider=Microsoft.Ace.OLEDB.12.0;Data Source =" & Application.StartupPath & "\datah.accdb"
Dim Con As New OleDbConnection(constr), هنا الأتصال مع قاعدة البيانات , بالنسبة هنا اكسس 2007
Dim DS As New DataSet
Dim SQLstr As String = "SELECT * FROM q_erad"
' Dim SQLstr1 As String = "SELECT * FROM tab" , تعريف متغيرات الأتصال و كومند وداتا ادابتر
Dim cmd As New OleDbCommand(SQLstr, Con)
' Dim cmd1 As New OleDbCommand(SQLstr1, Con)
Dim dp As New OleDbDataAdapter
' Dim dp1 As New OleDbDataAdapter
dp.SelectCommand = cmd
' dp1.SelectCommand = cmd1
Con.Open()
dp.Fill(DS, "q_erad") , هنا اسم الجدول او الأستعلام المطلوب من قاعدة البيانات , عندي اسمه q_erad
'
Con.Close()
Dim dt As Data.DataTable = DS.Tables("q_erad")
' Dim dt1 As Data.DataTable = DS.Tables("tab")
For Each Col As DataRow In dt.Rows
Dim newItem As ListViewItem = Me.ListView1.Items.Add(Col("id"))
newItem.SubItems.Add(Col("details").ToString)
Next
End Sub
وفي الختام يتم استدعاء السب أعلاه من حدث فورم لوم تكتب فقط Sub listview1x() call