VPF::Ошибка при выполнение - Форум программистов

COOLJohn

Дата 11.1.2006, 11:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Хочу добавить в базу данных.
Написал следующее:

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
Table1.TableName:='Телефонный справочник';
DataSource1.DataSet:=Table1;
DBGrid1.DataSource:=DataSource1;
Table1.Active:=true;
DBGrid1.Enabled:=true;
Table1.RecNo:=i;
Table1.Edit;
Table1.FieldByName('Фамилия').AsString:='Байдель';
Table1.FieldByName('Имя').AsString:='Алеся';
Table1.FieldByName('Отчество').AsString:='Генадевна';
Table1.FieldByName('Улица').AsString:='Чкалова';
Table1.FieldByName('Дом').AsString:='37';
Table1.FieldByName('Квартира').AsInteger:=113;
Table1.FieldByName('Телефон').AsString:='3-42-55';
end;

end.

По логике всё правильно, да и по пугнктуации, но при выполнение приложения выскакивает ошибка
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EDBEngineError with message 'At end of table.'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Что я не доделал?

P.S.:
В форме находится DataSource1, соединённый с Table1 и DBGrid1, соединённый с DataSource1.

Albinos_x

Дата 11.1.2006, 11:38 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

забыл в конце post сделать...и

Код


Table1.RecNo:=i;

енто что? написал бы тогда так

Код


Table1.RecNo:=0;

потом....у тебя в БД записи есть, чтоб их редактировать?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Guedda

Дата 11.1.2006, 11:39 (ссылка)

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

Загрузка ...

Подрывник

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

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

А где Table1.Post?
/// Пожалуйста, пишите программный код в контейнере для кода

--------------------

Ll 2

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