(Delphi) Работа с базой

[v.v.veter]

Нужно из .txt файла вставить данные в базу.

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var VF:textfile; s:string;
begin
      booktable.Open;

      //связываем файловую переменную (типа дискриптор) с файлом
     AssignFile(VF,'c:\2.txt'); //это разовая программа, поэтому не время тратим
     //на всякие диалоги выбора файлов и прочие "красивости"

     // открываем файл
     Reset(VF);

    //в цикле читаем файл
    while not(eof(VF)) do
    begin
         ReadLn(VF,s); //читаем наименование товара
         Table.Append; // добавляем запись в базу данных
         Table.Fields.FieldByName('name').Value:=s; //записываем в поле
         ReadLn(VF,s); // читаем цены
         Table.Fields.FieldByName('price').Value:=StrToInt(s);
    end;
    CloseFile(VF);
    Table.Close;
end;

end.

unit Unit2;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModuleunit = class(TDataModule)
    booktable: TADOTable;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    booktableКод: TAutoIncField;
    booktableслово: TWideStringField;
    booktableповторов: TWideStringField;
    booktableкнига: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModuleunit: TDataModuleunit;

implementation

{$R *.dfm}

end.

А то чет я тут накрутил, и у меня не работает, да плохо разбираюсь в этом.
Проект с базой и .txt

[Serge_Bliznykov]

ну, сразу, ещё не открывая проект...
только посмотрев файл 2.txt
могу сказать, что добавление данных разботать не будет - выдаст ошибку преобразования строки в число!!

ReadLn(VF,s); //читаем наименование товара

нет. Этим Вы прочитаете ЦЕЛИКОМ строчку из файла.
т.е. для первой строчки там будет "стол 32" (без кавычек, разумеется)!
ну и второй ReadlN - прочитает не цену - а целиком ВТОРУЮ строчку!


p.s. кроме того, а что, Вы в таблице решили обойтись без ключевого поля?!
Это как минимум - нарушение правила создания реляционных СУБД. как максимум - ошибка проектирования структуры БД


сразу не обратил внимание...
а что такое переменная table ???!

Table.Append; // добавляем запись в базу данных
         Table.Fields.FieldByName('name').Value:=s; //записываем в поле

где она задаётся, устанавливается?!
С какой таблицей связана?!
Вы думаете, взяли чужой проект, в котором была работа с библиотекой, заменил, код, который был на кнопке и всё? этого достаточно?! Так Вы очень сильно заблуждаетесь!!!

[v.v.veter]

Ок,разберусь.