Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

PigMey © (2003-09-30 21:14:00)

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

MsGuns (2003-10-06 14:29:00) [1]

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

KSergey (2003-10-06 14:08:00) [2]

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

Sergey_Masloff (2003-10-06 09:11:00) [3]

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

PigMey (2003-10-05 23:43:00) [4]

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

Sergey_Masloff (2003-10-05 17:47:00) [5]

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

PigMey (2003-10-05 17:36:00) [6]

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

Anatoly Podgoretsky (2003-10-05 14:38:00) [7]

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

PigMey (2003-10-05 12:17:00) [8]

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

sniknik (2003-10-05 00:12:00) [9]

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

PigMey (2003-10-04 21:50:00) [10]

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

PigMey (2003-10-04 14:53:00) [11]

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

VAleksey (2003-10-02 14:38:00) [12]

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

me (2003-10-02 13:57:00) [13]

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;

Sergey_Masloff (2003-09-30 22:45:00) [14]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »