Вниз
Скачать: CL | DM;

SQL   Найти похожие ветки 

← →
YoungerDelphist   (2008-09-10 21:41) [0]

Необходимо организовать добавление записей в 2 таблицы БД.
Как сделать это в SQL-запросе.

. . .
TableTest.Append;
TableTest.FieldByName("TestName").AsString := "Test";
TableTest.Post;

ID := TableTest.FieldByName("TestID").AsInteger; // Автоинкрементное

TableTest2.Append;
TableTest2.FieldByName("Test2Code").AsInteger := ID;
TableTest2.Post;
. . .


← →
Sergey Masloff   (2008-09-10 21:48) [1]

Вариантов масса. В вашей постановке ответ дать невозможно (например непонятно что за СУБД - может она поддерживает анонимные блоки а может редактируемые представления - минимум два способа решить вашу задачу)


← →
YoungerDelphist   (2008-09-10 21:52) [2]

DBISAM


← →
YoungerDelphist   (2008-09-10 21:56) [3]

Пробывал сделать вложеный запрос типа INSERT но не получилось так как не силен в SQL


← →
Правильный$Вася   (2008-09-11 10:59) [4]


> Как сделать это в SQL-запросе. . . .TableTest.Append;

вот в упор не вижу тут SQL
2 последовательных INSERT через TQuery в рамках одной транзакции (TDatabase.StartTransaction)
в чем затык-то?


← →
YoungerDelphist   (2008-09-11 11:06) [5]


> в чем затык-то?

Как получить ID Добавленной записи (после первого Insert). Ведь после выполнения Insert не происходит автоматичесого перемещния на добавленную запись.


← →
Сергей М. ©   (2008-09-11 12:26) [6]


> YoungerDelphist   (11.09.08 11:06) [5]


СУБД какая ?


← →
YoungerDelphist   (2008-09-11 12:33) [7]

DBISAM


← →
Сергей М. ©   (2008-09-11 13:07) [8]

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=35973


← →
Правильный$Вася   (2008-09-11 13:27) [9]


> Как получить ID Добавленной записи (после первого Insert).

как вариант, знать его заранее, до первого Insert

> Ведь после выполнения Insert не происходит автоматичесого
> перемещния на добавленную запись.

в sql нет понятия "перемещение на запись"



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

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



Память: 0.46 MB
Время: 0.008 c
2-1221073858
Alral
2008-09-10 23:10
2008.10.19
TBitmap.Transparent


15-1219912790
ищущий
2008-08-28 12:39
2008.10.19
Должностная инструкция инженера ИВТ


2-1221288881
Alexandr_5
2008-09-13 10:54
2008.10.19
Sendmessage на TStatusbar


2-1221417830
Johnnnn
2008-09-14 22:43
2008.10.19
Как присвоить свою процедуру к TInternetExplorer.OnDocumentComple


2-1220932985
New_ser
2008-09-09 08:03
2008.10.19
Как сравнить 2 предложения (разные разделители)?




   Наверх