+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود حذف الصفوف المكررة فى فيجوال 6 (/showthread.php?tid=23713)
الصفحات:
1
2
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 13-02-18
دائما انت كما اعتدناك استاذ احمد لا تبخل بعلمك ةلا مجهودك لمساعدة الاخرين.
لزيادة الشرح لما اريد انا ادى برنامج بيتم ادخل البيانات فى عن طريق ورقة اكسل تاتى من مكان اخر فليذالك يتم تكرار البيانات لذى انا اريد كود حذف التكرار من الجدول بالداتا بيز
RE: كود حذف الصفوف المكررة فى فيجوال 6 - Ahmed_Mansoor - 16-02-18
أهلا بك أخي الكريم رجل الكهرباء , طيب ماهو الحقل الذي تريده أن لايتكرر في الجدول وهل يتم حذف التكرار بغض النظر إن كان التاريخ أو حقل آخر في نفس الصف بقيم مختلفة في الصفوف المكرره , يعني مثال : هاذي مثلا بيانات 3 صفوف :
الحمام - 1/1/2016 - محمد السيد - 1
الحمام - 1/7/2016 - محمد السيد - 2
الحمام - 1/9/2016 - محمد السيد - 3
لاحظ حقل التاريخ في الثلاث صفوف مختلف وأيضا حقل الرقم مختلف , هل تريد تجاهل إختلاف التاريخ والرقم وإذا تجاهلتها أي صف من الصفوف الثلاث المكرره تريد حذفه أو بمعنى آخر أي قيمة في حقل التاريخ تريد الإحتفاظ بها هل أصغر تاريخ أو أكبر تاريخ أم لايهم ونفس الشي مع حقل الرقم , وإذا قلت أنك تسحب البيانات من ملف إكسل فنفس الفكرة تنطبق عليها فأي الصفوف الثلاثه المكرره تريد حفظه في الجدول أثناء عملية السحب التي تريدها بدون تكرار , أرجوا أن تكون فهمت ما أقصده .
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 16-02-18
استاذ احمد زادك الله علما ورفع شانك
الجدول الاصلى ليس به حقل للتاريخ
ولكن للمعرفه والتعلم لو سمحت ممكن يكون مثلان
جزاك الله عنا وعن من استفاد بعلمك خير
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 18-02-18
ارجو المساعده انا فى اشد الاحتياج لهذا المثال
RE: كود حذف الصفوف المكررة فى فيجوال 6 - sendbad100 - 18-02-18
PHP كود :
Private Sub Command1_Click()
sql = "SELECT DISTINCT A FROM t1"
'SQLs = "Select * From t1"
If RS.State = adStateOpen Then RS.Close
'RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
RS.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
With RS
.MoveFirst
Do Until .EOF
f (![a])
DoEvents
.MoveNext
Loop
End With
MsgBox "تمت العملية بنجاح "
End Sub
Sub f(n As String)
Dim F99 As New ADODB.Recordset
Dim R As Long
sql = "SELECT * FROM t1 WHERE A ='" & Trim(n) & "'"
F99.Open sql, DB, adOpenStatic, adLockOptimistic, adCmdText
R = F99.RecordCount
If R < 2 Then: Exit Sub
F99.MoveFirst
F99.MoveNext
Do Until F99.EOF
F99.Delete
F99.MoveNext
Loop
F99.Close
End Sub
Private Sub Form_Load()
PoolConnection
End Sub
لم استطع التعديل على مثالك لانك تستخدم ادوات تحتاج الى ترخيص او شراء
ولكن اعمل فورم جديد وضع به بوتن وانسخ هذا الكود بداخل الفورم بعد مسح كل ما فية
اتوقع بل متاكد ان هناك طرق اكثر اختصارا ولكن لا اعرفها وضعت لك الطريقة التي خطرت على بالي
بالتوفيق
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 18-02-18
شكرا اخى الطيب على إهتمامك ومساعدتك لى
لكن الكود لا يعمل معى انا عملت مثال اخر بدون ادوات تحتاج الى ترخيص او شراء
بارك الله لك فى أهلك ومالك وعملك
RE: كود حذف الصفوف المكررة فى فيجوال 6 - sendbad100 - 18-02-18
السلام عليكم
تفضل تم تعديل على الجدولين
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 18-02-18
(18-02-18, 02:51 PM)sendbad100 كتب : السلام عليكم
تفضل تم تعديل على الجدولين
شكرا اخى الطيب بارك الله لك و جزاكى الله خيراً وجعله في ميزان حسناتك ورزقكى جنةً عرضها السموات والأرض بارك الله فيك وجعل ما تقدمه من موضوعات في ميزان حسناتك
استاذى انا لى طلب ثانى هو حذف التكرار اذا تطابق الاسم والتاريخ
RE: كود حذف الصفوف المكررة فى فيجوال 6 - sendbad100 - 18-02-18
السلام عليكم
تفضل
.............................................
............................................
RE: كود حذف الصفوف المكررة فى فيجوال 6 - رجل الكهرباء - 18-02-18
(18-02-18, 04:03 PM)sendbad100 كتب : السلام عليكم
تفضل
.............................................
............................................
شكرا اخى انار الله قلبك بنور الايمان