Запрос данных из SQL (Delphi)

[8tomat8]

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

Поле называется не [FWHERE] , а просто FWHERE, а [] это экранирование в sql (оно для текста запроса может использоваться, но более нигде).
Если не совсем понятно, правильный вариант вот:

Prava:=ADOQuery1.FieldByName('FWHERE').AsString;

Датасет - набор данных, в Вашем случае это кверя (adoquery), но это могут быть и адопроцедуры и любой наследник TADODataSet (емнип).

Спасибо. Помогло. Все заработало как надо)

PS У меня со вчера организовался противоположный вопрос) Как данные внести из Delphi в таблицу?)))

Вот мой код. Он срабатывает без ошибок, но не добавляет запись в таблицу. Таблица как была пустой так и осталась.

if (GetCurrentUserName <> '') and (FIO.Text <> '') and (Company.Text <> '') and (Num.Text <> '') and (Phone.Text <> '') and (TelType.Text <> '') and (email.Text <> '') then
  begin
    GetCurrentUserNameUsr:=Trim(GetCurrentUserName);
    FIOUsr:=Trim(FIO.Text);
    CompanyUsr:=Trim(Company.Text);
    NumUsr:=Trim(Num.Text);
    PhoneUsr:=Trim(Phone.Text);
    EmailUsr:=Trim(email.Text);
    ADOConnection1.LoginPrompt:=false;
    AdoQuery1.SQL.Text := 'SELECT * FROM [GDPDATA].[dbo].[TREG]';
    ADOQuery1.Open;
    ADOQuery1.Insert;
    ADOQuery1.FieldByName('FUSER').AsString:='KNOPKA\'+GetCurrentUserNameUsr;
    ADOQuery1.FieldByName('FIO').AsString:=FIOUsr;
    ADOQuery1.FieldByName('FCOMP').AsString:=CompanyUsr;
    ADOQuery1.FieldByName('FNUM').AsString:=NumUsr;
    ADOQuery1.FieldByName('FPHONE').AsString:=PhoneUsr;
    ADOQuery1.FieldByName('FTELTYPE').AsString:=TelType.Text;
    ADOQuery1.FieldByName('FEMAIL').AsString:=EmailUsr;
    ADOQuery1.Active:=True;
    ShellExecute(Handle, nil, PChar('C:\1.exe'), nil, nil, SW_RESTORE);
    Application.Terminate;
  end

Подскажите пожалуйста где я тут налабудал?))

[eval]

переводчика надо нанять, в ошибке все сказано

[8tomat8]

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

переводчика надо нанять, в ошибке все сказано

Да, я уже разобрался) Тупить начинаю.

Но походу у меня вся конструкция была не правильная. Сейчас заменил на

procedure TFormRegistr.ButtonRegistrClick(Sender: TObject);
var SaveTxt:TStringList;
 FIOUsr, CompanyUsr, PhoneUsr, EmailUsr, GetCurrentUserNameUsr, NumUsr:string;
 today : TDateTime;
 i : integer;
begin
if Num.Text = '' then
begin
Num.Text:='Не задано';
end;
if (GetCurrentUserName <> '') and (FIO.Text <> '') and (Company.Text <> '') and (Num.Text <> '') and (Phone.Text <> '') and (TelType.Text <> '') and (email.Text <> '') then
   begin
    GetCurrentUserNameUsr:='KNOPKA\'+Trim(GetCurrentUserName);
    FIOUsr:=Trim(FIO.Text);
    CompanyUsr:=Trim(Company.Text);
    NUMUsr:=Trim(NUM.Text);
    PhoneUsr:=Trim(Phone.Text);
    EmailUsr:=Trim(email.Text);
    ADOConnection1.LoginPrompt:=false;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO GDPDATA.dbo.TREG (FUSER,FIO,FCOMP,FNUM,FPHONE,FTELTYPE,FEMAIL)');
    ADOQuery1.SQL.Add('values (GetCurrentUserNameUsr,FIOUsr,CompanyUsr,NumUsr,PhoneUsr,TelType.Text,EmailUsr)');
    ADOQuery1.ExecSQL;
    ShellExecute(Handle, nil, PChar('C:\1.exe'), nil, nil, SW_RESTORE);
    Application.Terminate;
  end
  else
  LabelError.Caption:=('Заполните все поля!');
  Num.Clear;
