If Assigned(DS_main.DataSet) Then
try
DS_main.DataSet.Open;
Result:= DS_main.DataSet.Active;
finally
end;
Ошибка при открытии ADOTable
Здравствуйте.
Существует форма-предок, в которой находится TDataSource (имя - DS_main), открытие данных производится операторами
.
В 1-й форме наследнике находится объект TADOQuery
При открытии форм-наследников выполняется следующий код
и во 2-й форме наследнике находится объект TADOTable.
.
После этого вызывается метод предка для открытия данных. В 1-м наследнике данные открываются отлично, во 2-м наследнике происходит ошибка открытия на операторе 'DS_main.DataSet.Open;' и выдается сообщение "Project xxxx raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type String.'......"
Если открывать таблицу в Object Inspector - то ошибки нет.
В чем может быть проблема ?
Заранее спасибо.
Существует форма-предок, в которой находится TDataSource (имя - DS_main), открытие данных производится операторами
Код:
В 1-й форме наследнике находится объект TADOQuery
При открытии форм-наследников выполняется следующий код
Код:
ADOQuery.Connection:= DataModule_main.ADOConnect_main;
ADOQuery.SQL.Add(Текст запроса);
ADOQuery.SQL.Add(Текст запроса);
и во 2-й форме наследнике находится объект TADOTable.
Код:
ADOTable.Connection:= DataModule_main.ADOConnect_main;
ADOTable.TableName:= Имя таблицы;
ADOTable.TableName:= Имя таблицы;
.
После этого вызывается метод предка для открытия данных. В 1-м наследнике данные открываются отлично, во 2-м наследнике происходит ошибка открытия на операторе 'DS_main.DataSet.Open;' и выдается сообщение "Project xxxx raised exception class EVariantTypeCastError with message 'Could not convert variant of type (Null) into type String.'......"
Если открывать таблицу в Object Inspector - то ошибки нет.
В чем может быть проблема ?
Заранее спасибо.