منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET مشكلة في كود الاضافة والتعديل
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
مشكلة في كود الاضافة والتعديل
khaled12345 غير متصل
عضو نشيط
*
المشاركات : 347
المواضيع 99
الإنتساب : Mar 2017
السمعة : 7
الشكر: 0
تم شكره 103 مرات في 76 مشاركات
#1
21-11-17, 11:05 PM
السلام عليكم الاخوة الاعزاء

يارب الجميع يكون بالف خير ان شاء الله

برجاء المساعدة في كود الاضافة والتعديل في المشروع المرفق

مع جزيل الشكر


الملفات المرفقة
.rar   ERC_cascaded_Sites.rar (الحجم : 150.54 ك ب / التحميلات : 27)
البحث
الرد }}}
تم الشكر بواسطة:
أحمد النجار غير متصل
كبار الشخصيات
المشاركات : 157
المواضيع 26
الإنتساب : Apr 2013
السمعة : 27
الشكر: 140
تم شكره 1809 مرات في 62 مشاركات
#2
21-11-17, 11:44 PM
تم التعديل


الملفات المرفقة
.rar   123.rar (الحجم : 163.32 ك ب / التحميلات : 39)
البحث
الرد }}}
تم الشكر بواسطة:
khaled12345 غير متصل
عضو نشيط
*
المشاركات : 347
المواضيع 99
الإنتساب : Mar 2017
السمعة : 7
الشكر: 0
تم شكره 103 مرات في 76 مشاركات
#3
22-11-17, 01:05 AM
(21-11-17, 11:44 PM)أحمد النجار كتب : تم التعديل

الف مليون شكر يا هندسة

كود الاضافة يعمل الحمد لله تمام

لكن كود التعديل لا يعمل

مع الشكر
البحث
الرد }}}
تم الشكر بواسطة:
a.ahmed غير متصل
عضو مبدع
المشاركات : 176
المواضيع 1
الإنتساب : Oct 2017
السمعة : 51
الشكر: 0
تم شكره 267 مرات في 175 مشاركات
#4
22-11-17, 01:32 AM
ERC_Cascaded_Sites
PHP كود :
Imports System.Data.OleDb

