[Delphi]/[Pascal] Задай вопрос, получи ответ

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
[Delphi]/[Pascal] Задай вопрос, получи ответ

Страница 81 из 677

Опции темы

Поиск в этой теме

Опции просмотра

#801

07.12.2007, 19:02

XIII

Участник форума

Регистрация: 06.02.2006

Сообщений: 137

С нами: 10661697

Репутация: 15

чёта я тут натупил?

Цитата:

procedure TForm2.Button1Click(Sender: TObject);
begin
SimpleDataSet1.DataSet.CommandText:='select * from userlist where firstName=:Edit1.Text and lastName=:Edit2.Text';
if SimpleDataSet1.DataSet.RecordCount=0 then
begin
ShowMessage('Такого Логина нету');
Edit1.Clear;
Edit2.Clear;
end;
end;

#802

07.12.2007, 19:51

Hellsp@wn

Постоянный

Регистрация: 29.04.2007

Сообщений: 496

С нами: 10018466

Репутация: 588

наверное так:

Цитата:

SimpleDataSet1.DataSet.CommandText:='select * from userlist where firstName='+Edit1.Text+' and lastName='+Edit2.Text;

#803

07.12.2007, 20:40

XIII

Участник форума

Регистрация: 06.02.2006

Сообщений: 137

С нами: 10661697

Репутация: 15

пишит Missing drivername property
мот в SimpleDataSet1.DataSet.RecordCount надо чтото другое вместо .RecordCount ?

#804

09.12.2007, 04:14

presidentua

Постоянный

Регистрация: 04.11.2007

Сообщений: 331

С нами: 9746246

Репутация: 806

Цитата:

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

пишит Missing drivername property
мот в SimpleDataSet1.DataSet.RecordCount надо чтото другое вместо .RecordCount ?

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

Держи твой код:

Код:

procedure TForm2.Button2Click(Sender: TObject);
begin
SimpleDataSet1.DataSet.CommandText:='select * from userlist';// where firstName=:Edit3.Text and lastName=:Edit6.Text';
SimpleDataSet1.DataSet.Active:=true;
SimpleDataSet1.Active:=true;

if DataSource1.DataSet.RecordCount = 1  then
begin
      ShowMessage('Такого Логина нету');
      Edit1.Clear;
      Edit2.Clear;
end; 
end;

Только зопрос свой вставь.

#805

10.12.2007, 02:53

XIII

Участник форума

Регистрация: 06.02.2006

Сообщений: 137

С нами: 10661697

Репутация: 15

на SQLQuery1.SQL.CommaText:='select * from userlist where firstName=:Edit1.Text and lastName=:Edit2.Text';
пишит No value for parameter Edit1.Text

#806

10.12.2007, 03:38

LEE_ROY

Постоянный

Регистрация: 09.11.2006

Сообщений: 639

С нами: 10265091

Репутация: 541

ыы) вместо

Код:

firstName=:Edit1.Text

надо вообщето

Код:

firstName:=Edit1.Text

=: поменяй на :=

#807

10.12.2007, 03:46

XIII

Участник форума

Регистрация: 06.02.2006

Сообщений: 137

С нами: 10661697

Репутация: 15

тоже самое мот вообще == надо? =)

#808

10.12.2007, 03:54

LEE_ROY

Постоянный

Регистрация: 09.11.2006

Сообщений: 639

С нами: 10265091

Репутация: 541

Во как надо

Код:

SQLQuery1.SQL.CommaText:='select * from userlist where firstName' + Edit1.Text + 'and lastName' + Edit2.Text;

#809

10.12.2007, 03:57

XIII

Участник форума

Регистрация: 06.02.2006

Сообщений: 137

С нами: 10661697

Репутация: 15

а там mysql пишит почитайте мануал =)

#810

10.12.2007, 04:32

Twiddle

Познающий

Регистрация: 06.09.2006

Сообщений: 94

С нами: 10356548

Репутация: 15

Подскажите код который бы искал в файле бла-бла.тхт строчку, вернее часть строки, найдя записывал её и следующую за ней в файл и продолжал искать дальше, найдя ещё одну записывал бы так же в результат.тхт с новой строчки и так далее пока не найдет все.И высший пилотаж, если в результат.тхт быдет записываться кол-во найденных пар-строк и время/дата поиска.
Заранее спасибо

Страница 81 из 677

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ!	Alexsize	Беспроводные технологии/Wi-Fi/Wardriving	2570	09.06.2026 16:21
[jQuery] - Задай вопрос, получи ответ	Isis	PHP	62	25.12.2009 03:25

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход