Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Ошибка при выполнение

Автор: COOLJohn 11.1.2006, 11:25

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

Код


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

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

Код


Table1.RecNo:=i;

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

Код


Table1.RecNo:=0;

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

Автор: Guedda 11.1.2006, 11:39

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