Public Class ERC_Cascaded_Sites

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Ericsson.accdb")

    Dim da As New OleDbDataAdapter("SELECT * FROM [ERC_Cascaded_Sites] ", con) ' جدول مصدر المعلومات 
    Dim dt As New DataTable        ' مكان التخزين
    Dim binding As New BindingSource


    '===========================================================================================================================
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        binding.DataSource = dt
        da.Fill(dt)

        '------------------------------------------
        Site_RegionTextBox.DataBindings.Add("Text", binding, "Site_Region")
        Site_IDTextBox.DataBindings.Add("Text", binding, "Site_ID")
        Site_TypeTextBox.DataBindings.Add("Text", binding, "Site_Type")
        FETextBox.DataBindings.Add("Text", binding, "FE")
        Link_IDTextBox.DataBindings.Add("Text", binding, "Link_ID")
        Link_ConfigTextBox.DataBindings.Add("Text", binding, "Link_Config")
        MNS_MWTextBox.DataBindings.Add("Text", binding, "MNS_MW")
        RegionTextBox.DataBindings.Add("Text", binding, "Region")
        AreaTextBox.DataBindings.Add("Text", binding, "Area")
        _2GTextBox.DataBindings.Add("Text", binding, "2G")
        _3GTextBox.DataBindings.Add("Text", binding, "3G")
        FDDTextBox.DataBindings.Add("Text", binding, "FDD")
        TDDTextBox.DataBindings.Add("Text", binding, "TDD")
        WiFiTextBox.DataBindings.Add("Text", binding, "WiFi")
        TotalTextBox.DataBindings.Add("Text", binding, "Total")
        ConnectivityTextBox.DataBindings.Add("Text", binding, "Connectivity")
        '------------------------------------------
        Site_RegionTextBox.ReadOnly = True
        Site_IDTextBox.ReadOnly = True
        Site_TypeTextBox.ReadOnly = True
        FETextBox.ReadOnly = True
        Link_IDTextBox.ReadOnly = True
        Link_ConfigTextBox.ReadOnly = True
        MNS_MWTextBox.ReadOnly = True
        RegionTextBox.ReadOnly = True
        AreaTextBox.ReadOnly = True
        _2GTextBox.ReadOnly = True
        _3GTextBox.ReadOnly = True
        FDDTextBox.ReadOnly = True
        TDDTextBox.ReadOnly = True
        WiFiTextBox.ReadOnly = True
        TotalTextBox.ReadOnly = True
        ConnectivityTextBox.ReadOnly = True
        '------------------------------------------

        Me.DataGridView1.DataSource = binding
        Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Me.DataGridView1.MultiSelect = False
        Me.DataGridView1.AllowUserToAddRows = False
        Me.DataGridView1.ReadOnly = True
        Me.DataGridView1.EnableHeadersVisualStyles = False
    End Sub


    '====================================================================================================================
    ' مفتاح الاضافة  ----Add
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using frm As New ERC_Cascaded_Sites_Add
            If frm.ShowDialog() = Windows.Forms.DialogResult.OK Then

                dt.Clear()
                da.Fill(dt)

                DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Selected = True
                DataGridView1.Rows(DataGridView1.Rows.Count - 1).Selected = True
                DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView1.Rows.Count - 1

            End If
        End Using
    End Sub

    '====================================================================================================================
    '  مفتاح التعديل   ----Update  or save 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.DataGridView1.Rows.Count > 0 Then
            Using frm As New ERC_Cascaded_Sites_Add

                Dim rowIndex As Integer = DataGridView1.CurrentRow.Index
                frm.id = Val(DataGridView1.CurrentRow.Cells(0).Value)

                If frm.ShowDialog = Windows.Forms.DialogResult.OK Then

                    dt.Clear()
                    da.Fill(dt)

                    DataGridView1.Rows(rowIndex).Cells(0).Selected = True
                    DataGridView1.Rows(rowIndex).Selected = True
                    DataGridView1.FirstDisplayedScrollingRowIndex = rowIndex

                End If

            End Using
        End If
    End Sub


    '====================================================================================================================
    ' مفتاح الحذف -------Delete 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If binding.Position < 0 Then Return
        If MsgBox("هل تريد فعلاً حذف هذا السجل", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تنبيه") = MsgBoxResult.Yes Then
            binding.RemoveCurrent()
            Dim builder As New OleDbCommandBuilder(da) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
            da.Update(dt)
        End If
    End Sub


    '====================================================================================================================
    '  تكست البحث
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        binding.Filter = "Site_Region LIKE '%" & TextBox1.Text & "%' "
    End Sub


    '====================================================================================================================
    ' السجل الاول 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        binding.MoveFirst()
    End Sub

    ' السجل السابق
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        binding.MovePrevious()
    End Sub

    ' السجل التالي
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        binding.MoveNext()
    End Sub

    ' السجل الاخير
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        binding.MoveLast()
    End Sub


    '====================================================================================================================
    ' مفتاح الاغلاق  ----Close
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

End Class 

ERC_Cascaded_Sites_Add
PHP كود :
Imports System.Data.OleDb

Public Class ERC_Cascaded_Sites_Add

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Ericsson.accdb")

    Public id As Integer = 0
    Dim da As OleDbDataAdapter  ' جدول مصدر المعلومات 
    Dim dt As New DataTable        ' مكان التخزين
    Dim binding As New BindingSource


    '===========================================================================================================================
    Private Sub ERC_Cascaded_Sites_Add_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        binding.DataSource = dt

        Dim sql As String = "SELECT * FROM [ERC_Cascaded_Sites] WHERE [ID]=" & id
        da = New OleDbDataAdapter(sql, con) ' جدول مصدر المعلومات 
        da.Fill(dt)

        Site_RegionTextBox.DataBindings.Add("Text", binding, "Site_Region")
        Site_IDTextBox.DataBindings.Add("Text", binding, "Site_ID")
        Site_TypeTextBox.DataBindings.Add("Text", binding, "Site_Type")
        FETextBox.DataBindings.Add("Text", binding, "FE")
        Link_IDTextBox.DataBindings.Add("Text", binding, "Link_ID")
        Link_ConfigTextBox.DataBindings.Add("Text", binding, "Link_Config")
        MNS_MWTextBox.DataBindings.Add("Text", binding, "MNS_MW")
        RegionTextBox.DataBindings.Add("Text", binding, "Region")
        AreaTextBox.DataBindings.Add("Text", binding, "Area")
        _2GTextBox.DataBindings.Add("Text", binding, "2G")
        _3GTextBox.DataBindings.Add("Text", binding, "3G")
        FDDTextBox.DataBindings.Add("Text", binding, "FDD")
        TDDTextBox.DataBindings.Add("Text", binding, "TDD")
        WiFiTextBox.DataBindings.Add("Text", binding, "WiFi")
        TotalTextBox.DataBindings.Add("Text", binding, "Total")
        ConnectivityTextBox.DataBindings.Add("Text", binding, "Connectivity")

        If id = 0 Then binding.AddNew()

    End Sub


    '===========================================================================================================================
    ' مفتاح التخزين 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        binding.EndEdit()

        Dim builder As New OleDbCommandBuilder(da) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
        da.Update(dt)

        If id = 0 Then
            MsgBox("تم حفظ البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")

        Else
            MsgBox("تم تحديث البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")

        End If

        Me.DialogResult = DialogResult.OK

    End Sub


    '===========================================================================================================================
    ' اغلاق الشاسة
    Private Sub Button18_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub


End Class 
البحث
الرد }}}
تم الشكر بواسطة:
khaled12345 غير متصل
عضو نشيط
*
المشاركات : 347
المواضيع 99
الإنتساب : Mar 2017
السمعة : 7
الشكر: 0
تم شكره 103 مرات في 76 مشاركات
#5
22-11-17, 02:02 AM
(22-11-17, 01:32 AM)a.ahmed كتب : ERC_Cascaded_Sites
PHP كود :
Imports System.Data.OleDb

