تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود مسح اسم موجود في قاعدة بيانات وموجود في لست فيو
#1
السلام عليكم ورحمة الله 

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

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

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

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

يعني لو حددت من لست فيو على اسم ( محمد عبدالله ) واريد حذفه يقوم بحذف جميع اسماء ( محمد عبدالله )
الرد
تم الشكر بواسطة:
#2
الامر كما هو فى الاستفسار السابق لا يختلف الامر شئ
خلاف فقط بدلاً من عملية الاستعلام والفلتر سيتم استبداله بكود الحذف

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

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

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

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

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: hqom
#3
(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 , elgokr , sendbad100
#4
(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 , sendbad100
#5
الاخ حريف برمجة سبق وانهي الموضوع بالكود مباشر  Big Grin
كل هدفي هو تبسيط الامر وتعليمك كيف اتت الفكرة وكتابة الكود

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

تحياتى لك 
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: sendbad100 , hqom


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 335 14-06-19, 03:03 PM
آخر رد: elgokr
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 241 12-06-19, 11:41 AM
آخر رد: new2016
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 194 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 367 04-06-19, 03:12 PM
آخر رد: elgokr
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 762 29-05-19, 10:43 PM
آخر رد: egbest2
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 899 15-05-19, 08:24 PM
آخر رد: asemshahen5
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 86 03-05-19, 11:03 AM
آخر رد: DK-x
  [مثال] قاعدة بيانات SQL DK-x 2 164 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 139 27-04-19, 10:32 PM
آخر رد: saoud2
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 399 25-04-19, 09:26 AM
آخر رد: elgokr

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


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