Скачать: CL | DM;

Как получить пользователя из SQLConnection??   Найти похожие ветки 

← →
LinOS ©   (2003-07-09 08:24) [0]

Имеется компонент TSQLConnection. Через него присоединяюсь к БД. После соединения хочу узнать имя пользователя, под которым приконектился.

---

← →
ЮЮ ©   (2003-07-09 08:37) [1]

TSQLConnection.Params.Values["User_Name"]

---

← →
LinOS ©   (2003-07-09 08:42) [2]

А нет у меня такого параметра.

---

← →
ЮЮ ©   (2003-07-09 08:52) [3]

Это из хелпа :-(
Значит посмотри какие параметры есть :-)
В ADO + MS SQL это был "User ID"

---

← →
LinOS ©   (2003-07-09 10:04) [4]

А если без параметров?
Как можно вытащить?

---

← →
sniknik ©   (2003-07-09 11:23) [5]

хочеш сложностей пиши хук на клавиатуру следи за вводом и "вытаскивай" (можно еще пару извращений придумать, скажи я постараюсь).
или всетаки найди User_Name (параметр неизменен для всех драйверов/коннектов DriverName/ConnectionName, если конечно каким дополнительным не пользуешся но это врядли)
сделай двойной клик на компоненте, после пробегись по коннектам и посмотри параметры каждого...

> А нет у меня такого параметра.
значит и коннекта нет (когда смотриш?)
Description
Set ConnectionName to use a named connection configuration. Setting ConnectionName automatically sets the DriverName and Params properties to reflect the driver and connection parameters stored under that name in the dbxconnections.ini file.

---

← →
Stas ©   (2003-07-09 11:35) [6]

Незнаю как в SAP DB, а в MS SQL есть функция которая возвращает имя пользователя. Скорее всего и у тебя должно быть.

---

← →
LinOS ©   (2003-07-09 12:19) [7]

Спасибо за высказывания.
По поводу dbxconnections.ini, если в нем не задан пользователь по умолчанию, то и не узнаешь его.
Только, как Stas заметил буду пробовать из базы вытаскивать.

---

← →
bolega   (2003-07-09 20:05) [8]

кусок из работающей SP:
возвращает
в @Domain - имя домена пользователя
в @User - NETBIOS-имя компьютера пользователя

declare @su varchar(64),@n int, Domain varchar(32), @User varchar(32)
set @su=system_user
set @n=charindex("\",@su)
set @Domain=substring(@su,1,@n-1)
set @User=substring(@su,@n+1,32)

---

← →
Garyck   (2003-07-10 08:47) [9]

Если разговор ведется об имени компа, с которого идет соединение, то так:

procedure TfrmWork.FormCreate(Sender: TObject);
Var
dwSize : Cardinal;
szBuffer : PChar;
begin
dwSize:=MAX_COMPUTERNAME_LENGTH+1;
GetMem(szBuffer,dwSize);
GetComputerName(szBuffer,dwSize);
CompName:=String(szBuffer);
FreeMem(szBuffer,dwSize);
End;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c