Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Данные не записиваются в БД Access, Компилятор не видет ошибки 
V
    Опции темы
Paradise
Дата 22.11.2006, 17:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Привет, я создал подключение к таблице БД Access через ADOConection, ADOTable и DataSourse, но когда я на прямую записиваю данные в конкретную ячейку таблицы БД, то компилятор ошибки не ведет, а таблица пустая.
Запись происходит при нажатии Button'a

Код

procedure TForm1.Button6Click(Sender: TObject);
begin
        with ADOTable1 do
               begin
                       First;

                       Edit;

                       Fields.Fields[2].AsString := 'Const';

                       Post;

                       Close;
               end;

end;


В место строки
Код

Fields.Fields[2].AsString := 'Const';

Я еще писал
Код

FieldAddress('Caption') := 'Const';

и
Код

FieldValues['Caption'] := 'Const';

но и в этом случае таблица БД пуста.
Таблица имеет такой вид:

  Поле               Тип данных
Kl                    Счетчик
Caption           Текстовый
FontSize         Числовой
FontName       Текстовый
Color               Текстовый
Font_*            Текстовый 
Font_k            Текстовый
Font__            Текстовый
Font_-             Текстовый

Свойство ReadOnly, компонента ADOTable, равно False.
Помогите!!!!!!!!!!!!!!!!!!!!!!!!!! smile 
PM MAIL   Вверх
Rodman
Дата 22.11.2006, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122
Попробуй поля так назвать

Поле               Тип данных

Kl                    Счетчик
CaptionDesc           Текстовый
FontSizeDesc         Числовой
FontNameDesc       Текстовый
ColorDesc               Текстовый
Font_Desc             Текстовый 
Font_k                   Текстовый
Font__                  Текстовый
Font__Desc            Текстовый


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
SergeBS
Дата 23.11.2006, 09:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22
Paradise, 
Цитата

Fields.Fields[2].AsString := 'Const';

Fields[2] у тебя - FontSize. Дальше тоже белиберда.
Цитата

First;
Edit;

Если записей нет, то надо - Append. Если есть - First лишнее. И т.д. F1 - полезная штука.
PM MAIL   Вверх
TaNK
Дата 23.11.2006, 10:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 669
Регистрация: 29.10.2006
Где: Краснодар

Репутация: нет
Всего: 1
Цитата(Paradise @ 22.11.2006,  17:55)
Привет, я создал подключение к таблице БД Access через ADOConection, ADOTable и DataSourse, но когда я на прямую записиваю данные в конкретную ячейку таблицы БД, то компилятор ошибки не ведет, а таблица пустая.
Запись происходит при нажатии Button'a

Код

procedure TForm1.Button6Click(Sender: TObject);
begin
        with ADOTable1 do
               begin
                       First;

                       Edit;

                       Fields.Fields[2].AsString := 'Const';

                       Post;

                       Close;
               end;

end;


В место строки
Код

Fields.Fields[2].AsString := 'Const';

Я еще писал
Код

FieldAddress('Caption') := 'Const';

и
Код

FieldValues['Caption'] := 'Const';

но и в этом случае таблица БД пуста.
Таблица имеет такой вид:

  Поле               Тип данных
Kl                    Счетчик
Caption           Текстовый
FontSize         Числовой
FontName       Текстовый
Color               Текстовый
Font_*            Текстовый 
Font_k            Текстовый
Font__            Текстовый
Font_-             Текстовый

Свойство ReadOnly, компонента ADOTable, равно False.
Помогите!!!!!!!!!!!!!!!!!!!!!!!!!! smile

Код

ADOTable1.First;
ADOTable1.Edit;
ADOTable1.Post;

так не поможет?


--------------------

Oracle 11.2.0.3.0
FireBird 1.0-2.5
PM MAIL ICQ   Вверх
Paradise
Дата 23.11.2006, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
Цитата

Код

Fields.Fields[2].AsString := 'Const';


Fields[2] у тебя - FontSize. Дальше тоже белиберда.Цитата
Код

First;
Edit;


Если записей нет, то надо - Append. Если есть - First лишнее. И т.д. F1 - полезная штука.


Fields[2] у меня - Сaption, уметь считать полезная штука, и записи уменя есть!!

Всем спасибо, я уже решил эту проблему.
PM MAIL   Вверх
SergeBS
Дата 24.11.2006, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22
Paradise, 
Fields[2] у тебя FontSize. Поскольку нумерация - с 0. Учи матчасть дальше. И заодно - правильно считать smile.
PM MAIL   Вверх
Paradise
Дата 24.11.2006, 14:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 85
Регистрация: 22.11.2006

Репутация: нет
Всего: нет
SergeBS, извини ошибся.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0517 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.