هم زمانی در ADO

[net_ved]

ba salam
man baraye kar ba sqlserver az in ravesh estefade mikonam aya behtarin raveshe (makhsoosan vase projehaye bozorg va por karbar)
sqlconnection / adoquery / select or insert or delete or edit or ...
vali moshkele bozorgam hamzamani makhsoosan vase edit kardan ke age 2 nafar hamzaman ye fildo edit konan
1.aya cody vase timeout vojood dare ke narm afzaraee ke be sabke bala neveshtamo beshe dorostesh kard?
2.behtarin raveshe kar ba dade cheye?
mamnoon

[Touska]

برای Lock و UnLock کردن یک فیلد که در خال ویرایش هست.

TB : جدول مورد نظر
Tablename : نام جدول در SQl
FieldNaem : نام فیلدی که باید قفل شود.
Exp : شرط قفل شده آن رکورد


procedure TMain1.LockRec(TB: TADODataSet; TableName, FieldName, Exp: String);
Var
Query : String;
begin
TADODataSet(TB).Close;
Query := 'Begin Transaction '+#13+
'Select * From '+Trim(TableName)+' With (XLock) Where '+Trim(FieldName)+' = '+
QuotedStr(Exp);
TADODataSet(TB).CommandText := Trim(Query);
TADODataSet(TB).Open;
TADODataSet(TB).Requery;
end;

procedure TMain1.UnLockRec(TB: TADODataSet; TableName: String);
Var
Query : String;
begin
TADODataSet(TB).Close;
Query :=
'Select * From '+Trim(TableName)+#13+' '+
'Commit Transaction';
TADODataSet(TB).CommandText := Trim(Query);
TADODataSet(TB).Open;
TADODataSet(TB).Requery;
end;موفق باشید :)

[vcldeveloper]

قبلا درباره خصوصیت LockType و مقادیر آن (یعنی ltOptimistic و ltPessimistic) بحث کردیم. لطفا جستجو کنید.
در ضمن، طبق قوانین سایت، پینگلیش ممنوع است و باید فارسی تایپ کنید.

موفق باشید