[hqom]

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

عندي لست فيو 1 
وعندي قاعدة بيانات 

قاعدة البيانات تحتوي على 
1- محمد عبدالله 
2- محمد عبدالله 
3- اسلام جمال 

ولست فيو1 تحتوي على الاسماء الموجوده في قاعدة البيانات بس بدون تكرار الاسم 

اريد كود عند تحديد اسم في ( لست فيو1 ) يقوم بحذف جميع الاسماء ( المتشابه مع المحدد ) الموجوده في قاعدة البيانات 

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

[elgokr]

الامر كما هو فى الاستفسار السابق لا يختلف الامر شئ

خلاف فقط بدلاً من عملية الاستعلام والفلتر سيتم استبداله بكود الحذف

لتسهيل الامر اكثر ارفق المشروع 

حتى يتم كتابة الكود كاملاً بناءاً على اسماء الحقول والجداول

وللتاكيد هل تريد عند الحذف اتمام حذف جميع البيانات التى تحتوى على الاسم

مثلاً : جدول يحتوى على
محمد محمد
محمد محمد
احمد محمود
محمد محمد
على صلاح
محمد محمد

مثلاً عند تحديد اسم محمد محمد يصبح الناتج النهائي بقاعدة البيانات
احمد محمود
على صلاح

تحياتى لك

[حريف برمجة]

(25-05-18, 12:34 AM)hqom كتب : السلام عليكم ورحمة الله 

عندي لست فيو 1 
وعندي قاعدة بيانات 

قاعدة البيانات تحتوي على 
1- محمد عبدالله 
2- محمد عبدالله 
3- اسلام جمال 

ولست فيو1 تحتوي على الاسماء الموجوده في قاعدة البيانات بس بدون تكرار الاسم 

اريد كود عند تحديد اسم في ( لست فيو1 ) يقوم بحذف جميع الاسماء ( المتشابه مع المحدد ) الموجوده في قاعدة البيانات 

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

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

