[haitham Muhammed]

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

[Taha Okla]

الكود التالي :

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 


[haitham Muhammed]

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

[Taha Okla]

تقريباً فيك تقول ممكن، لكن الكود السابق فيك تعدله كما تشاء وهو الأسرع من حيث مدة التنفيذ(ستلاحظ هذا عندما تحتاج التنفيذ على آلاف السجلات مرة واحدة)، 
أما بالنسبة لما تريد  : استبدل الكود الموجود بالنافذة باللكود التالي:

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