هنا

[spyman]

السلام عليكم



بيئة العمل هي لغة الفيجول دوت نت 2008 , سوف نربطها مع قاعدة البيانات مايكروسوفت اكسس 2003


1- نبدأ اول شيء بعمل قاعدة بيانات ببرنامج مايكروسوفت اكسس 2003 او 2007 ( حفظ القاعدة بصيغة mdb )

واسمها spyman وعمل جدول بداخلها بأسم spy الجدول يحتوي على معلومات كما بالصورة ادناه :




بعد حفظ المشروع انسخ قاعدة البيانات للمسار التالي :

C:\Users\spyman\Documents\Visual Studio 2008\Projects\database\database\bin\Debug

2- افتح لغة البرمجة فيجول دوت نت 2008 واتبع الكلام ادناه :

اضف الداتا كرد DataGrid للمشروع من قائمة الادوات

بالتاكيد اول كود نقوم بكتابته هو كود الاستيراد ( استيراد مجال الاسماء )

ا- في قسم التصريحات العامة :

Imports System.Data.OleDb

ب- في قسم Public Class Form نكتب الكود

Public Con As New OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\spyman.mdb")
    Dim DataSet1 As New DataSet
    Public DataTable1 As New DataTable
    Public DataAdapter1 As OleDbDataAdapter
    Public BindingSource1 As New BindingSource
    '====================================
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim spy As New OleDbCommand(" SELECT  ID,Name,an,mob,zo,da from spy Order by id", Con)
        DataAdapter1 = New OleDbDataAdapter(spy)
        Dim builder1 As New OleDbCommandBuilder(DataAdapter1)
        BindingSource1.DataSource = DataTable1
        DataGridView1.DataSource = BindingSource1
        DataAdapter1.Fill(DataTable1)
        '**************************************
        ' الكود ادناه مسؤول عن ملا الداتا ادبتر باعمدة الجدول سباي الموجود في قاعدة البيانات 
        'وهذا الكود مهم في عرض بيانات الجدول في التيكست بوكس


        DataAdapter1.Fill(DataSet1, "spy")
        '**************************************
        'ملا صناديق النصوص بالبيانات المستمدة من الجدول سباي
        TextBox1.DataBindings.Add("Text", DataSet1, "spy.id")
        TextBox2.DataBindings.Add("Text", DataSet1, "spy.name")
        TextBox3.DataBindings.Add("Text", DataSet1, "spy.an")
        TextBox4.DataBindings.Add("Text", DataSet1, "spy.mob")
        TextBox5.DataBindings.Add("Text", DataSet1, "spy.zo")
        TextBox6.DataBindings.Add("Text", DataSet1, "spy.da")


        '**************************************


   'هذا الكود الي يقوم بعمل عناوين للداتا كرد :


        DataGridView1.Columns("ID").HeaderText = "التسلسل"
        DataGridView1.Columns("Name").HeaderText = "الاسم"
        DataGridView1.Columns("an").HeaderText = "العنوان"
        DataGridView1.Columns("mob").HeaderText = "رقم النقال"
        DataGridView1.Columns("zo").HeaderText = "الحالة الزوجية"
        DataGridView1.Columns("da").HeaderText = "الدرجة الوظيفية"
        
        '**************************************

الكود اعلاه واضح جداً وما يراد اله شيء .. هو عبارة عن استيراد قاعدة البيانات spyman

واستيراد المعلومات من الجدول spy الموجود في القاعدة spyman ..

بعد ذلك ملا الداتا ادبتر بالمعلومات من spy ,, ثم ملأ صناديق النصوص بالمعلومات المستمدة

من الجدول .. ثم ملأ عناوين الداتا كرد بعناوين نحدده بالكود الموضح اعلاه

----------------------------------------------------------------------

الان كملنا الشيء المطلوب :

اذا اردت ان تعمل ازرار للتنقل بين البيانات .. عليك ان تضيف 4 ازرار اسماؤها كالتالي

السجل الاول , السجل الاخير , السجل التالي , السجل السابق


ادخل الكود ادناه في السجل الاول :

