|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
DBF файл типа Visual FoxPro не добавляет новые записи
Здрасти!
У меня DBF файл типа Visual FoxPro не добавляет новые записи. Дает ошибку: "Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний" вот вся программа: Код:
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. Но если дать команду Код:
ADOTable1.Insert; Даже можно вводит все что надо. По команде: Код:
ADOTable1.Fields.Fields[0].AsDateTime:=StrToDateTime('12.12.2012 12'); Код:
ADOTable1.Post; провыйдер: Код:
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 Я давно не программировал на делфи. И почти ничего не знаю. Может, в правах что-то не то пишу. Не понимаю... Специально для получения ответа регился. Если поможете, я тоже буду Вашим другом и буду заходит часто |
#2
|
|||
|
|||
кстати,
Цитата:
Новых записей добавить не могу. |
#3
|
||||
|
||||
Честно говоря, не понимаю кому сейчас нужнны dbf-файлы. Существуют и более удобные варианты, к примеру, SQLite.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
Цитата:
А вот его программа работает! Вот. Меня попросили переделать входные данные для этой системы. А я уже давно пишу только на PHP и не хочу вернутся на VFP. Мне легче маленькие утилиты написать на паскале. В нете искал, но ничего толкового не нашел. Кто что знает? |
#5
|
|||
|
|||
Цитата:
Код:
use ? zap SET CENTURY on SET DATE to GERMAN SET HOURS to 24 SET MARK TO '.' SET SECONDS on APPEND FROM ? TYPE DELIMITED WITH ',' там такие входные данные идут: Код:
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 Это вед намного короче чем любой другой код. Если не найду здесь ответа, буду устанавливать себе фокспро... |