|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
как вытащить из adoconnectionstring логин?
Здравствуйте!
нужно, чтоб в мускл добавлялась запись об имени юзера, который заносил данные. при входе в прогу он вбивает логин и пароль и они формируется в connectionstring. как мне обратиться к ней и вытащить логин? Я за здоровый экстрим! Спасибо за "спасибо") |
#2
|
||||
|
||||
а просто сохранить логин сразу после нажатия ОК и успешной проверки валидности, не ?
Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
#3
|
||||
|
||||
Цитата:
Я за здоровый экстрим! Спасибо за "спасибо") |
#4
|
||||
|
||||
В АДОКоннекшн есть поле ConnectionString, вот в ней логин.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
Цитата:
знаю, что он там есть. как обратиться к этой строке? скажем, ADOTable_zvonok.FieldByName('USER').Asstring := edit1.Text; что мне поставить вместо edit1.Text??? Я за здоровый экстрим! Спасибо за "спасибо") |
#6
|
||||
|
||||
Ну так бы и спрашивал, что запрос надо.
Код:
SELECT USER(); И вставлять на уровне базы, а не клиента. З.Ы. Читаем справку. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#7
|
||||
|
||||
Цитата:
мне надо, чтоб и в клиенте на какую-нибудь лэйблу писалось) имхо, собака в connectionstring зарыта... как же это бы, а? Я за здоровый экстрим! Спасибо за "спасибо") |
#8
|
||||
|
||||
Код:
st:=adoconnection1.ConnectionString; n:=Pos('User', st)+8; login:=''; for i:=n to Length(st) do begin if st[i]=';' then break; login:=login+st[i]; end; form1.Caption:='Логин: '+login; Я за здоровый экстрим! Спасибо за "спасибо") |
#9
|
||||
|
||||
А так нельзя?
Код:
ADOQuery.Query('SELECT USER();') caption := ADOQuery.FieldByname['USER'].AsString — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Mrak (20.02.2013)
|
#10
|
||||
|
||||
Цитата:
квери надо добавлять, неохота уже Я за здоровый экстрим! Спасибо за "спасибо") |
#11
|
||||
|
||||
Одного квери достаточно для всей программы (по крайней мере мне одного квери вполне хватает).
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |