تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
العودة الي نفس السجل الذي تم تعديله
#1

.zip   SavingDate_6.zip (الحجم : 113.46 ك ب / التحميلات : 92)
السادة الافاضل

هذا مثال ممتاز لعملية الاضافة - الحذف والتعديل



لكن

كيف يتم العودة الي نفس السجل الذي تم تعديله
الرد }}}
تم الشكر بواسطة:
#2
كود :
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
    ' برمجة الزر تعديل
    ' وهنا نفحص قائمة المشتركين، إن كانت فارغة يتم عرض رسالة تفيد ذلك
    ' وإلا فيتم عرض فورم تعديل السجل المختار وتحديث قاعدة البيانات والداتاقريدفيو

    If dgvList.Rows.Count < 2 Then
        MsgBox("القائمة فارغة", MsgBoxStyle.Critical, "عذراً")
    ElseIf dgvList.SelectedRows(0).Cells(0).Value = Nothing Then
        MsgBox("يجب اختيار سجل لتعديله", MsgBoxStyle.Critical, "عذراً")
    Else

        Dim displayRow As Integer = dgvList.FirstDisplayedScrollingRowIndex    '<<<<<<<<<<<<<<<<<<<<<<<<
        Dim indexRow As Integer = dgvList.SelectedRows(0).Index                '<<<<<<<<<<<<<<<<<<<<<<<<

        With frmEdit
            .RecID = Val(dgvList.SelectedRows(0).Cells(0).Value)
            .TheName = dgvList.SelectedRows(0).Cells(1).Value
            .TheBirthDate = dgvList.SelectedRows(0).Cells(2).Value
            .ShowDialog()
        End With

        dgvList.Rows(indexRow).Selected = True                  '<<<<<<<<<<<<<<<<<<<<<<<<
        dgvList.FirstDisplayedScrollingRowIndex = displayRow    '<<<<<<<<<<<<<<<<<<<<<<<<

    End If

End Sub
الرد }}}
تم الشكر بواسطة:
#3
شكرا علي الكود البسيط الممتاز
الرد }}}
تم الشكر بواسطة:
#4
الكود في المشاركة السابقة موجود أصلاً في المثال المرفق الأصلي.
الرد }}}
تم الشكر بواسطة:
#5
الاستاذ ابو بكر
للاسف انا ممكن لا اكون شاهدته
وايضا مكان وضع الكود هو المهم

وهذا جهد للزميل يشكر عليه


واستكمالا

كيف عند اضافة سجل جديد اذا كان موجود من قبل يعطي رسالة بانه موجود من قبل ؟؟؟
شكرا
الرد }}}
تم الشكر بواسطة:
#6
frmNew.vb

كود :
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    If txtName.Text = Nothing Then
        MsgBox("يجب إدخال الاسم", MsgBoxStyle.Critical, "عذراً")
        txtName.Focus()
    Else

        If ExistName(txtName.Text) Then '<<<<<<<<<<<<<<<<<<<<<<<<<
            MsgBox("الاسم موجود مسبقاً", MsgBoxStyle.Critical, "عذراً") '<<<<<<<<<<<<<<<<<<<<<<<<<
            Exit Sub                        '<<<<<<<<<<<<<<<<<<<<<<<<<
        Else
            SaveData()                      '<<<<<<<<<<<<<<<<<<<<<<<<<
        End If

        MsgBox("تم تخزين البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")
        txtName.Text = Nothing
        txtName.Focus()
    End If
End Sub

Private Function ExistName(ByVal theName As String) As Boolean '<<<<<<<<<<<<<<<<<<<<<<<<<<
    Dim ExistDataSQl As String = "SELECT [TheName] FROM [TheTable] WHERE [TheName]=@TheName"
    Dim ExistDataCMD As New OleDbCommand(ExistDataSQl, Con)
    ExistDataCMD.Parameters.AddWithValue("@TheName", theName)
    Dim ExistDataADP As New OleDbDataAdapter(ExistDataCMD)
    If ExistDataADP.Fill(New DataTable) > 0 Then Return True
End Function
الرد }}}
تم الشكر بواسطة: أبوبكر سويدان
#7
هو المطلوب بالضبط
شكرا
اول مرة اشوف هذا الكود
If ExistDataADP.Fill(New DataTable) > 0 Then Return True
اللي اعرفه انا هو
ExistDataADP.fill(dataset,"thetable")
برجاء توضيح الكود
الرد }}}
تم الشكر بواسطة:
#8
الكود السابق يوضح اضافة جدول جديد من نوع داتا تيبول في الذاكره المؤقته ram من نفس الاسم ExistDataADP
مش الواحد يقوم بتعريف dataset مثلآ
فلما اروح اسوي new
معناته انا اعتمدت على متغير واحد من نوع داتا سيت معرف سابقآ في ميدوال
وبدأت انشاء له فضاء اخر بنفس الاسم
بدل ان اقوم بتعريف متغير اخر بأسم مثلآ dataset2
والداتا سيت هي عباره عن جدول في الداتا ادبتر
عند الاستعلام قام بأنشاء جدول جديد في الداتا أدبتر
وكذالك قام بالتحقق من هذا الجدول الجديد
مثل عملية تعريف ExistDataADP.fill(dataset.table) > 0
هذا على حسب فهمي
أذا كان في كلامي خطاء الخبراء بارك الله فيهم مايقصروا بالشرح
والله اعلم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدد السجلات ورقم السجل الحالى فى ال datagridview اسلام الكبابى 2 1,107 10-09-21, 07:36 PM
آخر رد: dalas
  كود السجل الاخير احمد خطاب 3 1,789 18-11-18, 12:01 AM
آخر رد: elgokr
  الانتقال إلى السجل الثاني في قاعدة البيانات و إظهار الصورة التالية على picturebox ahmed_elwerfalli 6 4,241 24-12-16, 11:07 PM
آخر رد: ahmed_elwerfalli
Smile [VB.NET] [طلب] كود حذف السجل الحالي+جميع السجلات مبرمج بلا حدود 31 15,021 17-08-15, 02:30 AM
آخر رد: مبرمج بلا حدود
  البحث عن سجل معين في DATA Grid view السجل الاخر تصاعدي الدريساوي 1 4,566 27-05-14, 01:44 AM
آخر رد: الدريساوي
  حفظ السجل بدون التاريخ aftfm 4 3,313 27-01-14, 02:32 PM
آخر رد: aftfm
  مشكلة في كود التعديل على السجل eng.khalidvb 7 3,917 14-08-13, 11:45 AM
آخر رد: سعود
  العودة الي السجل الذي تم تعديله atefkhalf2004 1 1,534 22-07-13, 01:28 PM
آخر رد: atefkhalf2004
  معرفة لبسطر الذي تم التعديل فيه atefkhalf2004 1 1,581 15-07-13, 12:39 AM
آخر رد: atefkhalf2004
  سؤال في فتح الفورم حسب السجل. hefa 7 3,351 07-10-12, 11:59 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم