Ошибка при изменении БД

@ProstoMad · Регистрация: 30.06.2010

Студворк — интернет-сервис помощи студентам

Вот код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
   if(s.SubString(1,s.AnsiPos("#")-1)=="reg")
   {
     for(Form2->Table1->First();!Form2->Table1->Eof;Form2->Table1->Next())
       {
         Form2->Table1->Edit();
         if(Form2->Table1->FieldByName("Имя")->Text==s.SubString(s.AnsiPos("#")+1,(s.AnsiPos("%")-s.AnsiPos("#")-1)));
         {
           ServerSocket1->Socket->Connections[0]->SendText("/s#Такое имя уже существует, попробуй другое$");
           return;
         }
       }
     Form2->Table1->Append();
     Form2->Table1->Edit();
     Form2->Table1->FieldByName("Имя")->Text=s.SubString(s.AnsiPos("#")+1,s.AnsiPos("%")-s.AnsiPos("#")-1);
     Form2->Table1->FieldByName("Пароль")->Text=s.SubString(s.AnsiPos("%")+1,s.AnsiPos("@")-s.AnsiPos("%")-1);
     Form2->Table1->FieldByName("Дата")->Text=Date().CurrentDate();
     Form2->Table1->FieldByName("Время")->Text=Time().CurrentTime();
     Form2->Table1->FieldByName("IP")->Text=String(ServerSocket1->Socket->RemoteAddress);
     Memo1->Lines->Add(s);
   }

Где тут ошибка??
Если не видно где не правильно у меня, кину ошибку. просто не охота было скрин делать.

@Larsus · 24.09.2010, 08:15

Интересный у тебя цикл, никогда подобных записей не встречал, а вообще тебе не кажется что намного удобнее было бы запросом проверить есть такое имя в БД

C++
1
(SELECT бла бла бла FROM имя твоей таблицы WHERE Имя = '"+s.SubString(s.AnsiPos("#")+1,(s.AnsiPos("%")-s.AnsiPos("#")-1))+"' )

или нету оно и намного быстрее было и добавить в БД новую запись запросом тоже намного удобнне

не по теме:
Или Челябинские программисты настолько суровые что им проще в случае чего перебрать 1000 а иногда и более записей на нахождения повтора чем пойти по легкому пути и воспользоваться запросом=)

@ProstoMad · 24.09.2010, 14:46 **[ТС]**

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

не по теме:
Или Челябинские программисты настолько суровые что им проще в случае чего перебрать 1000 а иногда и более записей на нахождения повтора чем пойти по легкому пути и воспользоваться запросом=)

чет типа того)

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

намного удобнее было бы запросом проверить есть такое имя в БД

я не умею так. не знаю что делать с Select From Where

Добавлено через 5 часов 8 минут
Так про ошибку ничего не знаешь?

Добавлено через 43 минуты
или напишите пример с Select From и Where

@Larsus · 24.09.2010, 15:02

C++
1
2
3
4
5
6
7
8
    Query1->Close();
    Query1->SQL->Clear();
    Query1->SQL->Add("SELECT COUNT(*) AS CNT FROM 1 WHERE 2 =" + s.SubString(s.AnsiPos("#")+1,(s.AnsiPos("%")-s.AnsiPos("#")-1)));
    Query1->Open();
    if (Query1->FieldByName("CNT") != 0)
    {
        //такое имя уже существует
    }

заместо цифр в запросе
1 - название твоей таблицы
2 - имя поля в котором ищешь совпадение

ну и разумееться компоненту Query1 не забудь перед этим указать настройки соединения с БД как ты компоненту Table делал

@ProstoMad · 24.09.2010, 16:12 **[ТС]**

в

C++
1
if (Query1->FieldByName("CNT") != 0)

что делает

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

"CNT"

Добавлено через 52 секунды
и для чего надо закрывать Query в самом начале?

@Larsus · 25.09.2010, 08:05

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

в
Код C++
1
if (Query1->FieldByName("CNT") != 0)
что делает
Сообщение от Larsus
"CNT"

мда тут ошибочка вышла правильно будет if (Query1->FieldByName("CNT")->AsInteger != 0)

на счет CNT, если просто написать

SQL
1
SELECT COUNT(*) FROM 1 WHERE бла бла бла

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

C++
1
Query1->FieldByName("COUNT(*)")->AsInteger

не будет работать, поэтому в самом запросе мы присваиваем нужное название этому полю я присвоил CNT можешь написать все что угодно только не забудь поставить AS.

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

и для чего надо закрывать Query в самом начале?

Ну вообще это я всегда делаю на автомате и никогда не пробовал его не закрывать=), имхо так корректней ведь после его открытия ты же его не закрываешь значит в след раз он будет открыт перед его использованием=)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Опции темы