Связь с таблицей без компонент

← →
PigMey © (2003-09-30 21:14) [0]

Я создаю модуль, в котором пытаюсь создать связь с таблицей. Если я пишу такое начало:
var
MyQuery:TQuery;
MyDataSource:TDataSource;
begin
MyQuery.DatabaseName:="MyBase";
MyDataSource.DataSet:=MyQuery;
end;
то получаю ошибку. Почему?

← →
Sergey_Masloff (2003-09-30 22:45) [1]

И какую ошибку? Модуль в uses не объявил?

← →
me (2003-10-02 13:57) [2]

try
MyQuery := TQuery.Create(Self);
MyDataSource := TDataSource.Create(Self);
MyQuery.DatabaseName:="MyBase";
MyQuery.SQL.Add("select * from MyTable
MyDataSource.DataSet:=MyQuery;
MyQuery.Open();
// do my actions
finally
MyQuery.Free();
MyDataSource.Free();
end;

← →
VAleksey © (2003-10-02 14:38) [3]

Не созданы экземпляры классов TQuery и TDataSource.

← →
PigMey © (2003-10-04 14:53) [4]

Отлично, заработала.

← →
PigMey © (2003-10-04 21:50) [5]

Опсс. Не заработала. Если пишу как ME, то выдает ошибку: Incompatible types TComponent и TUnit. Если это поможет то код пишу в создаваемом модуле, может поэтому и ошибка?

← →
sniknik © (2003-10-05 00:12) [6]

нет не поэтому а потому что типы не совпадают.

← →
PigMey © (2003-10-05 12:17) [7]

Да нет, типы вроде одинаковые MyQuery:TQuery, а все равно выдает ошибку.

← →
Anatoly Podgoretsky © (2003-10-05 14:38) [8]

Код и где ошибка

← →
PigMey © (2003-10-05 17:36) [9]

Ошибка при создании MyQuery, а вот код
try
MyQuery := TQuery.Create(Self);
MyDataSource := TDataSource.Create(Self);
... и т.д.

← →
Sergey_Masloff (2003-10-05 17:47) [10]

PigMey ©
>MyQuery := TQuery.Create(Self);
Блин, ну а Self у тебя кто? Над этим ты подумал?
hint если на nil заменить то работает?

Ага, теперь все ОК. Спасибо

← →
Sergey_Masloff (2003-10-06 09:11) [12]

PigMey © (05.10.03 23:43) [11]
>Ага, теперь все ОК. Спасибо
Нет, если ты не понимаешь что такое Self то совсем не все ОК, извини уж. Совет - все же разберись почему заработало и почему не работало, это- основы, без них - только тупик.

... и страшные слова "утечка памяти!"...

Для TQuery владельцем может быть TDataBase, например. Но никак не Self..

Связь с таблицей без компонент Найти похожие ветки