تقييم الموضوع :
  • 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)اا
خلي برنامج بالأساس ما يوصل للخطأ ولا يقع فيه ..
حتى تضمن نتائج صحيحة على طول ..
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة بسيطة لملف أداة ComboBox بمحتويات Field من قاعدة البيانات شبح_الشبكة 1 55 21-11-21, 11:08 PM
آخر رد: Taha Okla
  [VB.NET] مشكلة عرض البيانات في القريد فيو mustafa mohamed 0 408 07-10-20, 02:18 PM
آخر رد: mustafa mohamed
  [مثال] تخزين واسترجاع الصور والملفات من قاعدة البيانات abulayth 14 8,184 06-10-20, 10:17 PM
آخر رد: SoftWare Haker
Star البحث في قاعدة البيانات الأصلية التي تحتوي على 150.000 رمز لمختلف المكونات MicroDoha 0 736 14-04-20, 12:32 PM
آخر رد: MicroDoha
  [مشروع] تصفح البيانات الكبيرة مجموعة مجموعة سعود 1 977 17-08-19, 10:45 AM
آخر رد: Ahmed_Mansoor
  استراد البيانات الاكسل الى الفيلكس قريد مع تحديد عدد الاعمدة mustafa mohamed 1 1,187 20-03-19, 12:46 AM
آخر رد: مصمم هاوي
  حفظ وعرض الصور في قاعدة البيانات @@أبورائد@@ 20 12,968 06-01-19, 10:46 PM
آخر رد: الاسباط فيصل
  احتاج كود محو البيانات من قاعدة البيانات amro1965 6 1,683 13-07-18, 08:15 PM
آخر رد: amro1965
  ممكن كود الاتصال بقاعدة البيانات اكسس موجودة على جهاز متصل بالانترنت وله IP ثابت mustafa mohamed 0 1,179 11-06-18, 05:07 AM
آخر رد: mustafa mohamed
Information [مشروع] طريقة استخدام المكتبة SkinForm.dll لتغيير شكل النافذة Mohamad Anan 10 5,743 17-05-18, 05:39 AM
آخر رد: Mohamad Anan

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


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