[Samigo]

Здрасти!
У меня DBF файл типа Visual FoxPro не добавляет новые записи.
Дает ошибку:
"Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний"
вот вся программа:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;   type   TForm1 = class(TForm)     DataSource1: TDataSource;     DBGrid1: TDBGrid;     ADOConnection1: TADOConnection;     ADOTable1: TADOTable;     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   ADOTable1.Open; end;   procedure TForm1.Button1Click(Sender: TObject); begin     // 1 вариант   ADOTable1.AppendRecord([nil,'dddd']);     // 2 вариант   ADOTable1.Insert;   ADOTable1.Fields.Fields[0].AsDateTime:=StrToDateTime('12.12.2012 12');   ADOTable1.Post;   end; end.

показывает и изменяет все как надо.

Но если дать команду

Код:

1	ADOTable1.Insert;

строка добавляется.
Даже можно вводит все что надо. По команде:

Код:

1	ADOTable1.Fields.Fields[0].AsDateTime:=StrToDateTime('12.12.2012 12');

Но когда перехожу на другой запись или даю команду

Код:

1	ADOTable1.Post;

эррор!

провыйдер:

Код:

1

Provider=VFPOLEDB.1;Data Source=C:\PROJECTS\DELPHI\VFP2;Mode=ReadWrite|Share Deny Read|Share Deny Write;Extended Properties="";User ID="";Password="";Mask Password=False;Cache Authentication=False;Encrypt Password=False;Collating Sequence=MACHINE;DSN="";DELETED=True;CODEPAGE=1251;MVCOUNT=16384;ENGINEBEHAVIOR=90;TABLEVALIDATE=3;REFRESH=5;VARCHARMAPPING=False;ANSI=True;REPROCESS=5

Я давно не программировал на делфи. И почти ничего не знаю.
Может, в правах что-то не то пишу. Не понимаю...

Специально для получения ответа регился.
Если поможете, я тоже буду Вашим другом и буду заходит часто

[Samigo]

кстати,

Но когда перехожу на другой запись

не добавляя нового все нормально меняется.
Новых записей добавить не могу.

[angvelem]

Честно говоря, не понимаю кому сейчас нужнны dbf-файлы. Существуют и более удобные варианты, к примеру, SQLite.

[Samigo]

Сообщение от angvelem

Честно говоря, не понимаю кому сейчас нужнны dbf-файлы. Существуют и более удобные варианты, к примеру, SQLite.

В одном месте работает программа на VFP6. Тот кто это сделал давно умер. Он был моим другом. Упал с крыши дома.
А вот его программа работает!
Вот. Меня попросили переделать входные данные для этой системы.
А я уже давно пишу только на PHP и не хочу вернутся на VFP.
Мне легче маленькие утилиты написать на паскале.
В нете искал, но ничего толкового не нашел.
Кто что знает?

[Samigo]

Сообщение от angvelem

Честно говоря, не понимаю кому сейчас нужнны dbf-файлы. Существуют и более удобные варианты, к примеру, SQLite.

Кстати, кому как не знаю, но то что не получается на дельфи, там делается очень просто:

Код:

1 2 3 4 5 6 7 8

use ? zap SET CENTURY on SET DATE to GERMAN SET HOURS to 24 SET MARK TO '.' SET SECONDS on APPEND FROM ? TYPE DELIMITED WITH ','

можно и без этих SET-ов. всего 3 строки!
там такие входные данные идут:

Код:

1 2 3

3692274250,7719272,29.07.2013 23:58:36,85,0,0,0,0,0,2274250,7719272,1,00101001,00000000,00000100,5419245,1-0,0,0,0,0,226,61436,200 3692278585,9141331,29.07.2013 23:59:40,27,0,0,0,0,0,2278585,9141331,1,00101001,00000000,00000100,5419248,1-0,0,0,0,0,226,61436,200 3694332718,83692272673,30.07.2013 0:0:6,7,0,0,0,0,0,4332718,2272673,1,00101001,00000000,00000100,5419254,1-0,0,0,0,232,0,61436,200

Это вед намного короче чем любой другой код.

Если не найду здесь ответа, буду устанавливать себе фокспро...