ضيف بوتن وانسخ الكود والصقه داخله :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cmd As New OleDbCommand("delete from hqom where name_1='" & ListView1.SelectedItems.Item(0).SubItems(0).Text & "'", con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''فقط الكود اللي فوق هو المسئول عن الحذف

'تعبئة الليست فيو2 بعد الحذف
       Retrieve2()

'تعبئة الليست فيو1 بعد الحذف
       Retrieve1()

'إظهار رسالة بنجاح عملية الحذف
       MsgBox("تم الحذف", 64, "My App")
   End Sub

تعبئة الليست فيو 1 + 2 + الفورم لود //// لأنه حصل فيها تغيير بسيط ،، انا هنا أتكلم عن المثال السابق .

كود :

   'صب خاص بتعبئة الليست فيو1
   Private Sub Populate1(name_1 As String)
       Dim row As String() = New String() {name_1}
       Dim item As ListViewItem = New ListViewItem(row)
       ListView1.Items.Add(item)
   End Sub

   'صب خاص بتعبئة الليست فيو2
   Private Sub Populate2(id As String, name_1 As String, Mopile_1 As String, Date_1 As String)
       Dim row As String() = New String() {id, name_1, Mopile_1, Date_1}
       Dim item As ListViewItem = New ListViewItem(row)
       ListView2.Items.Add(item)
   End Sub

   Private Sub Retrieve1()
       'تعبئة الليست فيو1
       ListView1.Items.Clear()
       cmd = New OleDbCommand("Select distinct name_1 from hqom", con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)

           Dim i As Int16 = 1

           For Each row As DataRow In dt.Rows
               Dim name_1 As String = "" : If Not row.IsNull(1) Then name_1 = row(1)
               Populate1(name_1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub

   Private Sub Retrieve2()
       'تعبئة الليست فيو2
       ListView2.Items.Clear()
       cmd = New OleDbCommand("SELECT * FROM hqom", con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
               Dim name_1 As String = "" : If Not row.IsNull(1) Then name_1 = row(1)
               Dim Mopile_1 As String = "" : If Not row.IsNull(2) Then Mopile_1 = row(2)
               Dim Date_1 As String = "" : If Not row.IsNull(3) Then Date_1 = row(3)
               Populate2(id, name_1, Mopile_1, Date_1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Retrieve2()



       Retrieve1()
   End Sub

[hqom]

(25-05-18, 01:17 AM)elgokr كتب :

الامر كما هو فى الاستفسار السابق لا يختلف الامر شئ

خلاف فقط بدلاً من عملية الاستعلام والفلتر سيتم استبداله بكود الحذف

لتسهيل الامر اكثر ارفق المشروع 

حتى يتم كتابة الكود كاملاً بناءاً على اسماء الحقول والجداول

وللتاكيد هل تريد عند الحذف اتمام حذف جميع البيانات التى تحتوى على الاسم

مثلاً : جدول يحتوى على
محمد محمد
محمد محمد
احمد محمود
محمد محمد
على صلاح
محمد محمد

مثلاً عند تحديد اسم محمد محمد يصبح الناتج النهائي بقاعدة البيانات
احمد محمود
على صلاح

تحياتى لك

نعم هو كذلك ربي يحفظك من كل شرر

---

(25-05-18, 10:11 AM)حريف برمجة كتب :

(25-05-18, 12:34 AM)hqom كتب : السلام عليكم ورحمة الله 

عندي لست فيو 1 
وعندي قاعدة بيانات 

قاعدة البيانات تحتوي على 
1- محمد عبدالله 
2- محمد عبدالله 
3- اسلام جمال 

ولست فيو1 تحتوي على الاسماء الموجوده في قاعدة البيانات بس بدون تكرار الاسم 

اريد كود عند تحديد اسم في ( لست فيو1 ) يقوم بحذف جميع الاسماء ( المتشابه مع المحدد ) الموجوده في قاعدة البيانات 

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

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

ضيف بوتن وانسخ الكود والصقه داخله :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cmd As New OleDbCommand("delete from hqom where name_1='" & ListView1.SelectedItems.Item(0).SubItems(0).Text & "'", con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''فقط الكود اللي فوق هو المسئول عن الحذف

'تعبئة الليست فيو2 بعد الحذف
       Retrieve2()

'تعبئة الليست فيو1 بعد الحذف
       Retrieve1()

'إظهار رسالة بنجاح عملية الحذف
       MsgBox("تم الحذف", 64, "My App")
   End Sub

تعبئة الليست فيو 1 + 2 + الفورم لود //// لأنه حصل فيها تغيير بسيط ،، انا هنا أتكلم عن المثال السابق .

كود :

   'صب خاص بتعبئة الليست فيو1
   Private Sub Populate1(name_1 As String)
       Dim row As String() = New String() {name_1}
       Dim item As ListViewItem = New ListViewItem(row)
       ListView1.Items.Add(item)
   End Sub

   'صب خاص بتعبئة الليست فيو2
   Private Sub Populate2(id As String, name_1 As String, Mopile_1 As String, Date_1 As String)
       Dim row As String() = New String() {id, name_1, Mopile_1, Date_1}
       Dim item As ListViewItem = New ListViewItem(row)
       ListView2.Items.Add(item)
   End Sub

   Private Sub Retrieve1()
       'تعبئة الليست فيو1
       ListView1.Items.Clear()
       cmd = New OleDbCommand("Select distinct name_1 from hqom", con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)

           Dim i As Int16 = 1

           For Each row As DataRow In dt.Rows
               Dim name_1 As String = "" : If Not row.IsNull(1) Then name_1 = row(1)
               Populate1(name_1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub

   Private Sub Retrieve2()
       'تعبئة الليست فيو2
       ListView2.Items.Clear()
       cmd = New OleDbCommand("SELECT * FROM hqom", con)
       Try
           con.Open()
           adapter = New OleDbDataAdapter(cmd)
           adapter.Fill(dt)
           For Each row As DataRow In dt.Rows
               Dim id As String = "" : If Not row.IsNull(0) Then id = row(0)
               Dim name_1 As String = "" : If Not row.IsNull(1) Then name_1 = row(1)
               Dim Mopile_1 As String = "" : If Not row.IsNull(2) Then Mopile_1 = row(2)
               Dim Date_1 As String = "" : If Not row.IsNull(3) Then Date_1 = row(3)
               Populate2(id, name_1, Mopile_1, Date_1)
           Next
           dt.Rows.Clear()
           con.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
           con.Close()
       End Try
   End Sub


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Retrieve2()



       Retrieve1()
   End Sub

عجييب امرك يا بطل والله مااافي كلام اوصفك في ( اقسم بالله انت مبدع ) 

تسلم على هذا المساعده ♥

[elgokr]

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

كل هدفي هو تبسيط الامر وتعليمك كيف اتت الفكرة وكتابة الكود

لكن الكود الذى كتبه حريف برمجة بسيط موضح بالتعليمات لكل جزء به

تحياتى لك 

وتمنياتى لك التوفيق