تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
RE: اريد المشروع ادراه المكتبة
#1
سلام عليكم اخي.......
بلازحمه عليكم,
اشلون اسوي بحيث من ادخل بيانات وهذه البيانات موجوده مسبقا ماراح يضيفهه اليه ويكلي هذه البيانات موجده مسبقا
واشلون اسوي مان اوصل الى اخر سجل راح يكولي هذا اخر شي وكذلك الى اول سجل
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
بالنسبة للشق الاول من السؤال هو التحقق هل ان السجل مضاف او لا . .
عليكي بكتابة كود استعلام في زر الامر حفظ .

Dim Rs As New ADODB.Recordset

Rs.Open "Select * FROM Admin Where Caption='" & Text2 & "' ", DB, adOpenStatic, adLockPessimistic
If Rs.RecordCount > 0 Then
MsgBox "بالفعل تم حفظ هذا المستخدم في وقت سابق", vbCritical, "Message"
Beep
Text2.Text = ""
Text2.SetFocus
Rs.Close
Exit Sub
End If


Admin هو عبارة عن الجدول . .
Caption هو عبارة عن الحقل . .

اما فيما يخص الشق الثاني من السؤال
عليكي بكتابة الكود التالي في زر الامر السابق. .

If Not dRS.BOF Then dRS.MovePrevious

If dRS.BOF And dRS.RecordCount > 0 Then
MsgBox "آخر سجل ", vbCritical, "Message"
Exit Sub
End If

وعليكي بكتابة هذا الكود ايضاً في زر الامر التالي . .
If Not dRS.EOF Then dRS.MoveNext

If dRS.EOF And dRS.RecordCount > 0 Then
MsgBox "آخر سجل ", vbCritical, "Message"
Exit Sub
End If
" لا حول و لا قوة الا بالله "


الرد }}}}
تم الشكر بواسطة: السيد الغالي
#3
اني استخدم الاداة DATA CONTROL م ADO
الرد }}}}
تم الشكر بواسطة:
#4
ضع هذا الكود في زر الامر التالي :
On Error GoTo err

If Data1.Recordset.EOF Then

MsgBox " " هذا آخر سجل

End If

Data1.Recordset.MoveNext
-------------------------------
وهذا في زر الامر السابق

On Error GoTo err

If Data1.Recordset.BOF Then

MsgBox " " هذا أول سجل

End If

Data1.Recordset.MovePrevious
" لا حول و لا قوة الا بالله "


الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كتابة هذا الكود الى لغة الفيجول 6 bidaya 3 88 30-09-17, 08:27 PM
آخر رد: bidaya
  لديا قيمة في تاكست بوكس اريد تحويلها wolf1120 2 95 14-09-17, 07:20 PM
آخر رد: wolf1120
  اريد طريقه يبين لي ان البرنامج متصل بقاعدة البيانات او غير متصل scsi7000 1 105 05-08-17, 05:09 PM
آخر رد: Amir_alzubidy
  اريد مثال او طريقه لعمل جدول خفارات الموظف الكتروني scsi7000 1 105 02-08-17, 12:33 AM
آخر رد: Ahmed_Mansoor
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 166 01-08-17, 07:17 PM
آخر رد: scsi7000
  [سؤال] ربط المشروع بجدولين وتنسيق عملية الحفظ Abdellah 0 119 07-06-17, 10:39 PM
آخر رد: Abdellah
  اريد كود انشاء مجلد باسم عام جديد suliman alahdl 10 433 01-05-17, 12:18 AM
آخر رد: Ahmed_Mansoor
Question [سؤال] اريد اكواد حل المعادلات من جميع الدرجات لو سمحتو طارق++ 9 6,481 07-04-17, 01:06 PM
آخر رد: الخير طهوري
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 423 01-04-17, 02:18 AM
آخر رد: awidan76
  اريد كود لمنع التهنيج عند العمليات الطويله Etos 1 164 27-03-17, 07:32 PM
آخر رد: v_2017_6

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم