سؤال بخصوص الداتا جريد

بالنسبة لي أخي waleedhm فللأسف لم أفهم سؤالك (جيد هذا التعليق لرفع السؤال ،مش هيك؟ :D )

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

طيب

شوف يا اخى

انا عاوز اعمل الاتى

اضيف فى الدتا جريد تمام

وكل مرة اضيف فيها بيان جديد يتم ترقيم حقل مسلسل

ولكن ليس من قاعدة البيانات

يعنى مسلسل دة حقل وهى لا يعتمد على قاعدة البيانات

أخي waleedhm،

لنفترض بأن جدولك فيه عمود واحد للتبسيط (عمود إسمه "الأسم")، قم بإضافة عمود آخر واجعل نوع الداتا فيه من نوع integer ولا تكتب في أي شيء ولا تجعله Primary key أو خلافه... ولنتفرض بأن هذا العمود إسمه "Number"...

قم بوضع الكود التالي قبل أن تعمل في زر Load للداتاسيت:

DataSet11.Table1.Columns(1).AutoIncrementSeed = 1
DataSet11.Table1.Columns(1).AutoIncrement = True
DataSet11.Table1.Columns(1).ColumnName = "Serial"
OleDbDataAdapter1.Fill(DataSet11, "table1")

هذه أحد الأفكار التي توصلت لها، لا أعلم إن كان هناك أفكار أخرى.

فكرة HMS صحيحة و يمكنك أخي قراءة هذا الدرس ستجد به الطريقة و ستستفيد أكثر من حيث التعامل مع ال Data Table

/index.php?showtopic=54403

بالتوفيق

أنصح كل أخ هنا بزيارة المشاركة التي تطرق لها الأخ محمد، درس رائع...

قبل الإطلاع على مشاركة الأخ محمد توقفت عند إضافة العمود برمجياً، لذلك فها هو الكود النهائي مع ملاحظة بأن ال Index للعمود المضاف برمجياً Serial يجب أن يكون بعدد أعمدة الجدول (نستطيع الحصول على ذلك أيضاً من خاصية count):

DataSet11.Table1.Columns.Add("Serial", GetType(Integer))
 DataSet11.Table1.Columns(1).AutoIncrementSeed = 1
 DataSet11.Table1.Columns(1).AutoIncrement = True
 OleDbDataAdapter1.Fill(DataSet11, "Table1")

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

جزاكم الله خيرا على المحاولة

الطريقة التى تفضل بها الاخ هارون والاخ محمد هيا فى عملية الاضافة بيتم زيادة الرقم

انا ما اريدة هوة الاتى

For i = 0 To DataSet11.Tables(0).Rows.Count - 1

Next i

لو عملت

MessageBox.Show(i)

اية الناتج

انا عاوز اخد الناتج دة بشكل مسلسل فى DataGrid يعنى لو فرضنا ان الناتج هو 3

يبقا اول بيان فى المسلسل

1

2

3

Dim i As Integer

يعنى عاوز i دية يتم اضافتها بشكل مسلسل فى DataGrid

انا مش فاهم عليك..

انا شايفك موجود علشان كدة وضعت الاستفسار ده لعلك عايز رد حالاً..

للتوضيح::

الكود الذي كتبه هارون و محمد يكفي بالغرض و هو ادماج عنصر يزيد تلقائياً..

فهل مشكلتك ان العمود لا يظهر ام ان المشكلة انه يظهر بقيم غير التي تريدها (مثلاً بترتيب غير مناسب)؟؟

أخي العزيزwaleedhm، هل طرح سؤال مفهوم هو صعب لتلك الدرجة؟، كنت أظن بأنني الوحيد الذي لم يفهم سؤالك ولكن هاهو Undo لم يفهم أيضاً بالرغم من ألمعيته :rolleyes: .

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

ممكن تجربة المثال التالى

Setup1.rar

الملف هو ملف تنفيذي، ويحتاج الى Installing وأنت تعلم بأن البعض يخشى من هذه البرامج... بالنسبة لي أنا أثق بك :D وقد قمت بإنزاله، ولم أفهم تماماً ما هو المقصود من وضعك إياه، ماذا تريد أن توصله لنا؟؟

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

لا اله الا انت سبحانك انى كنت من الظالمين

جزاكم الله خيرا على الثقة

مش عارف اقول اية B)

طيب افتح كدة قاعدة البيانات

هل تجد الترقيم الموجود فى number فى قاعدة البيانات

number دة برمجى فقط

قم باضافى اى بيان او حزف

احزف بيان من الوسط

قم بفتح قاعدة البيانات وادخل اى اسم وشغل البرنامج مرة اخرى

أتعبناك أخي waleedhm، لقد فهمت قصدك الآن أخي الحبيب، اعذرنا على ضعف إستيعابنا :lol:

ها هو الحل وأرجو أن ينال رضاك،

قم بالإعلان عن متغير على مستوى الفورم بهذه الطريقة:

Dim counter As Integer

قم بعمل sub بهذه الطريقة:

Sub HMS()
        For x As Integer = 0 To counter - 1
            DataGrid1.Item(x, 1) = x + 1
        Next
    End Sub

في زر Load أكتب الكود التالي:

 Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        DataSet11.Table1.Columns.Add("Number", GetType(Integer))
        OleDbDataAdapter1.Fill(DataSet11, "Table1")
        counter = DataSet11.Table1.Rows.Count
        HMS()
    End Sub

في زر الإضافة أكتب الكود التالي:

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Me.BindingContext(DataSet11, "Table1").EndCurrentEdit()
        Me.BindingContext(DataSet11, "Table1").AddNew()
        counter += 1
        HMS()
    End Sub

في زر الحذف أكتب الكود التالي:

 Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        With Me.BindingContext(DataSet11, "Table1")
            If .Count > 0 Then
                .RemoveAt(DataGrid1.CurrentRowIndex)
            End If
        End With
        counter -= 1
        HMS()
    End Sub

نسيت التأكيد عليك بأنه يجب أن تكون الداتاسيت مكونه من عمود واحد فقط، بخلاف ذلك يجب أن تغير رمز العمود في DataGrid1.Item(x, 1) = x + 1 الى عدد الأعمدة.

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

جزاكم الله خيرا

انا كان ناقص انى اعمل المثال واقول انا عاوز اعمل الحتة دية :D

الطريقة اشتغلت تمام بس بعد التعديل

   Me.DataSet11.Tables(0).Columns.Add("Number", GetType(Integer))
        OleDbDataAdapter1.Fill(DataSet11, "Info")
        counter = DataSet11.Tables(0).Rows.Count
        HMS()

جزاكم الله خيرا

الحمد لله.......و مشكوووووووور يا هارون على الكود..

دخلت اليوم مخصوص على هذا الموضوع و قلت هي بصة واحدة و اطلع على طول..

شكل القعدة في المنتدى هتطول شويتين لان فيه مواضيع كتير حلوة في المنتدى الحلو ده ;)