I have problem with a new components of SDAC 7.0.2 14-Jan-15
Code: Select all
var
aQry : TMSQuery;
begin
if not Assigned(FConnection) then exit;
aQry := TMSQuery.Create(Self);
with aQry do
begin
Connection:=FConnection;
FetchAll:=False;
ParamCheck:=False;
UniDirectional:=True;
SQL.Assign(FChoicesSQL);
FilterSQL:=ReplaceStr(FChoicesSQLFilter.Text,#13,' ');
FilterSQL:=ReplaceStr(FilterSQL,#10,' ');
if FilterSQL<>'' then
Filtered:=True;
aQry.Prepare;
Self.Clear;
Items.BeginUpdate;
try
Open;
while not Eof do
begin
if not FChoicesIDField.IsEmpty then
begin
Items.Add(Fields[1].AsString);
StoredStrings[RecNo-1]:=FieldByName(FChoicesIDField).AsString
end
else
begin
Items.Add(Fields[0].AsString);
StoredStrings[RecNo-1]:=Fields[0].AsString
end;
Next;
end;
except
on E : Exception do
ShowMessage(E.ClassName + ' error raised, with message : ' + E.Message);
end;
Items.EndUpdate;
end;
aQry.Destroy;
FChoiceItemsLoaded:=True;EAssertion error raised, with message : Tablename cannot be empty
(D:\projects\Delphi\Dac\Sqlserver\Source\MSClasses.pas, line 1988)
Delphi 7Xe. MSDAC 7.0.2 14-Jan-15 Standart
Embarcadero® Delphi XE7 Version 21.0.17707.5020
Previously when we used a delphi xe4 and SDAC 6.7.14 15-Jul-13 Proffesional.
This problem haven't repeated.
In past future we are planned to Use Delphi XE7.
Kaspi Bank..