Как отобразить запрос ч/з TDBGird

← →
n1tro (2003-06-19 18:14) [0]

Как отобразить запрос ч/з TDBGird
В книге написанно что типа создаёте TDBGird в свойствах етого компонента в поле DataSource выбираем DataModule.QuerySource
но у меня кроме DataModule.dataSource нету ни чего
Помогите с решить данную проблемку

← →
Семен Сорокин (2003-06-19 18:21) [1]

TDataSource + TQuery (Закладка DataAccess) тебя спасет.
Советую почитать доки по предемету.

← →
n1tro (2003-06-19 18:32) [2]

Я не понел как ето делать
да у меня под рукой не качественной литературы
и ещё, скажите Семен как делать
у меня усть запрос вот такой:
------------------------------------------------------------
SELECT Name, 1Name, Addres, Computer, Oplachenno, Admin, ID
FROM "Klients.DB" Klients
where klients.data=:dp1
-------------------------------------------------------------
потом по событию
--------------------------------------------------------------
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
datamodule2.Query2.Params[0].AsString:=datetostr(DT1.Date);
end;
--------------------------------------------------------------
и мне нужно вывести данные по выбранной дате в таблицу

Скажите как ето сделать

← →
Семен Сорокин (2003-06-19 18:42) [3]

в дизайнере для Datamodule2.Query2 вставь текст в Sql:
SELECT Name, 1Name, Addres, Computer, Oplachenno, Admin, ID
FROM Klients where data=:dp1
DatabaseName = Путь где находится klients

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
with datamodule2.Query2 do begin
Close;
Params[0].AsDateTime := DT1.Date;
Open
end
end;

и все-таки найди время почитать литературу.

← →
n1tro (2003-06-19 18:47) [4]

Спасибо завтра поюду книги посмотрю
не подскажите Какую лучше взять по данно тематике
а то уменя С.Бобровский есть но там всё поверхностно

← →
Семен Сорокин (2003-06-19 18:52) [5]

Сам врядли подскажу, давно уже ничего не читал :))
но здесь этого добра навалом, главное только захотеть найти.

← →
n1tro (2003-06-19 19:13) [6]

У меня возникла Ошибка вот в этом месте

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
with datamodule2.Query2 do begin
Close;
Params[0].AsDateTime := DT1.Date;
Open
end
end;

[Error] Unit5.pas(152): Illegal character in input file: " " ($A0)

и когда прописывал полный путь к базе
DatabaseName = С:\.............\klients.db
вылазила ошибка: Invalid use keyword
Token:DataBaseName

← →
Семен Сорокин (2003-06-19 19:23) [7]

DatabaseName = С:\.............\
без klients.db

← →
n1tro (2003-06-19 19:31) [8]

Не работает так
а какая разница м/у
DatabaseName = С:\.............\и FROM "Klients.DB"Klients
и ещё надо в сойстве запроса ставить Active:=true;??????

← →
n1tro (2003-06-19 19:42) [9]

всё понел не надо объеснять я ступил немного :)Sorry
А ошибка в процедуре не изчезает
Illegal character in input file: " " ($A0)
вылазеет на

with datamodule2.Query2 do begin
Close;{Здесь}
Params[0].AsDateTime := DT1.Date;
Open{и Здесь}
end

Может так написать

datamodule2.Query2.CloseDatabase
и
datamodule2.Query2.OpenDatabase

← →
Anatoly Podgoretsky (2003-06-19 19:58) [10]

← →
n1tro (2003-06-19 20:01) [11]

Не понел !!!

← →
ЮЮ (2003-06-20 02:41) [12]

русская буква присутствует в коде :-)

← →
Rol (2003-06-20 06:20) [13]

мляя...
Надо же, ни Anatoly Podgoretsky, ни ЮЮ ни одного слова о врождённом слабоумии и ленности ума - очевидное невероятное... :)

← →
Жук (2003-06-20 09:09) [14]

> Rol (20.06.03 06:20)

Все читают и тихо хихикают. :-)))

Как отобразить запрос ч/з TDBGird Найти похожие ветки