الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إظهار مجموع حقلين من جدولين مختلفين.. كيف؟

بدأه wardah في 29 أغسطس 2008 · 3 رد · 611 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم يا أخوتي:

المطلوب كود يجمع حقلين من جدولين مختلفين وإظهار النتيجة في تكست

لقد استخدمت هذا الكود وهو شغال لكن المشكلة تظهر عندما يكون الشهر لايحمل بيانات والمرفق يوضح ذلك

Dim rs As New ADODB.Recordset
Dim sql
Dim t1
sql = "select sum(buy1) from [tab1] where [month] like '" & month.Text & "'"
rs.Open sql, db, adOpenDynamic, adLockPessimistic
t1 = rs(0)
Dim rs2 As New ADODB.Recordset
Dim sql2
Dim t2
sql2 = "select sum(buy1) from [tab2] where [month] like '" & month.Text & "'"
rs2.Open sql2, db, adOpenDynamic, adLockPessimistic
t2 = rs2(0)
Text1 = t1 + t2
#2 
  1. Dim rs As New ADODB.Recordset
  2. Dim SQL As String
  3. Dim t1 As Integer
  4. SQL = "select sum(buy1) from [tab1] where [month] like '" & month.Text & "'"
  5. rs.Open sql, db, adOpenDynamic, adLockPessimistic
  6. if rs.recordcount > 0 then t1 = rs(0)
  7. Dim rs2 As New ADODB.Recordset
  8. Dim sql2 as String
  9. Dim t2 As Integer
  10. sql2 = "select sum(buy1) from [tab2] where [month] like '" & month.Text & "'"
  11. rs2.Open sql2, db, adOpenDynamic, adLockPessimistic
  12. if rs.recordcount > 0 then t2 = rs2(0)
  13. Text1 = t1 + t2
  14.  


      
تم تعديل هذه المشاركة بواسطة المبرمج أحمد في 29 أغسطس 2008 في 16:33

      

      
سبحان الله وبحمده ... سبحان الله العظيم

    

  

    
    

      
#3
        
        

      
وهذه طريقة اخرى : 
Dim rs As New ADODB.Recordset
Dim SQL
Dim t1
If rs.State = 1 Then rs.Close
SQL = "select sum(bay) from [tab1] where [month_name] like '" & month.Text & "'"
rs.Open SQL, cn, adOpenDynamic, adLockPessimistic
t1 = IIf((IsNull(rs(0)) = False), rs(0), 0)
Dim rs2 As New ADODB.Recordset
Dim sql2
Dim t2
If rs2.State = 1 Then rs2.Close

sql2 = "select sum(bay) from [tab2] where [month_name] like '" & month.Text & "'"
rs2.Open sql2, cn, adOpenDynamic, adLockPessimistic
t2 = IIf((IsNull(rs2(0)) = False), rs2(0), 0)
Text1 = t1 + t2
تحياتي

      
      

      
OMANI FOR EVER
-------------------------------------------------
post-12787-12780191801974.jpg
-------------------------------------------------

    

  

    
    

      
#4
        
        

      
أخي omani شكرا جزيلا
أخي المبرمج أحمد ألف شكر للمرة الثانية.

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…