[pascal]
procedure TForm1.ADOTable1good_nameGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := sender.AsString;
end;
[/pascal]
標籤: ado
Delphi 交易處理(ADO)
[pascal]
begin
ADOConnection1.BeginTrans;
try
// 資料庫相關操作
ADOConnection1.CommitTrans;
except
on E:Exception do Begin
ADOConnection1.RollbackTrans;
End;
end;
end;
[/pascal]