Форум: "Начинающим";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];
ВнизПоле типа DATE при экспорте в ДБФ Найти похожие ветки
← →
Tneduts © (2009-07-15 16:26) [40]
> Anatoly Podgoretsky © (15.07.09 16:18) [39]
> Виталий Панасенко(дом) (15.07.09 15:42) [35]
Уважаемые, а можно "ОЧЕНЬ" детально(а лучше в примерах), как открыть готовый ДБФ, создать поле TIME а потом уже
> DBF.FieldByName("TIME").AsString := FormatDateTime("hh-mm-
> ss",TKDataSet.FieldByName("PTIME").AsDateTime);
← →
Anatoly Podgoretsky © (2009-07-15 16:54) [41]Для чего такие сложности, когда это делается за один присест при экспорте.
Ведь иначе придется выполнять два отчета, делать реструктиризацию, риск в получение неконсистентных данных и большие потери времени. И что смешнее всего точно также придется выделять дату и время.
← →
Tneduts © (2009-07-15 17:04) [42]
> Anatoly Podgoretsky © (15.07.09 16:54) [41]
Пусть так. Тогда покажите, пожалуйста, как с нуля, "в ручную" выгрузить в ДБФ.
Хотя бы не большой примерчик(сейчас рыскаю по инету в поисках подобного)
← →
Tneduts © (2009-07-15 18:23) [43]
Var
Exp1: TTable;
begin
Exp1.TableName := "ПУть\Export.dbf";
Exp1.TableType := ttDBase;
Exp1.Open;
Exp1.FieldDefs.Add("TIME",ftString, 20, false);
Exp1.FieldByName("TIME").AsString := FormatDateTime("hh-mm-ss",TKDataSet.FieldByName("PTIME").AsDateTime);
Exp1.Close;
Выдаёт
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message "Access violation at address 00642B5A in module "Project1.exe". Read of address 0000001C". Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Что я сделал не так?
← →
sniknik © (2009-07-15 18:38) [44]> Что я сделал не так?
не посмотрел в справку и не прочел ни единой обучающей книги...
p.s. серьезно думаешь, что кто то возьмется за твое обучение с 0? притом судя по всему вопреки твоему желанию не учится.
← →
Tneduts © (2009-07-15 18:43) [45]
> sniknik © (15.07.09 18:38) [44]
Я не прошу меня обучать, я прошу показать, как это делается.
← →
sniknik © (2009-07-15 19:08) [46]> Я не прошу меня обучать
того кто написал [43] и не понял [20] необходимо обучать... хотя бы "подтянуть" его до уровня чтобы он не писал глупости и начал понимать ответы.
← →
Tneduts © (2009-07-15 19:16) [47]
> sniknik © (15.07.09 19:08) [46]
>
> > Я не прошу меня обучать
> того кто написал [43] и не понял [20] необходимо обучать.
> .. хотя бы "подтянуть" его до уровня чтобы он не писал глупости
> и начал понимать ответы.
>
Так в чём проблема?
"Подтяните"!
Тем более, что я не прошу чего то сверх естественного, с вашим опытом ответить на мои глупости не составляет проблемы!!!!
← →
sniknik © (2009-07-15 19:45) [48]> Так в чём проблема?
> "Подтяните"!
забыл?
> p.s. серьезно думаешь, что кто то возьмется за твое обучение с 0? притом судя по всему вопреки твоему желанию не учится.
> с вашим опытом ответить на мои глупости не составляет проблемы!!!!
как раз таки наоборот, отвечать на глупости никакой опыт не поможет. ответить можно только тому кто спрашивает и реагирует разумно.
у тебя же с этим делом с первого уточнения (Anatoly Podgoretsky © (10.07.09 13:19) [1]) не заладилось.
← →
Виталий Панасенко(дом) (2009-07-15 21:37) [49]
> Tneduts © (15.07.09 19:16) [47]
>
>
> > sniknik © (15.07.09 19:08) [46]
> >
> > > Я не прошу меня обучать
> > того кто написал [43] и не понял [20] необходимо обучать.
>
> > .. хотя бы "подтянуть" его до уровня чтобы он не писал
> глупости
> > и начал понимать ответы.
> >
>
> Так в чём проблема?
> "Подтяните"!
> Тем более, что я не прошу чего то сверх естественного, с
> вашим опытом ответить на мои глупости не составляет проблемы!
> !!!
Так если ларчик просто открывается: открываешь, а он пуст.. при чем, абсолютно пуст...положи туда чего-нибудь. благо литературы сейчас - пруд-пруди, это не конец 80-х, начало 90-х. и в электронном виде валом, даже покупать не нужно
← →
Loginov Dmitry © (2009-07-15 22:45) [50]> Сделал бы руками, все было бы проще. Только в примере опечатка:
>
> DBF.FieldByName("TIME").AsString := FormatDateTime("hh-mm-
> ss",TKDataSet.FieldByName("PTIME").AsDateTime);
Месяц вместо минуты? Может автору это и нужно, как знать :))
← →
Виталий Панасенко(дом) (2009-07-16 12:02) [51]
> Loginov Dmitry © (15.07.09 22:45) [50]
сорри, сам не туды глянул..я про дату подумал...и про время одновременно...быват..:-)
← →
Tneduts © (2009-07-16 17:57) [52]
> sniknik © (15.07.09 19:45) [48]
> Виталий Панасенко(дом) (15.07.09 21:37) [49]
Достаточно пустых нравоучений!
----------------------------------------------------------------------------------
Проблема решена.
Всем принявшим конструктивное участие ОГРОМНОЕ СПАСИБО!
Отдельная благодарность Loginov Dmitry ©.
Тема закрыта.
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.09.20;
Скачать: [xml.tar.bz2];
Память: 0.55 MB
Время: 0.006 c