VPF::Invalid use of keyword. Token:from - Форум программистов

2war

Дата 23.1.2009, 05:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.1.2009

Репутация: нет
Всего: нет

Код



unit Unit1;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Title:='База';
DataSource1.DataSet:=Query1;
DBGrid1.DataSource:=DataSource1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Query1.Close;
 Query1.SQL.Clear;
 Query1.SQL.Add('Select from kurs_predm.db');
 Query1.Open;
    Query1.FieldByName('Name').DisplayLabel:='наименование';
    Query1.FieldByName('Prepod').DisplayLabel:='Преподаватель';
    Query1.FieldByName('WeekDay').DisplayLabel:='День недели';
    Query1.FieldByName('DisTime').DisplayLabel:='Время';
end;



end.

Выводит ошибку: Project Project1.exe raised exception class EDBEngineError with message 'Invalid use of keyword.
Token:from
Line Number:1'. Process stopped. Use Step or Run to continue.

ТоляМБА

Дата 23.1.2009, 07:54 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 4
Всего: 252

Закомменти эти строки:

Цитата(2war @ 23.1.2009, 07:11

)

DataSource1.DataSet:=Query1;
DBGrid1.DataSource:=DataSource1;

В DRKB почитай статью "Рождение, жизнь и гибель формы" и обрати внимание когда при запуске программы выполняется процедура

Цитата(2war @ 23.1.2009, 07:11

)

FormCreate

МОДЕРАТОРЫ: Перенесите, плиз, тему в Делфи.

skyboy

Дата 23.1.2009, 09:24 (ссылка)

(нет голосов)

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 15
Всего: 260

Цитата(ТоляМБА @ 23.1.2009, 06:54

)

Закомменти эти строки:

а чего у него не так? установка свойств происходит уже после создания формы, все нормально, да.
2war, зря привел полный код на Delphi, а не только код запроса. на саммо деле,как тебе и "говорит Delphi", запрос

Цитата(2war @ 23.1.2009, 04:11

)

Select from kurs_predm.db

не корректен. потому что после Select должно идти перечисление полей, которые надо выбрать, или "*" для выбора всех имеющихся полей. А у тебя этого нет.

ТоляМБА

Дата 23.1.2009, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: 4
Всего: 252

Цитата(skyboy @ 23.1.2009, 11:24

)

а чего у него не так?

Не вели казнить!
Просто Делфю больше года не юзал, думал что ругается из-за того что объект Query1 ещё не создан. smile

Deniel_li

Дата 23.1.2009, 19:36 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 6.12.2007

Репутация: нет
Всего: 1

Query1.SQL.Add('Select * from kurs_predm.db');

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Составление SQL-запросов \| Следующая тема »