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

Добавляю запись в которой одно поле "Счётчик"   Найти похожие ветки 

← →
Chlavik ©   (2004-09-21 13:34) [0]

Привет! (VBA) Command = CreateObject("ADODB.Command")
Command.CommandText = "INSERT INTO Фирмы (NAME) VALUES("Фирма")"
...
как получит значение счётчика (у меня это ID) последнего добавленого элемента?


← →
sniknik ©   (2004-09-21 14:02) [1]

зависит от того как ты создаеш (и что пишеш в свойства) ADODB.Connection.


← →
Johnmen ©   (2004-09-21 14:12) [2]

Всё вместе
INSERT INTO Фирмы (NAME) VALUES("Фирма")
SELECT @@IDENTITY AS id


← →
Chlavik ©   (2004-09-21 14:20) [3]

Как правильно Задать строку для Execute иак правильно перадать перменную в которой будет ID я просто первый раз с этим имею дело ...
Command.CommandText = "INSERT INTO Фирмы (NAME) VALUES("Фирма")"
Command.execute
а потом
Command.CommandText = "SELECT @@IDENTITY AS id"
Command.execute
а куда запишется полученый ID  ?


← →
Johnmen ©   (2004-09-21 14:26) [4]

Не знаю, как там с Command, а с TADOQuery именно так. Разделить команды ;


← →
Chlavik ©   (2004-09-21 14:31) [5]

Так а где сам ID будет ??? Что такое @@IDENTITY ?


← →
sniknik ©   (2004-09-21 15:17) [6]

> Так а где сам ID будет ???
в поле (с именем id в данном случае), поле в рекордсете, рекордсет возврашается командой execute.

> Что такое @@IDENTITY ?
а ты уверен что он у тебя есть?

там где есть, это значение сработавшего счетчика автоинкремента.


← →
Chlavik ©   (2004-09-21 15:51) [7]

я Сделал так
      rs.Open "SELECT @@IDENTITY as ID"
ID = RS.Fields("ID")
 RS.Close

Всё работает но правда создавал RS (рекордсет)


← →
Chlavik ©   (2004-09-21 15:54) [8]

А надо потом уничтожать RecordSet возвращённый Executom ? И закрывать тоже ?



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

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



Память: 0.46 MB
Время: 0.02 c
1-1097002162
Pers
2004-10-05 22:49
2004.10.17
WebBrowser


4-1095389264
BorisMor
2004-09-17 06:47
2004.10.17
Окно без бордюра, но ресайзится.


6-1092277120
Sash
2004-08-12 06:18
2004.10.17
IP


3-1095229040
Доктор наук
2004-09-15 10:17
2004.10.17
dbExpress


6-1091704448
vakir77
2004-08-05 15:14
2004.10.17
Сохранение TWebBrowser




   Наверх