|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Есть вопрос по запросу
Есть запрос
query1.SQL.Clear; query1.SQL.Add('SELECT Status.Status FROM Status INNER JOIN Users ON Status.id_Status = Users.Status;'); query1.ExecSQL; Как занести результат выполнения запроса в переменную (результат должен быть admin или оператор) Заранее спасибо |
#2
|
||||
|
||||
v:=querry1.fieldbyname('status')asstring;
|
#3
|
|||
|
|||
не получается выдает ошибку: "query1: Field 'Status' not found"
|
#4
|
|||
|
|||
Код:
query1.ExecSQL; Код:
query1.Open; Код:
query1.Active:=true; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#5
|
|||
|
|||
Извините конечно же за тупость просто еще учусь програмировать но что тут не так
for i:=0 to tbl1.FieldCount-1 do begin if ((login_txt.Text <> tbl1.FieldByName('Login').AsString) or (passw_txt.Text <> tbl1.FieldByName('Password').AsString)) then begin tbl1.Next; end else begin count:=count+1; query1.SQL.Clear; query1.SQL.Add('SELECT Users.Status FROM Status INNER JOIN Users ON Status.id_Status = Users.Status;'); query1.Active:=true; v:=query1.Fieldbyname('Status').AsString; end; end; if count <> 0 then begin ShowMessage(v);// здесь он мне выдает постоянно первую запись выполненного запроса .... form3.show; end |
#6
|
|||
|
|||
Код:
tbl1.FieldCount Используйте repeat until или While для прохода по записям например так: Код:
if not adoquery1.isEmpty then begin repeat adoquery1.next; until adoquery1.eof; end; Вы уверены что тут or ? Код:
if ((login_txt.Text <> tbl1.FieldByName('Login').AsString) or (passw_txt.Text <> tbl1.FieldByName('Password').AsString)) then begin Предполагаю что вы делаете форму авторизации... если да то проще сделать все ОДНИМ запросом и вернуть статус им же Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |
#7
|
|||
|
|||
Спасибо очень помогли
|