problem med Insert

Har lite problem med en insert.
Jag försöker få fram id:t på den inlagda posten men får det inte att fungera.

sub add_cup(obj as object, e as eventargs)
        
        dim strsql as string ="insert into cuper(namn,antal_lag,antal_grupper,antal_dagar, matcher_per_lag,tid_mellan_matcher,start_tid,start_dag) values ('" + tbnamn.text + "'," + tbantallag.text + "," + antalgrupper.selecteditem.text + "," + tbantaldagar.text + "," + tbantalmatcher.text + "," + tbtidmellanmatcher.text + ",'" + tbstarttid.text + "','" + tbstartdag.text + "')"
        dim objcmd as new oledbcommand(strsql, objconn)
        objcmd.connection.open()
        objcmd.executenonquery()
        objcmd.connection.close()
        
        dim objcmd1 as new oledbcommand _
                ("SELECT @@IDENTITY", objconn)
        
        dim dr as oledbDatareader
        
        objconn.open
        dr =objcmd1.executereader
		Dim id1
		while dr.read
			 id1 = dr.getint32(id)
			response.write(id1)
		end while
       objconn.close
		
	end sub

Det enda som skrivs ut är 0.

@@IDENTITY hämtar unika id'et för senaste inlägg i db i samma connection, dvs en öppen connection.
ta bort stängningen du gör efter .ExecuteNonQuery() och sedan tar du bort öppningen innan du skapar readern för att hämta senaste id'et så ska du se att det funkar

cya,
PatrikB

Testa denna kod:

sub add_cup(obj as object, e as eventargs)
        
        dim strsql as string ="insert into cuper(namn,antal_lag,antal_grupper,antal_dagar, matcher_per_lag,tid_mellan_matcher,start_tid,start_dag) values ('" + tbnamn.text + "'," + tbantallag.text + "," + antalgrupper.selecteditem.text + "," + tbantaldagar.text + "," + tbantalmatcher.text + "," + tbtidmellanmatcher.text + ",'" + tbstarttid.text + "','" + tbstartdag.text + "')"
        dim objcmd as new oledbcommand(strsql, objconn)

        objcmd.connection.open()
        objcmd.executenonquery()
        
        dim objcmd1 as new oledbcommand _
                ("SELECT @@IDENTITY", objconn)
        
	Dim id1 As Integer

        dim dr as oledbDatareader = objCmd.ExecuteReader(CommandBehavior.CloseConnection)
        
	while dr.read
		id1 = dr.getint32(id)
		response.write(id1)
	end while
		
end sub

lite ändringar som du ser .....

cya,
PatrikB

fungerar inte. Det läggs till en ny post i databasen men id:t skrivs inte ut.

ok, ändra detta:

	while dr.read
		id1 = dr.getint32(id)
		response.write(id1)
	end while

till:

	If dr.read() = True Then
		id1 = dr("id")
		response.write(id1)
	end while

obs, du bär inte använda dig av response.write ...... ska den skrivas ut tex i en label så gär du på detta vis:

Label1.Text = dr("ID").ToString()

cya,
PatrikB

obs, du bär inte använda dig av response.write ...... ska den skrivas ut tex i en label så gär du på detta vis:

Jag använder bara response.write nu när jag testar

Det fungerar fortfarande inte. Det verkar som om det inte kommer med något värde från @@IDENTITY

fan så dum man e .... och inte kan man läsa innantill heller

testa detta:

	If dr.read() = True Then
		id1 = dr(0)
		response.write(id1)
	end while

då identity inte har ett namn utan man refererar till den med positionen istället och positionen e alltid 0

cya,
PatrikB

Blir samma resultat. Den skriver bara ut 0

Du kanske inte har en primärnyckel i DB? ID finns ju bara om DB vet vilken kolumn...

Jo jag har en primärnyckel i databasen.

Fältet heter Id och är en räknare som skapar ReplikeringsID

@@IDENTITY fungerar inte med replikerings-id, utan endast vanliga räknare.

Mvh,