Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 31.03.2010, 22:15
Pomidori Pomidori вне форума
Прохожий
 
Регистрация: 31.03.2010
Сообщения: 1
Репутация: 10
По умолчанию Проблема с БД на Access

Здраствуйте, помогите начинающему. Есть код на делфи
Код:
Form2.DataSetProvider1.DataSet.Open;
             Form2.ADOTable1.Insert;
                  Form2.ADOTable1.FieldByName('Строка').AsString:=Edit2.Text;
                  Form2.ADOTable1.FieldByName('Счетчик').AsInteger:=i;
                                     Form2.ADOTable1.Post;

Посоветуйте как сделать так, чтобы при вводе одинаковой "строки" у меня счетчик увеличивался на 1 и записывался в счетчик , а если строки отличаются то был равен i.Пробывал такой вариант, но мне не помогает.
Код:
 form2.ADOTable1.First;
           for k:= 1 to form2.ADOTable1.RecordCount do
       begin
          if Form2.ADOTable1.FieldByName('Строка').AsString=Edit2.Text then
          begin
          Form2.DataSetProvider1.DataSet.Open;
          form2.ADOTable1.Edit;
               Form2.ADOTable1.FieldByName('Счетчик').AsInteger:=i;

          end;
          i:=i+1;
          Form2.ADOTable1.next;
       end;
Admin: Пользуемся тегами!

Последний раз редактировалось Pomidori, 31.03.2010 в 22:32.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:01.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter