|
@@ -1214,7 +1214,14 @@ var tel, fieldc : integer;
|
|
ReadFromFile: Boolean;
|
|
ReadFromFile: Boolean;
|
|
begin
|
|
begin
|
|
ReadFromFile:=IsReadFromPacket;
|
|
ReadFromFile:=IsReadFromPacket;
|
|
- Prepare;
|
|
|
|
|
|
+ if ReadFromFile then
|
|
|
|
+ begin
|
|
|
|
+ FCursor:=TSQLCursor.Create;
|
|
|
|
+ FCursor.FStatementType:=stSelect;
|
|
|
|
+ FUpdateable:=True;
|
|
|
|
+ end
|
|
|
|
+ else
|
|
|
|
+ Prepare;
|
|
if FCursor.FStatementType in [stSelect,stExecProcedure] then
|
|
if FCursor.FStatementType in [stSelect,stExecProcedure] then
|
|
begin
|
|
begin
|
|
if not ReadFromFile then
|
|
if not ReadFromFile then
|