منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود حذف الصفوف المكررة فى فيجوال 6 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 SQLsDBadOpenKeysetadLockPessimistic
RS
.Open sqlDBadOpenStaticadLockOptimisticadCmdText
 With RS
 
.MoveFirst

Do Until .EOF

(![a])

 
DoEvents
.MoveNext
Loop

 End With
 MsgBox 
"تمت العملية بنجاح "
End Sub


Sub f
(As String)

Dim F99 As New ADODB.Recordset
Dim R 
As Long
sql 
"SELECT * FROM t1 WHERE A ='" Trim(n) & "'"

F99.Open sqlDBadOpenStaticadLockOptimisticadCmdText
  
  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 كتب : السلام عليكم 
تفضل

.............................................
............................................

شكرا اخى انار الله قلبك بنور الايمان