منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تسليم المنتج الذى تم مراجعته - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تسليم المنتج الذى تم مراجعته (/showthread.php?tid=47975)

تسليم المنتج الذى تم مراجعته - haitham Muhammed - 26-02-24

اريد تسليم المنتج الذى تم الانتهاء منه ومراجعته على قاعدة البيانات وفى النموذج والمنتج الذى لم ينتهى لا يتم تسليمه

RE: تسليم المنتج الذى تم مراجعته - Taha Okla - 26-02-24

الكود التالي :
PHP كود :
Private Sub Command1_Click()
    Con.Execute "Update tblproducts Set isdeliver = True Where isfinished = True And isreview = True"

    Set DataGrid1.DataSource = Nothing
    ShowData
End Sub 


RE: تسليم المنتج الذى تم مراجعته - haitham Muhammed - 26-02-24

استاذنا ..هل يمكن استعمال جملة selectفى sqlثم عمل update بالشروط للسجلات حيث لو هناك حقول باسم القائم بالتعديل او تاريخ التعديل او تاريخ التسليم يمكن تعديلها

RE: تسليم المنتج الذى تم مراجعته - Taha Okla - 26-02-24

تقريباً فيك تقول ممكن، لكن الكود السابق فيك تعدله كما تشاء وهو الأسرع من حيث مدة التنفيذ(ستلاحظ هذا عندما تحتاج التنفيذ على آلاف السجلات مرة واحدة)، 
أما بالنسبة لما تريد  : استبدل الكود الموجود بالنافذة باللكود التالي:
PHP كود :
Private Sub Command1_Click()
  '  Con.Execute "Update tblproducts Set isdeliver = True Where isfinished = True And isreview = True"'

    UpdateRecord
    
    Set DataGrid1.DataSource = Nothing
    ShowData
End Sub

Private Sub Form_Load()
    ShowData
End Sub


Sub ShowData()
    PoolConnection
    sqls = "select* from tblproducts "
    Rs.CursorLocation = adUseClient
    Rs.Open sqls, Con, adOpenKeyset, adLockPessimistic
    
    Set DataGrid1.DataSource = Rs
    Set Rs = Nothing
End Sub


Sub UpdateRecord()
    Dim RsE As New ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "Select * From tblproducts Where isfinished = True And isreview = True"
    
    RsE.Open strSQL, Con, adOpenKeyset, adLockOptimistic
    
    Do Until RsE.EOF
        RsE![isdeliver] = True
        '' '' '' '' '' '' '' ''
        RsE.Update
        
        RsE.MoveNext
    Loop
    
    RsE.Close
    Set RsE = Nothing
End Sub