Mismatch mysko...

4 svar · 196 visningar · startad av rilu 10 apr. 2001

riluMedlem sedan jan. 200059 inlägg

Trådstart10 apr. 2001 07:38#1

Tjena igen!

Har problem med följande kod. Den ska alltså ta ut id från foretagsprofil och lägga in den i nästa tabell och fortsätta fylla i med insert into.

sql = "INSERT INTO foretagsprofil (medarbetare,medelalder,omsattning,etableringsar,kontor,pc,mac,annat) VALUES ('"& medarbetare &"','"& medelalder &"','"& omsattning &"','"& etableringsar &"','"& kontor &"','"& pc &"','"& mac &"','"& annat &"')" 
RS = "SELECT @@identity FROM foretagsprofil"
id=RS("id")
sql = "INSERT INTO rekryteringsprocess (id,annonstryck,annonswebb,arbetsformedlingen, kontakt, rekryteringsforetag, reannat) VALUES ('"& id &"','"& annonstryck &"','"& annonswebb &"','"& arbetsformedlingen &"','"& kontakt &"','"& rekryteringsforetag &"','"& reannat &"')"

Set sql = Connect.Execute(sql)
Set RS = Connect.Execute(RS) 
Set sql = Connect.Execute(sql)

erkaMedlem sedan dec. 19996 522 inlägg

10 apr. 2001 08:04#2

vad blir det om du skriver ut sqlsattsen med en respons.write ?

erkaMedlem sedan dec. 19996 522 inlägg

10 apr. 2001 08:11#3

är id fältet tal ?

@ndersMedlem sedan juni 200032 967 inlägg

10 apr. 2001 08:13#4

spontant så ser jag några fel.

ett av dem är att du skapar en sqlfråga som du aldrig exekverar, däremot exekverar du den sista ett par gånger, som blir fel, eftersom frågan rs inte returnerar speciellt korrekt data.

kolla på din variabeltilldelning så förstår du säkert att det inte kan fungera.

erkaMedlem sedan dec. 19996 522 inlägg

10 apr. 2001 09:13#5

så här rickard

sql = "INSERT INTO foretagsprofil (medarbetare,medelalder,omsattning,etableringsar,kontor,pc,mac,annat) VALUES ('"& medarbetare &"','"& medelalder &"','"& omsattning &"','"& etableringsar &"','"& kontor &"','"& pc &"','"& mac &"','"& annat &"')" 
Connect.Execute(sql)

RS = "SELECT @@identity"
Set RS = Connect.Execute(RS)
id = rs.Fields(0).value

sql = "INSERT INTO rekryteringsprocess (id,annonstryck,annonswebb,arbetsformedlingen, kontakt, rekryteringsforetag, reannat) VALUES ('"& id &"','"& annonstryck &"','"& annonswebb &"','"& arbetsformedlingen &"','"& kontakt &"','"& rekryteringsforetag &"','"& reannat &"')"
Connect.Execute(sql)  
RS.Close
Set RS = Nothing
Connect.close
set Connect=nothing