Public Class ERC_Cascaded_Sites

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Ericsson.accdb")

    Dim da As New OleDbDataAdapter("SELECT * FROM [ERC_Cascaded_Sites] ", con) ' جدول مصدر المعلومات 
    Dim dt As New DataTable        ' مكان التخزين
    Dim binding As New BindingSource


    '===========================================================================================================================
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        binding.DataSource = dt
        da.Fill(dt)

        '------------------------------------------
        Site_RegionTextBox.DataBindings.Add("Text", binding, "Site_Region")
        Site_IDTextBox.DataBindings.Add("Text", binding, "Site_ID")
        Site_TypeTextBox.DataBindings.Add("Text", binding, "Site_Type")
        FETextBox.DataBindings.Add("Text", binding, "FE")
        Link_IDTextBox.DataBindings.Add("Text", binding, "Link_ID")
        Link_ConfigTextBox.DataBindings.Add("Text", binding, "Link_Config")
        MNS_MWTextBox.DataBindings.Add("Text", binding, "MNS_MW")
        RegionTextBox.DataBindings.Add("Text", binding, "Region")
        AreaTextBox.DataBindings.Add("Text", binding, "Area")
        _2GTextBox.DataBindings.Add("Text", binding, "2G")
        _3GTextBox.DataBindings.Add("Text", binding, "3G")
        FDDTextBox.DataBindings.Add("Text", binding, "FDD")
        TDDTextBox.DataBindings.Add("Text", binding, "TDD")
        WiFiTextBox.DataBindings.Add("Text", binding, "WiFi")
        TotalTextBox.DataBindings.Add("Text", binding, "Total")
        ConnectivityTextBox.DataBindings.Add("Text", binding, "Connectivity")
        '------------------------------------------
        Site_RegionTextBox.ReadOnly = True
        Site_IDTextBox.ReadOnly = True
        Site_TypeTextBox.ReadOnly = True
        FETextBox.ReadOnly = True
        Link_IDTextBox.ReadOnly = True
        Link_ConfigTextBox.ReadOnly = True
        MNS_MWTextBox.ReadOnly = True
        RegionTextBox.ReadOnly = True
        AreaTextBox.ReadOnly = True
        _2GTextBox.ReadOnly = True
        _3GTextBox.ReadOnly = True
        FDDTextBox.ReadOnly = True
        TDDTextBox.ReadOnly = True
        WiFiTextBox.ReadOnly = True
        TotalTextBox.ReadOnly = True
        ConnectivityTextBox.ReadOnly = True
        '------------------------------------------

        Me.DataGridView1.DataSource = binding
        Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Me.DataGridView1.MultiSelect = False
        Me.DataGridView1.AllowUserToAddRows = False
        Me.DataGridView1.ReadOnly = True
        Me.DataGridView1.EnableHeadersVisualStyles = False
    End Sub


    '====================================================================================================================
    ' مفتاح الاضافة  ----Add
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using frm As New ERC_Cascaded_Sites_Add
            If frm.ShowDialog() = Windows.Forms.DialogResult.OK Then

                dt.Clear()
                da.Fill(dt)

                DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Selected = True
                DataGridView1.Rows(DataGridView1.Rows.Count - 1).Selected = True
                DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView1.Rows.Count - 1

            End If
        End Using
    End Sub

    '====================================================================================================================
    '  مفتاح التعديل   ----Update  or save 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Me.DataGridView1.Rows.Count > 0 Then
            Using frm As New ERC_Cascaded_Sites_Add

                Dim rowIndex As Integer = DataGridView1.CurrentRow.Index
                frm.id = Val(DataGridView1.CurrentRow.Cells(0).Value)

                If frm.ShowDialog = Windows.Forms.DialogResult.OK Then

                    dt.Clear()
                    da.Fill(dt)

                    DataGridView1.Rows(rowIndex).Cells(0).Selected = True
                    DataGridView1.Rows(rowIndex).Selected = True
                    DataGridView1.FirstDisplayedScrollingRowIndex = rowIndex

                End If

            End Using
        End If
    End Sub


    '====================================================================================================================
    ' مفتاح الحذف -------Delete 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If binding.Position < 0 Then Return
        If MsgBox("هل تريد فعلاً حذف هذا السجل", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تنبيه") = MsgBoxResult.Yes Then
            binding.RemoveCurrent()
            Dim builder As New OleDbCommandBuilder(da) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
            da.Update(dt)
        End If
    End Sub


    '====================================================================================================================
    '  تكست البحث
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        binding.Filter = "Site_Region LIKE '%" & TextBox1.Text & "%' "
    End Sub


    '====================================================================================================================
    ' السجل الاول 
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        binding.MoveFirst()
    End Sub

    ' السجل السابق
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        binding.MovePrevious()
    End Sub

    ' السجل التالي
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        binding.MoveNext()
    End Sub

    ' السجل الاخير
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        binding.MoveLast()
    End Sub


    '====================================================================================================================
    ' مفتاح الاغلاق  ----Close
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub

End Class 

ERC_Cascaded_Sites_Add
PHP كود :
Imports System.Data.OleDb

Public Class ERC_Cascaded_Sites_Add

    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Ericsson.accdb")

    Public id As Integer = 0
    Dim da As OleDbDataAdapter  ' جدول مصدر المعلومات 
    Dim dt As New DataTable        ' مكان التخزين
    Dim binding As New BindingSource


    '===========================================================================================================================
    Private Sub ERC_Cascaded_Sites_Add_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        binding.DataSource = dt

        Dim sql As String = "SELECT * FROM [ERC_Cascaded_Sites] WHERE [ID]=" & id
        da = New OleDbDataAdapter(sql, con) ' جدول مصدر المعلومات 
        da.Fill(dt)

        Site_RegionTextBox.DataBindings.Add("Text", binding, "Site_Region")
        Site_IDTextBox.DataBindings.Add("Text", binding, "Site_ID")
        Site_TypeTextBox.DataBindings.Add("Text", binding, "Site_Type")
        FETextBox.DataBindings.Add("Text", binding, "FE")
        Link_IDTextBox.DataBindings.Add("Text", binding, "Link_ID")
        Link_ConfigTextBox.DataBindings.Add("Text", binding, "Link_Config")
        MNS_MWTextBox.DataBindings.Add("Text", binding, "MNS_MW")
        RegionTextBox.DataBindings.Add("Text", binding, "Region")
        AreaTextBox.DataBindings.Add("Text", binding, "Area")
        _2GTextBox.DataBindings.Add("Text", binding, "2G")
        _3GTextBox.DataBindings.Add("Text", binding, "3G")
        FDDTextBox.DataBindings.Add("Text", binding, "FDD")
        TDDTextBox.DataBindings.Add("Text", binding, "TDD")
        WiFiTextBox.DataBindings.Add("Text", binding, "WiFi")
        TotalTextBox.DataBindings.Add("Text", binding, "Total")
        ConnectivityTextBox.DataBindings.Add("Text", binding, "Connectivity")

        If id = 0 Then binding.AddNew()

    End Sub


    '===========================================================================================================================
    ' مفتاح التخزين 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

        binding.EndEdit()

        Dim builder As New OleDbCommandBuilder(da) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
        da.Update(dt)

        If id = 0 Then
            MsgBox("تم حفظ البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")

        Else
            MsgBox("تم تحديث البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")

        End If

        Me.DialogResult = DialogResult.OK

    End Sub


    '===========================================================================================================================
    ' اغلاق الشاسة
    Private Sub Button18_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        Me.DialogResult = DialogResult.Cancel
    End Sub


End Class 


مشكوووووووور يا هندسةSmile Smile Smile


ربنا يبارك في حضرتك يارب
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى Radiobutton عند وضع صورة فيه أبو جودة 3 80 15-04-24, 04:31 AM
آخر رد: Taha Okla
  [سؤال] لدي مشكلة عند قراءة ملف نصي من خلال أداة RichBox , حيث تظهر لي علامات استفهام Mostchar 2 149 07-04-24, 02:51 PM
آخر رد: تركي الحلواني
  مشكلة في التايمر assuhimi 3 126 23-03-24, 04:51 PM
آخر رد: Taha Okla
  [سؤال] مشكلة اتصال مفتوح dell 2 171 12-03-24, 09:46 PM
آخر رد: dell
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 156 12-03-24, 10:37 AM
آخر رد: strongriseman
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 162 06-03-24, 07:49 PM
آخر رد: احمد خطاب
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 305 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة فى رفع الفاتورة asdfar1977 5 176 25-02-24, 02:04 PM
آخر رد: asdfar1977
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 170 25-02-24, 06:29 AM
آخر رد: loay775
  لدي مشكلة في عرض تقارير الكريستال ريبورت في جهاز العميل Adel27213 1 310 14-02-24, 09:33 PM
آخر رد: sinong

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


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