تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن تحويل كود عدم التكرار
#1
Question 
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته
لدى مشكلة بسيطة

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

كود :
dim Ks As New ADODB.Recordset


2         If Ks.State = ADODB.ObjectStateEnum.adStateOpen Then Ks.Close()


3         Ks.Open("select * FROM [tb] WHERE  [name] LIKE '%" & Trim(Text2.Text) & "%'", db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)


4         If Ks.RecordCount > 0 Then


5             MsgBox("الاسم موجود مسبقا ؟")


6         End If


7          


8         If MsgBox("هـل تريـد الحفـظ على أى حال ؟", MsgBoxStyle.Question + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.YesNoCancel, "رسالة") = MsgBoxResult.Yes Then


9          


ثم كود الحفظ


حاولت أن احوله إلى vb 2010 .Net ولكن لم يفلح

رججاء مساعدتى جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
DISTINCT
Abu Ehab : Microsoft Partner  & Systems Developer
 Youtube   Facebook    Twitter   
الرد }}}
تم الشكر بواسطة:
#3
(11-11-13, 07:23 PM)Abu Ehab كتب : DISTINCT

ممكن توضح اكثر ؟

انا مثلا استخدمت هذا الكود ولكن لم يضبط معى نهائياً

كود :
Dim sqlds As New SqlDataAdapter("SELECT name FROM tb WHERE name LIKE '" & Trim$(TextBox2.Text) & "'", con)
        MsgBox("هـذا الاسم موجـود مسبقاً")

        If MsgBox("هـل تريـد الحفـظ على أى حال  ؟", MsgBoxStyle.Question + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.YesNoCancel, "رسالة") = MsgBoxResult.Yes Then

ثم كود الحفظ

هل يمكن التعديل على هذا الكود ؟
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 958 07-09-21, 04:36 PM
آخر رد: bassant
  هل يمكن تعديل كلمة معينة داخل سجل alfaiz678 5 2,498 30-11-20, 09:42 PM
آخر رد: alfaiz678
  تحويل الأرقام العشرية إلى أعداد صحيحة وبشرط programmer_25 4 1,694 12-10-20, 12:18 AM
آخر رد: programmer_25
  كيف الغاء التكرار في البيانات بسام محمدغانم 0 1,695 27-12-19, 11:06 PM
آخر رد: بسام محمدغانم
  [سؤال] كيف أستطيع منع التكرار في ComboBox AL - WafaaPro 3 4,857 23-07-19, 02:13 AM
آخر رد: اسامه الهرماوي
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 10,222 01-07-19, 12:28 PM
آخر رد: essamprog
  كيفية تحويل الوحدات في نموذج فاتورة البيع من كرتون لحبة وخلافه wessam.demerdash 3 3,355 25-06-19, 10:20 PM
آخر رد: atefkhalf2004
  التكرار عند استخدام دالة الcount عبدالله .. 1 1,624 06-04-19, 09:05 PM
آخر رد: elgokr
  هل يمكن نقل بيانات DataGridView إلى Dataset . عبد الله 7 4,919 03-09-18, 11:23 PM
آخر رد: انيس القبائلي
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 6,740 30-01-18, 02:59 PM
آخر رد: atefkhalf2004

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


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