تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] استخدام المعاملات مع قواعد البيانات
#1
سلام عليكم ياسادة
أحياناً نضطر لتسجيل بيانات متكررة داخل قواعد البيانات مثل انوع ( ذكر / أنثى ) بدلاً من ذلك ننشئ جدول من حقلين الأول كود والثاني هي البيان . وباستخدام الكود التالي نحصل على قيمة الحقل الأول بمعرفة الثاني والعكس .
فمثلاً D_RS هو الجدول المستخدم لحفظ الأكواد ، D_Source  القيمة المطلوب البحث عنها داخل الجدول ، ترتيب حقل البحث ، D_Result_Col هو الحقل الناتج من الكود
Public Function Decoder(D_RS As Recordset, _
                        D_Source As String, _
                        D_Search_Col As Integer, _
                        D_Result_Col As Integer) As String
      On Error Resume Next
      D_RS.MoveLast
      D_RS.MoveFirst
      For Counter = 1 To D_RS.RecordCount
            If D_Source = Trim(D_RS.Fields(D_Search_Col)) Then
                  Decoder = D_RS.Fields(D_Result_Col)
                  Exit For
            Else
                  D_RS.MoveNext
            End If
      Next Counter
End Function
أرجو أن يحوز على إعجابكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

الكود بشكل أبسط :

كود :
Public Function Decoder(D_RS As Recordset, _
                       D_Source As String, _
                       D_Search_Col As Integer, _
                       D_Result_Col As Integer) As String

   If D_RS.RecordCount > 0 Then D_RS.MoveFirst
   Do Until D_RS.EOF
       If D_Source = Trim(D_RS.Fields(D_Search_Col)) Then
           Decoder = D_RS.Fields(D_Result_Col)
           Exit Do
       End If
       D_RS.MoveNext
   Loop

End Function


حاول قدر المستطاع أن تستغني عن جملة تجاوز الخطأ (On Error Resume Next)اا
خلي برنامج بالأساس ما يوصل للخطأ ولا يقع فيه ..
حتى تضمن نتائج صحيحة على طول ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: مصمم هاوي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال لطريقه جميله لحفظ الصور في قاعدة البيانات Ahmed_Mansoor 11 6,607 30-07-23, 02:53 PM
آخر رد: hasgaeb
  حفظ وعرض الصور في قاعدة البيانات @@أبورائد@@ 21 15,517 30-08-22, 04:44 PM
آخر رد: الباحث_عن الحقيقة
  [vb6.0] طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات شبح_الشبكة 1 998 21-11-21, 11:08 PM
آخر رد: Taha Okla
  [VB.NET] مشكلة عرض البيانات في القريد فيو mustafa mohamed 0 972 07-10-20, 02:18 PM
آخر رد: mustafa mohamed
  [مثال] تخزين واسترجاع الصور والملفات من قاعدة البيانات abulayth 14 10,839 06-10-20, 10:17 PM
آخر رد: SoftWare Haker
Star البحث في قاعدة البيانات الأصلية التي تحتوي على 150.000 رمز لمختلف المكونات MicroDoha 0 1,413 14-04-20, 12:32 PM
آخر رد: MicroDoha
  [مشروع] تصفح البيانات الكبيرة مجموعة مجموعة سعود 1 1,749 17-08-19, 10:45 AM
آخر رد: Ahmed_Mansoor
  استراد البيانات الاكسل الى الفيلكس قريد مع تحديد عدد الاعمدة mustafa mohamed 1 1,926 20-03-19, 12:46 AM
آخر رد: مصمم هاوي
  احتاج كود محو البيانات من قاعدة البيانات amro1965 6 2,754 13-07-18, 08:15 PM
آخر رد: amro1965
  ممكن كود الاتصال بقاعدة البيانات اكسس موجودة على جهاز متصل بالانترنت وله IP ثابت mustafa mohamed 0 1,953 11-06-18, 05:07 AM
آخر رد: mustafa mohamed

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


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