14-06-18, 10:26 AM
فضلا يا أخوان مطلوب كود يقوم بحذف السجل من قاعدة البيانات والذي يتم إختياره من قائمة ComboBox
ويكون بلغة vb كرما وشكرا لكم .
ويكون بلغة vb كرما وشكرا لكم .
14-06-18, 10:26 AM
14-06-18, 04:45 PM
كود :
On Error Resume Next: Err.Clear
If Trim(ComboBox.Text) = "" Then
MsgBox "يجب اختيار الاسم أولاً", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
End If
Dim sure
sure = MsgBox("هل تريد بالتأكيد حذف السجل ¿", vbInformation + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد الحذف")
If sure = vbYes Then
'
If DB.State = adStateClosed Then Call ConnectionDatabase
DB.Execute "Delete From Table1 where Name = '" & Trim(ComboBox.Text) & "'"
DoEvents
MsgBox "تمت العملية بنجاح", vbOKOnly + vbInformation + vbMsgBoxRight, "حذف سجل"
End If
'
Call Form_Loadحيث Table1 اسم الجدول
و Name اسم الحقل
14-06-18, 10:34 PM
اخي الكريم شكرا لردك وتجاوبك ولكن الكود لم يعمل معي
ربما لغة البرمجمة التي استخدمها مختلفه بعض الشي
فانا استخدم فيجوال ستوديو 2015 ولغة المشورع فيجوال بيسك وربما بعض الأكواد فيه مختلفه عن التي ذكرت هنا وعلى سبيل المثال أنا لم أعرف الـ DB في الفورم ولهذا لم يعمل الكود
فالمعرفات الأساسية في النموذج هي
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
فهل هناك فرق بين لغة الفيجوال في إصدارات فيجوال بيسك وفيجوال استديو او جميعها تستخدم نفس اللغه ؟
ربما لغة البرمجمة التي استخدمها مختلفه بعض الشي
فانا استخدم فيجوال ستوديو 2015 ولغة المشورع فيجوال بيسك وربما بعض الأكواد فيه مختلفه عن التي ذكرت هنا وعلى سبيل المثال أنا لم أعرف الـ DB في الفورم ولهذا لم يعمل الكود
فالمعرفات الأساسية في النموذج هي
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
فهل هناك فرق بين لغة الفيجوال في إصدارات فيجوال بيسك وفيجوال استديو او جميعها تستخدم نفس اللغه ؟
15-06-18, 01:26 AM
(14-06-18, 10:34 PM)ZaerAllail كتب : [ -> ]اخي الكريم شكرا لردك وتجاوبك ولكن الكود لم يعمل معي
ربما لغة البرمجمة التي استخدمها مختلفه بعض الشي
فانا استخدم فيجوال ستوديو 2015 ولغة المشورع فيجوال بيسك وربما بعض الأكواد فيه مختلفه عن التي ذكرت هنا وعلى سبيل المثال أنا لم أعرف الـ DB في الفورم ولهذا لم يعمل الكود
فالمعرفات الأساسية في النموذج هي
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
فهل هناك فرق بين لغة الفيجوال في إصدارات فيجوال بيسك وفيجوال استديو او جميعها تستخدم نفس اللغه ؟
بالطبع يوجد اختلاف اخى الحبيب
فاذا القيت نظرة على الاقسام بالمنتدى
ستجد ان قسم vb6 منعزل تماماً عن vb.net
فيجب وضع السؤال فى الجيل المختص اذا كان 6 او .net
لتحصل على الكود والاجابة الصحيحة
على اى حال
كل اللى انت ستحتاج اليه هو كود التنفيذ بقاعدة البيانات
وهو الكود التالى
كود :
DELETE * FROM Table1 WHERE Name = '" & ComboBox1.Text & "'تحياتى لك
وتمنياتى لك التوفيق
15-06-18, 02:32 AM
(15-06-18, 01:26 AM)elgokr كتب : [ -> ](14-06-18, 10:34 PM)ZaerAllail كتب : [ -> ]اخي الكريم شكرا لردك وتجاوبك ولكن الكود لم يعمل معي
ربما لغة البرمجمة التي استخدمها مختلفه بعض الشي
فانا استخدم فيجوال ستوديو 2015 ولغة المشورع فيجوال بيسك وربما بعض الأكواد فيه مختلفه عن التي ذكرت هنا وعلى سبيل المثال أنا لم أعرف الـ DB في الفورم ولهذا لم يعمل الكود
فالمعرفات الأساسية في النموذج هي
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
فهل هناك فرق بين لغة الفيجوال في إصدارات فيجوال بيسك وفيجوال استديو او جميعها تستخدم نفس اللغه ؟
بالطبع يوجد اختلاف اخى الحبيب
فاذا القيت نظرة على الاقسام بالمنتدىستجد ان قسم vb6 منعزل تماماً عن vb.net
فيجب وضع السؤال فى الجيل المختص اذا كان 6 او .netلتحصل على الكود والاجابة الصحيحة
على اى حالكل اللى انت ستحتاج اليه هو كود التنفيذ بقاعدة البيانات
وهو الكود التالى
كود :
DELETE * FROM Table1 WHERE Name = '" & ComboBox1.Text & "'
تحياتى لك
وتمنياتى لك التوفيق
يعني إلي افهمه من ردك هو أن اللغة إلي يعتمدها الكود إلي ذكرته إلي هو هذا
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
هي لغة vb.net ؟
15-06-18, 05:02 AM
(15-06-18, 02:32 AM)ZaerAllail كتب : [ -> ](15-06-18, 01:26 AM)elgokr كتب : [ -> ](14-06-18, 10:34 PM)ZaerAllail كتب : [ -> ]اخي الكريم شكرا لردك وتجاوبك ولكن الكود لم يعمل معي
ربما لغة البرمجمة التي استخدمها مختلفه بعض الشي
فانا استخدم فيجوال ستوديو 2015 ولغة المشورع فيجوال بيسك وربما بعض الأكواد فيه مختلفه عن التي ذكرت هنا وعلى سبيل المثال أنا لم أعرف الـ DB في الفورم ولهذا لم يعمل الكود
فالمعرفات الأساسية في النموذج هي
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
فهل هناك فرق بين لغة الفيجوال في إصدارات فيجوال بيسك وفيجوال استديو او جميعها تستخدم نفس اللغه ؟
بالطبع يوجد اختلاف اخى الحبيب
فاذا القيت نظرة على الاقسام بالمنتدىستجد ان قسم vb6 منعزل تماماً عن vb.net
فيجب وضع السؤال فى الجيل المختص اذا كان 6 او .netلتحصل على الكود والاجابة الصحيحة
على اى حالكل اللى انت ستحتاج اليه هو كود التنفيذ بقاعدة البيانات
وهو الكود التالى
كود :
DELETE * FROM Table1 WHERE Name = '" & ComboBox1.Text & "'
تحياتى لك
وتمنياتى لك التوفيق
يعني إلي افهمه من ردك هو أن اللغة إلي يعتمدها الكود إلي ذكرته إلي هو هذا
Imports System.Data.OleDb
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
هي لغة vb.net ؟
نعم ولكن ليس هذه الفكرة بضبط
احياناً يختلف بعض الكلمات فى كتابة الاكواد بين كلا من الاصدار
لذلك بمجرد هذه الكلمة المختلفة قد تعطل الكود كاملاً وتقوم بايقاف المشروع
فكرة ما ذكرته من الكود
انت تعمل على مشكلة
وتعمل كود الاستعلام والاضافة والتعديل والحذف
نفس الطريقة الذى تستخدمها فى مشروعك ستتعامل بها
بس ان تجعل كود الحذف ما ذكرته بالاعلى
حتى يقوم باخذ قيمة كالاستعلام من ComboBox ليقوم بحذفه
تحياتى لك
وتمنياتى لك التوفيق
15-06-18, 05:07 AM
بارك الله فيك يا غالي وأشكرك على هذه المعلومه فهي عن الف جواب
كل عام وأنت بخير
كل عام وأنت بخير