منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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 

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

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

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 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

haitham Muhammed

Taha Okla

haitham Muhammed

Taha Okla