end;

Говорит что недопустимое имя столбца "GetCurrentUserNameUsr"

[Аватар]

А чего ожидали? Засунули имя переменной вместо её значения в строку и конец не сбывшимся надеждам И не только эту переменную

ADD

А зачем там ShellExecute и Application.Terminate?

[grominfo]

ADOQuery1.SQL.Add('values (GetCurrentUserNameUsr,FIOUsr,CompanyUsr,NumUsr,PhoneUsr,TelType.Text,EmailUsr)');

Такое только в PHP проканает.

Тем более не забывайте, что строковые типы нужно заключать в одинарные кавычки.

В вашем случае будет примерно так:

ADOQuery1.SQL.Add('values ('+'''+GetCurrentUserNameUsr+''','''+FIOUsr+''','''+CompanyUsr+''','''+NumUsr+''','''+PhoneUsr+''','''+TelType.Text+''','''+EmailUsr+''')');

Если использовать параметризированные запросы, то кавычки ставить не нужно

[8tomat8]

Спасибо всем за советы. Все сделал как надо. Работает.
Вот готовый код если кому-то понадобиться когда-то)))

procedure TFormRegistr.ButtonRegistrClick(Sender: TObject);
var SaveTxt:TStringList;
 FIOUsr, CompanyUsr, PhoneUsr, EmailUsr, GetCurrentUserNameUsr, NumUsr:string;
 today : TDateTime;
 i : integer;
begin
if Num.Text = '' then
begin
Num.Text:='Не задано';
end;
if (GetCurrentUserName <> '') and (FIO.Text <> '') and (Company.Text <> '') and (Num.Text <> '') and (Phone.Text <> '') and (TelType.Text <> '') and (email.Text <> '') then
   begin
    GetCurrentUserNameUsr:='KNOPKA\'+Trim(GetCurrentUserName);
    FIOUsr:=Trim(FIO.Text);
    CompanyUsr:=Trim(Company.Text);
    NUMUsr:=Trim(NUM.Text);
    PhoneUsr:=Trim(Phone.Text);
    EmailUsr:=Trim(email.Text);
    ADOConnection1.LoginPrompt:=false;
	ADOQUery1.Active:=False;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO GDPDATA.dbo.TREG (FUSER,FIO,FCOMP,FEDRPOU,FPHONE,FTELTYPE,FEMAIL)');
    ADOQuery1.SQL.Add('values ('+char(39)+GetCurrentUserNameUsr+char(39)+','+char(39)+FIOUsr+char(39)+','+char(39)+CompanyUsr+char(39)+','+char(39)+NUMUsr+char(39)+','+char(39)+PhoneUsr+char(39)+','+char(39)+TelType.Text+char(39)+','+char(39)+EmailUsr+char(39)+')');
    ADOQuery1.ExecSQL;
    ShellExecute(Handle, nil, PChar('C:\1.exe'), nil, nil, SW_RESTORE);
    Application.Terminate;
  end
  else
  LabelError.Caption:=('Заполните все поля!');
  Num.Clear;
end;

[ggggg1]

Помогите пожалуйста сделать запрос sql на delphi.
Например
1. Вычислить стоимость льготного тарифа оплаты услуг. На sql-е сделала вот код
select dbo.Kategorii_vrachebnoi_specialnos ti.[Naimenovanie],
(Tarif_po_oplate-Tarif_po_oplate*[%_skidki_po_lgote]/100) as стоимость_льготного_тарифа
from dbo.Tarif
inner join dbo.Kategorii_vrachebnoi_specialnos ti on
dbo.Tarif.[ID_kategorii_specialnosti]=dbo.Kategorii_vrachebnoi_specialno sti.[ID_kategorii_specialnosti]

его нужно вывести на delphi

Добавлено через 1 минуту
Срочно Помогите пожалуйста отобразить хранимые процедуры sql на delphi
код
use POLIKLINIKA
go

create procedure xp1
@Data_rozhdeniya int
as
select dbo.Patient.FIO, dbo.Patient.Pol, dbo.Patient.Data_rozhdeniya
from dbo.Patient
where ((dbo.Patient.Pol='m') and (year(dbo.Patient.[Data_rozhdeniya]) = @Data_rozhdeniya))


go