+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيف يمكن تحويل كود عدم التكرار (/showthread.php?tid=924)
كيف يمكن تحويل كود عدم التكرار - مصطفى_ظيمة - 11-11-13
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدى مشكلة بسيطة
حيث كنت استخدم هذا الكود فى vb6 لعد تكرار البيانات
السلام عليكم ورحمة الله وبركاته
لدى مشكلة بسيطة
حيث كنت استخدم هذا الكود فى 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 ولكن لم يفلح
رججاء مساعدتى جزاكم الله خيرا
رججاء مساعدتى جزاكم الله خيرا
RE: كيف يمكن تحويل كود عدم التكرار - Abu Ehab - 11-11-13
DISTINCT
RE: كيف يمكن تحويل كود عدم التكرار - مصطفى_ظيمة - 11-11-13
(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
ثم كود الحفظهل يمكن التعديل على هذا الكود ؟