Мадорский Г.В. wrote:
var Ret : TGLMemFields; .... ....Ret := SqlResult(Format('Select Field From Tbl Where Id = :Id', [Id]), Db,Tr);If (Assigned(Ret) and (not Ret.IsNull)) then Var := Ret.AsInteger;
И что тока люди не придумают чтобы не изучать C++ :-)
У меня для таких целей есть класс sql
sql("select ... where ... =:param1 ... =:param2",
sqlp("PARAM1",1,"PARAM2",2))->Fields[0]->AsInteger;
--
--- Home Page http://ok.novgorod.net/ap ---
