11-11-13, 05:44 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لدى مشكلة بسيطة
حيث كنت استخدم هذا الكود فى 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 ولكن لم يفلح
رججاء مساعدتى جزاكم الله خيرا
رججاء مساعدتى جزاكم الله خيرا