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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > كيف يمكن تحويل كود عدم التكرار
نسخة كاملة : كيف يمكن تحويل كود عدم التكرار
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

مصطفى_ظيمة

11-11-13, 05:44 PM
بسم الله الرحمن الرحيم

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

حيث كنت استخدم هذا الكود فى 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 ولكن لم يفلح

رججاء مساعدتى جزاكم الله خيرا

Abu Ehab

11-11-13, 07:23 PM
DISTINCT

مصطفى_ظيمة

11-11-13, 07:58 PM
(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

ثم كود الحفظ

هل يمكن التعديل على هذا الكود ؟
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > كيف يمكن تحويل كود عدم التكرار