Me.BindingContext(DataSet1, "spy").Position = 0

في السجل الاخير :

   Me.BindingContext(DataSet1, "spy").Position = Me.BindingContext(DataSet1, "spy").Count - 1

في السجل التالي

Me.BindingContext(DataSet1, "spy").Position += 1

في السجل السابق

   Me.BindingContext(DataSet1, "spy").Position -= 1

اي سؤال انا حاضر

[داستان]

شكرا عالموضوع القيم

[spyman]

الف هلا داستان

شكرا على المرور والتقييم

[شــانـاز]

شكرا الك
تقييمي

[spyman]

عفوا شاناز الوردة

شكرا جزيلا على المرور والتقييم

[raaddawood]

سؤالي هنا كيف يتم اسناد بعض الحقول من الداتا سورس الى الداتا جيرد فيو ((( يعني ليس كل الحقول الموجوده في الجدول بل البعض منها))

[spyman]

اي مثل ما ذكرت انا في الكود اعلاه :

اول شيء تختار tab المطلوب ونملأ الداتا ادبتر بالمعلومات الخاصة فيه

بعد ذلك تحديداً الكود :

 DataGridView1.Columns("ID").HeaderText = "التسلسل"
        DataGridView1.Columns("Name").HeaderText = "الاسم"
        DataGridView1.Columns("an").HeaderText = "العنوان"

احنة بهذا الكود جاي نظهر العناوين .. والي ما تريد تربطه احذف الكود الخاص فيه

[raaddawood]

اي مثل ما ذكرت انا في الكود اعلاه :

اول شيء تختار tab المطلوب ونملأ الداتا ادبتر بالمعلومات الخاصة فيه

بعد ذلك تحديداً الكود :

 DataGridView1.Columns("ID").HeaderText = "التسلسل"
        DataGridView1.Columns("Name").HeaderText = "الاسم"
        DataGridView1.Columns("an").HeaderText = "العنوان"

احنة بهذا الكود جاي نظهر العناوين .. والي ما تريد تربطه احذف الكود الخاص فيه

استاذي العزيز لست بصدد كتابة العناوين ولكني لاأريد أن تظهر جميع الحقول بالجدول في الداتا جيرد فيو
DataGridView1.DataSource = BindingSource1
أريد أظهار أسناد بعض الحقول في الداتا جيرد والبقيه في تكست بوكس وكمبو بوكس في اعلى الفورم

[spyman]

اخي العزيز اسف لم افهم سؤالك بالصورة الصحيحة وحسبتك تقصد العناوين


الان سوف اكتب الكود الخاص في استيراد الاعمدة من قاعدة البيانات للبرنامج

لاحظ الكود في اول الموضوع وسوف تجد هذا السطر الخاص في اظهار الاعمدة :

Dim spy As New OleDbCommand(" SELECT  ID,Name,an,mob,zo,da from spy Order by id", Con)

وهو الخاص في اظهار الاعمدة داخل الداتا كرد .. وعليها اذا اردت ان احذف العمود الخاص برقم النقال ( mob ) على سبيل المثال فيجب تعديل

الكود ليصبح كما بالصورة ادناه :

 Dim spy As New OleDbCommand(" SELECT  ID,Name,an,zo,da from spy Order by id", Con)

وهكذا يتم عدم اظهار العمود الذي قمنا بحذفه .. علماً ان هذه الاسماء ليست افتراضية وانما موجودة نصاً في قاعدة البيانات mdb كعناوين

للاعمدة

[raaddawood]

اشكرك أخي الحبيب على الرد ولكن
المطلوب هو ظهور جميع الحقول الموجوده في الجدول في الفورم ولكن قسم منها يظهر في تكستات بوكس والحقول الاخرى تظهر وتضاف في داتا جيرد فيو
شكرا" لك مره اخرى واذا كان بالامكان ملاحظة مشاركتي التي ارفقت بها صورة للتوضيح يعني كائن

اريد توزيعه على التكستات قسم والقسم الاخر داخل الداتا جيرد فيو
OleDbCommand