Överför id redan från början?

Eftersom detta görs med en SQL-sträng så tror jag inte att det går i Access eftersom det inte har stored procedures (rätta mig jag har fel på något sätt, kan jag mycket väl ha, har aldrig sett en SQL Server ens).

Kör med @@identity i ditt ASP-dokument i stället!

:)

Och hur ska denna kod se ut? har faktiskt inte en susning.

Jag sökte på @@identity och fick bland annat upp en tråd du skrivit. ;)

trexter.com skrev:

Jag sökte på @@identity och fick bland annat upp en tråd du skrivit. ;)

:o

http://www.webforum.nu/showthread.php?s=&threadid=57264&highlight=%40%40identity

Finns andra trådar också som behandlar ämnet mer specifikt.

:)

http://www.webforum.nu/showthread.php?s=&postid=455338#post455338

ok, detta är en kod jag använder för att sätta in data i databasen.
Hur ska jag sätta in koden:
Då all info som jag skickar går till tabellen: kundregister, men gur får jag id:n att sättas in i tabellen: projekthantering

q = "insert into tbluppgifter(kolumnnamn) values('" & _ 
data1 & "')"
connect.execute q,,128
set rs = connect.execute("select @@identity")
q = "insert into tblclient(id,kolumnamn) values (" &_
rs(0) & ",'" & data2 & "')"
connect.execute q,,128

<!-- #include file = "../inc/adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("intranet.mdb") 
Set RecSet = Server.CreateObject("ADODB.Recordset") 

SQL = "Select * From kundregister" 
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic 

RecSet.AddNew

RecSet("Foretagsnamn") = Request.Form("Foretagsnamn")
RecSet("Kontaktperson") = Request.Form("Kontaktperson")
RecSet("E-postadress") = Request.Form("E-postadress")
RecSet("Avdelning") = Request.Form("Avdelning")
RecSet("personnr") = Request.Form("personnr")
RecSet("tele") = Request.Form("tele")
RecSet("adress") = Request.Form("adress")
RecSet("Postnummer") = Request.Form("Postnummer")
RecSet("stad") = Request.Form("stad")
RecSet("kontaktefternamn") = Request.Form("Kontaktefternamn")
RecSet("Anteckningar") = Request.Form("Anteckningar")

RecSet.Update 

RecSet.Close 
Connect.Close 
Set RecSet = nothing 
Set Connect = nothing 

Response.Redirect "index.asp"
%>

Så här någonting..

[RED]<%

strForetNamn = trim(Request.Form("Foretagsnamn"))
strKonPerson = trim(Request.Form("Kontaktperson"))
strEpost = trim(Request.Form("E-postadress"))
strAvdelning = trim(Request.Form("Avdelning"))
intPersonr = trim(Request.Form("personnr"))
intTele = trim(Request.Form("tele"))
strAdress = trim(Request.Form("adress"))
intPostnr = trim(Request.Form("Postnummer"))
strStad = trim(Request.Form("stad"))
strKontakEnamn = trim(Request.Form("Kontaktefternamn"))
strAnteck = trim(Request.Form("Anteckningar"))

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("intranet.mdb")

    SQL = "INSERT INTO kundregister "
    SQL = SQL & "(Foretagsnamn, Kontaktperson, E-postadress, Avdelning, tele, adress, Postnummer, stad, kontaktefternamn, Anteckningar) "
    SQL = SQL & "VALUES('"& strForetNamn &"','"& strKonPerson &"','"& strEpost &"','"& strAvdelning &"','"& intPersonr &"','"& intTele &"','"& strAdress &"','"& strPostnr &"','"& strStad &"','"& strKontakEnamn &"','"& strAnteck &"')"
    Connect.Execute SQL,,128

    Set RecSet = Connect.Execute("select @@identity")

    intID = RecSet(0)
    RecSet.Close : Set RecSet = Nothing
    
    '// Spara ID´t i nästa tabell
    Connect.Execute("INSERT INTO projekthantering (ID) VALUES("& intID &")"),,128

Connect.Close = Set Connect = Nothing

%>[/RED]