ADOTable1.Active:=False;
SQLStr:='update Tab set Name='+Quotedstr(Edit1.Text)+','+'Date='+Quotedstr(DateToStr(Date))+'where Name='+Quotedstr(NameStr)+'and Date='+Quotedstr(DateStr); SQLStr:='update T
SQLStr:='update Tab set Name='+Quotedstr(Edit1.Text)+','+'Date='+Quotedstr(DateToStr(Date))+'where Name='+Quotedstr(NameStr)+'and Date='+Quotedstr(DateStr); SQLStr:='update T