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

كيف يمكن أن أتجاوز تصدير سجل يحتوي على حقل فارغ

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

السلام عليكــم ورحمـة الله وبركاتــه ،،

استخدم هذا الكود لتصدير البيانات ، ولكن لا أريد أن أصدر بيانات أي موظف يكون حقل empActive لديه فارغ

آمل منكم المساعدة والتوجيه .. وشكراً

			'الاتصال بقاعدة البيانات
			obj_command.CommandText = "SELECT empID,empName,empTitel, empActive FROM employee;"
			obj_command.CommandType = adCmdText
			Set obj_recordset = obj_command.Execute

						'إنشاء ملف نصي		 
				Open "c:\emp.txt" For Output As #1
Do Until obj_recordset.EOF

				empID = obj_recordset.Fields("empID").Value
			empName = obj_recordset.Fields("empName").Value
			empTitel = obj_recordset.Fields("empTitel").Value
			empActive = obj_recordset.Fields("empActive").Value

			Print #1, empID & " " & empName & " " & empTitel & " " & empActive 

			obj_recordset.MoveNext

							Loop

			Close #1

تم تعديل هذه المشاركة بواسطة Zaboor في 3 يوليو 2009 في 12:57

#2

مرحبا أخي العزيز ....

أعتقد أن موضوعك في .net

على العموم غير التالي :::

Do Until obj_recordset.EOF

if not len(obj_recordset.Fields("empActive").Value)= 0 then 

			empID = obj_recordset.Fields("empID").Value
			empName = obj_recordset.Fields("empName").Value
			empTitel = obj_recordset.Fields("empTitel").Value
			empActive = obj_recordset.Fields("empActive").Value

			Print #1, empID & " " & empName & " " & empTitel & " " & empActive 
end if
			obj_recordset.MoveNext
#3

السلام عليكم...

أيضاً يمكنك تعديل سطر الطباعة إلى الشكل التالي:

  1.  
  2. If Trim(empActive) <> "" Then
  3.     Print #1, empID & " " & empName & " " & empTitel & " " & empActive
  4. End If
  5.  

نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#4
        
        

      
السلام عليكــم ورحمـة الله وبركاتــه ،،
كل الشكر والتقدير لكما
دعواتي لكما بالتوفيق

      
      

      
    

  

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





  

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

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

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