@@identity

3 svar · 252 visningar · startad av icaaq 10 mars 2002

icaaqMedlem sedan okt. 20005 273 inlägg

Trådstart10 mars 2002 14:35#1

Jag har en fungerande INSERT, men jag vill ta ut det sista inlagda ID:et ur den tabellen.......då använder jag

[red]
'Tar Fram sista inlaggda id ur tabellen t_lag
										Set ObjRS = ObjConn.Execute("Select @@IDENTITY")
										intLagid = ObjRS(0)
										response.Write "intLagID : "&intLagId &"<br>"
										ObjRS.Close
										Set ObjRS = Nothing
[/red]

men jag får int ut det sista ID:et......jag har liknande koder på samma sida och då funkar det......

Kollar jag i databasen så kommer det ju in en post och F_LAG_ID ökas ju med 1 hela tiden .......vad ska jag göra??

mvh icaaq

icaaqMedlem sedan okt. 20005 273 inlägg

10 mars 2002 14:48#2

[red]
'Lägger in laget i t_lag 
						strSQL2 = "INSERT INTO T_LAG(F_USER_ID, F_RF_ID, F_FB_ID, F_FOR_ID, F_LAG_NUMMER, F_LAG_KLASS, F_LAG_NAMN"&_
						          ", F_LAG_TROJAH, F_LAG_BYXAH"&_
						          ", F_LAG_STRUMPAH, F_LAG_TROJAB, F_LAG_BYXAB, F_LAG_STRUMPAB, F_LAG_HALL, F_LAG_HALLTELE, F_LAG_NOT)"&_
						          "VALUES("&Session("MMID")&", "&intRfID&", "&intFbID&", "&intForID&", "&intNummer&", '"&strKlass&"', '"&strNamn&"', "&_
						          "'"&strTrojaH&"', '"&strByxaH&"', '"&strStrumpaH&"', '"&strTrojaB&"', '"&strByxaB&"', '"&strStrumpaB&"'"&_
						          ", '"&strHall&"', '"&strHallTel&"', '"&strNotering&"')"
						          Response.Write strSQL2 &"<br>"
						          ObjConn.execute(strSQL2),,128
						          		'Tar Fram sista inlaggda id ur tabellen t_lag
										Set ObjRS = ObjConn.Execute("Select @@IDENTITY")
										intLagId = ObjRS(0)
										response.Write "intLagID : "&intLagId &"<br>"
										ObjRS.Close
										Set ObjRS = Nothing
[/red]

.........Jag blir knäckt på det här.......

@ndersMedlem sedan juni 200032 967 inlägg

10 mars 2002 14:59#3

Testa detta...

strSQL2 = "SET NOCOUNT ON" & vbCrLf &_
          "INSERT INTO T_LAG(F_USER_ID, F_RF_ID, F_FB_ID, F_FOR_ID, F_LAG_NUMMER, F_LAG_KLASS, F_LAG_NAMN"&_", F_LAG_TROJAH, F_LAG_BYXAH"&_
						          ", F_LAG_STRUMPAH, F_LAG_TROJAB, F_LAG_BYXAB, F_LAG_STRUMPAB, F_LAG_HALL, F_LAG_HALLTELE, F_LAG_NOT)"&_
						          "VALUES("&Session("MMID")&", "&intRfID&", "&intFbID&", "&intForID&", "&intNummer&", '"&strKlass&"', '"&strNamn&"', "&_
						          "'"&strTrojaH&"', '"&strByxaH&"', '"&strStrumpaH&"', '"&strTrojaB&"', '"&strByxaB&"', '"&strStrumpaB&"'"&_
						          ", '"&strHall&"', '"&strHallTel&"', '"&strNotering&"')" & vbCrLf & "SELECT @@IDENTITY"
						          Response.Write strSQL2 &"<br>"
						          set objRS = ObjConn.execute(strSQL2)
										intLagId = ObjRS(0)
										response.Write "intLagID : "&intLagId &"<br>"
										ObjRS.Close
										Set ObjRS = Nothing

icaaqMedlem sedan okt. 20005 273 inlägg

10 mars 2002 16:08#4

Tack @nders....men mysteriet kvarstår......hur kommer det sig att koden fungerar fint på andra ställen i samma fil.........ähh det spelar ju mindre roll....vi kör så där....tack igen