من دا انفذ هذا الكود
de2.rsCommand1.MoveFirst
While Not de2.rsCommand1.EOF = True
de2.rsCommand1.Fields("no").Value = de2.rsCommand1.AbsolutePosition
de2.rsCommand1.Update
de2.rsCommand1.MoveNext
Wend
يتوقف في السطر الثالث ويعطي رسالة مفادها هذا الريكوردسيت لايدعم التحديث .وهذا ممكن بسبب التحديد من البروفايدر او نوع القفل (locktype)
طبعا ('no') مأخوذ من هذا الكود
de2.rsCommand1.Open "SELECT ' ' as [no], (contract_information.contract_id), (contract_information.contract_name),(contract_information.work_case),(contract_information.contract_company_name),(contract_information.contract_chief),(contract_information.contract_warning),(contract_information.date_warning),(progress_work.percent),(contract_information.notes)" & _
",contract_information.contract_chief " & _
" FROM (contract_information), (progress_work) " & _
" Where (contract_information.contract_id = progress_work.contract_id) and (contract_information.work_case='ãÓÊãÑ' or contract_information.work_case='ãÊæÞÝ') "
de2.rsCommand1.MoveFirst
While Not de2.rsCommand1.EOF = True
de2.rsCommand1.Fields("no").Value = de2.rsCommand1.AbsolutePosition
de2.rsCommand1.Update
de2.rsCommand1.MoveNext
Wend
يتوقف في السطر الثالث ويعطي رسالة مفادها هذا الريكوردسيت لايدعم التحديث .وهذا ممكن بسبب التحديد من البروفايدر او نوع القفل (locktype)
طبعا ('no') مأخوذ من هذا الكود
de2.rsCommand1.Open "SELECT ' ' as [no], (contract_information.contract_id), (contract_information.contract_name),(contract_information.work_case),(contract_information.contract_company_name),(contract_information.contract_chief),(contract_information.contract_warning),(contract_information.date_warning),(progress_work.percent),(contract_information.notes)" & _
",contract_information.contract_chief " & _
" FROM (contract_information), (progress_work) " & _
" Where (contract_information.contract_id = progress_work.contract_id) and (contract_information.work_case='ãÓÊãÑ' or contract_information.work_case='ãÊæÞÝ') "