تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود الاضافة والتعديل
#1
السلام عليكم الاخوة الاعزاء

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

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

مع جزيل الشكر


الملفات المرفقة
.rar   ERC_cascaded_Sites.rar (الحجم : 150.54 ك ب / التحميلات : 27)
الرد
تم الشكر بواسطة:
#2
تم التعديل


الملفات المرفقة
.rar   123.rar (الحجم : 163.32 ك ب / التحميلات : 37)
الرد
تم الشكر بواسطة:
#3
(21-11-17, 11:44 PM)أحمد النجار كتب : تم التعديل

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

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

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

مع الشكر
الرد
تم الشكر بواسطة:
#4
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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button4.Click
        If binding
.Position 0 Then Return
 
       If MsgBox("هل تريد فعلاً حذف هذا السجل"MsgBoxStyle.Question MsgBoxStyle.YesNo"تنبيه") = MsgBoxResult.Yes Then
            binding
.RemoveCurrent()
 
           Dim builder As New OleDbCommandBuilder(daWith {.QuotePrefix "[", .QuoteSuffix "]"}
 
           da.Update(dt)
 
       End If
 
   End Sub


    
'====================================================================================================================
    ' 
 تكست البحث
    Private Sub TextBox1_TextChanged
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.TextChanged
        binding
.Filter "Site_Region LIKE '%" TextBox1.Text "%' "
 
   End Sub


    
'====================================================================================================================
    ' 
السجل الاول 
    Private Sub Button8_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As EventArgsHandles Button2.Click

        binding
.EndEdit()

 
       Dim builder As New OleDbCommandBuilder(daWith {.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 ObjectByVal e As EventArgsHandles Button3.Click
        Me
.DialogResult DialogResult.Cancel
    End Sub


End 
Class 
الرد
تم الشكر بواسطة:
#5
(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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Button4.Click
        If binding
.Position 0 Then Return
 
       If MsgBox("هل تريد فعلاً حذف هذا السجل"MsgBoxStyle.Question MsgBoxStyle.YesNo"تنبيه") = MsgBoxResult.Yes Then
            binding
.RemoveCurrent()
 
           Dim builder As New OleDbCommandBuilder(daWith {.QuotePrefix "[", .QuoteSuffix "]"}
 
           da.Update(dt)
 
       End If
 
   End Sub


    
'====================================================================================================================
    ' 
 تكست البحث
    Private Sub TextBox1_TextChanged
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.TextChanged
        binding
.Filter "Site_Region LIKE '%" TextBox1.Text "%' "
 
   End Sub


    
'====================================================================================================================
    ' 
السجل الاول 
    Private Sub Button8_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 ObjectByVal e As EventArgsHandles Button2.Click

        binding
.EndEdit()

 
       Dim builder As New OleDbCommandBuilder(daWith {.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 ObjectByVal e As EventArgsHandles Button3.Click
        Me
.DialogResult DialogResult.Cancel
    End Sub


End 
Class 


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 100 أمس, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 46 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 37 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 92 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 222 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 203 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 352 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 45 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 134 05-10-18, 12:26 PM
آخر رد: asemshahen5
  [VB.NET] يقال ان هنالك تحديثات فريم ورك 4.5 برمجيه للدوال الحفظ والتعديل دلونا عليها Ebrahim5556 1 62 02-10-18, 11:30 AM
آخر رد: sendbad100

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


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