Возвращение результата SQL-запроса в переменную

@SEMEon85 · Регистрация: 12.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста
Есть БД на sql server 2008 в ней таблица new_reader
В Делфи7 делаю форму добавления записи, нужно узнать ID записи которая добавилась,
сама таблица

SQL

CREATE TABLE new_reader(
id INT PRIMARY KEY IDENTITY,
Фамилия nvarchar(50),
Имя nvarchar(50),
Отчество nvarchar(50),
);

обработчик события в делфи

Delphi

A:integer; s:string;
... ... ...
with unit1.form1.ADOQuery2 do
begin
close;
SQL.Clear;
SQL.Add('INSERT INTO new_reader (Фамилия, Имя, Отчество)');
SQL.Add('VALUES ('+famlia+', '+ima+', '+otchestvo+')');
SQL.Add('SELECT [ID] = @@IDENTITY');
Open;
A:=unit1.form1.ADOQuery2.FieldByName('id').AsInteger;
s:=IntToStr(A);
showMessage(s);
end;

данная конструкция выдает ошибку
'ADOQuery2: Type mismatch for field 'id', expecting: AutoInc actual: BCD'

@Grossmeister · 09.03.2016, 16:06

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

данная конструкция выдает ошибку

Потому как ты и INSERT, и SELECT запихнул в один запрос.

@qwertehok · 09.03.2016, 16:10

SQL

1	SELECT [ID] = @@IDENTITY

это неправильно
id у вас INT, а @@IDENTITY?

лучше вообще сделать функцию - вы ей ФИО, она вам ID

@SEMEon85 · 09.03.2016, 16:23 **[ТС]**

это неправильно
id у вас INT, а @@IDENTITY?

SQL

1	id INT PRIMARY KEY IDENTITY,

пробовал делать запрос еще вот таким образом

Delphi

1
2
3

SQL.Add('INSERT INTO new_reader (Фамилия, Имя, Отчество)');
SQL.Add('VALUES ('+famlia+', '+ima+', '+otchestvo+')');
SQL.Add('SELECT SCOPE_IDENTITY() as id');

но тоже ошибка, мне именно нужно сразу в одной конструкции узнать id потому, что если пользователей несколько будут создавать запись в одно время не было путаницы кто что создал

если не затруднит можно пример функции

@qwertehok · 09.03.2016, 16:25

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

но тоже ошибка

open - это для запросов которые возвращают значение
у вас есть OpenOrExecute?

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

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

напишите ФУНКЦИЮ

@SEMEon85 · 09.03.2016, 16:39 **[ТС]**

OpenOrExecute не нету
Можно пример подобной функции

Добавлено через 2 минуты
По существу мне просто нужно установить курсор в DBGride на созданную запись, может есть проще какой метод?

@qwertehok · 09.03.2016, 16:41

https://technet.microsoft.com/... .105).aspx

Добавлено через 41 секунду
или функция или вместо ID использовать GUID

Добавлено через 21 секунду
для многопользовательского приложения

@SEMEon85 · 09.03.2016, 16:50 **[ТС]**

GUID клевая вещь, спасибо огромное, а то уже 3 день голову ломаю над этой проблемой...
может пригодится кому

Delphi

...
var MyGUID : TGUID;
begin
...
 CreateGUID(MyGUID);
 ShowMessage(GUIDToString(MyGUID));
...

@qwertehok · 09.03.2016, 16:58

SEMEon85, все равно, если вам нужно получить последнего добавленного, то нужно писать функцию

@Grossmeister Модератор 4217 / 3058 / 583 Регистрация: 21.01.2011 Сообщений: 13,205
	09.03.2016, 16:06	2
	Сообщение от SEMEon85 данная конструкция выдает ошибку Потому как ты и INSERT, и SELECT запихнул в один запрос. 0

@qwertehok 5394 / 4322 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	09.03.2016, 16:25	5
	Сообщение от SEMEon85 но тоже ошибка open - это для запросов которые возвращают значение у вас есть OpenOrExecute? Сообщение от SEMEon85 что если пользователей несколько будут создавать запись в одно время не было путаницы кто что создал напишите ФУНКЦИЮ 0

@SEMEon85 0 / 0 / 0 Регистрация: 12.09.2015 Сообщений: 14
	09.03.2016, 16:39 [ТС]	6
	OpenOrExecute не нету Можно пример подобной функции Добавлено через 2 минуты По существу мне просто нужно установить курсор в DBGride на созданную запись, может есть проще какой метод? 0

@qwertehok 5394 / 4322 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	09.03.2016, 16:41	7
	https://technet.microsoft.com/... .105).aspx Добавлено через 41 секунду или функция или вместо ID использовать GUID Добавлено через 21 секунду для многопользовательского приложения 0

@qwertehok 5394 / 4322 / 1060 Регистрация: 29.08.2013 Сообщений: 27,128 Записей в блоге: 3
	09.03.2016, 16:58	9
	SEMEon85, все равно, если вам нужно получить последнего добавленного, то нужно писать функцию 0

Опции темы