ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
07.12.2007, 19:02
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
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;
|
|
|
07.12.2007, 19:51
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
наверное так:
SimpleDataSet1.DataSet.CommandText:='select * from userlist where firstName='+Edit1.Text+' and lastName='+Edit2.Text;
|
|
|
|
07.12.2007, 20:40
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
пишит Missing drivername property
мот в SimpleDataSet1.DataSet.RecordCount надо чтото другое вместо .RecordCount ?
|
|
|
|
09.12.2007, 04:14
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
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;
Только зопрос свой вставь.
|
|
|
|
10.12.2007, 02:53
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
на SQLQuery1.SQL.CommaText:='select * from userlist where firstName=:Edit1.Text and lastName=:Edit2.Text';
пишит No value for parameter Edit1.Text
|
|
|
|
10.12.2007, 03:38
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
ыы) вместо
Код:
firstName=:Edit1.Text
надо вообщето
Код:
firstName:=Edit1.Text
=: поменяй на := |
|
|
|
10.12.2007, 03:46
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
тоже самое мот вообще == надо? =)
|
|
|
|
10.12.2007, 03:54
|
|
Постоянный
Регистрация: 09.11.2006
Сообщений: 639
Провел на форуме:
1917742
Репутация:
541
|
|
Во как надо 
Код:
SQLQuery1.SQL.CommaText:='select * from userlist where firstName' + Edit1.Text + 'and lastName' + Edit2.Text;
|
|
|
|
10.12.2007, 03:57
|
|
Участник форума
Регистрация: 06.02.2006
Сообщений: 137
Провел на форуме:
656903
Репутация:
15
|
|
а там mysql пишит почитайте мануал =)
|
|
|
|
10.12.2007, 04:32
|
|
Познающий
Регистрация: 06.09.2006
Сообщений: 94
Провел на форуме:
397064
Репутация:
15
|
|
Подскажите код который бы искал в файле бла-бла.тхт строчку, вернее часть строки, найдя записывал её и следующую за ней в файл и продолжал искать дальше, найдя ещё одну записывал бы так же в результат.тхт с новой строчки и так далее пока не найдет все.И высший пилотаж, если в результат.тхт быдет записываться кол-во найденных пар-строк и время/дата поиска.
Заранее спасибо
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
