262 |
|
constructor Create(Attachment: TFB25Attachment; Transaction: ITransaction; |
263 |
|
sql: AnsiString; aSQLDialect: integer); |
264 |
|
constructor CreateWithParameterNames(Attachment: TFB25Attachment; |
265 |
< |
Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean); |
265 |
> |
Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; GenerateParamNames: boolean; |
266 |
> |
CaseSensitiveParams: boolean=false); |
267 |
|
destructor Destroy; override; |
268 |
|
function FetchNext: boolean; |
269 |
|
|
1180 |
|
InternalPrepare; |
1181 |
|
end; |
1182 |
|
|
1183 |
< |
constructor TFB25Statement.CreateWithParameterNames(Attachment: TFB25Attachment; |
1184 |
< |
Transaction: ITransaction; sql: AnsiString; aSQLDialect: integer; |
1185 |
< |
GenerateParamNames: boolean); |
1183 |
> |
constructor TFB25Statement.CreateWithParameterNames( |
1184 |
> |
Attachment: TFB25Attachment; Transaction: ITransaction; sql: AnsiString; |
1185 |
> |
aSQLDialect: integer; GenerateParamNames: boolean; |
1186 |
> |
CaseSensitiveParams: boolean); |
1187 |
|
begin |
1188 |
|
inherited CreateWithParameterNames(Attachment,Transaction,sql,aSQLDialect,GenerateParamNames); |
1189 |
|
FDBHandle := Attachment.Handle; |
1190 |
|
FFirebird25ClientAPI := Attachment.Firebird25ClientAPI; |
1191 |
|
OnDatabaseError := FFirebird25ClientAPI.IBDataBaseError; |
1192 |
|
FSQLParams := TIBXINPUTSQLDA.Create(self); |
1193 |
+ |
FSQLParams.CaseSensitiveParams := CaseSensitiveParams; |
1194 |
|
FSQLRecord := TIBXOUTPUTSQLDA.Create(self); |
1195 |
|
InternalPrepare; |
1196 |
|
end; |