Hej
Jag håller på och försöker lära mej databaser och fått lite problem.
Jag har i mitt vbprogram en access databas med två tabeller och vill
t.ex uppdatera TabellA.kolumn1 med TabellB.kolumn3.
Har försökt med UPDATE och INSERT INTO men får bara en massa
felmeddelande. Tacksam om nån kunde visa hur SQL satsen ska se ut ?

/Per

Det där får du nog precisera... Vill du uppdatera alla rader i TabellA? Vilken rad/vilka rader från TabellB skall data hämtas från?

Ok
Här kommer ett försök till förklaring
Jag har två tabeller en med mina aktier och en med alla aktier från börsen
när jag vill uppdatera mina aktiekurser alltså föra över från den ena till den andra tabellen det är då jag inte får till det.

SQL = "Update Aktier SET Kurs = AktieVärden.Sälj FROM AktieVärden WHERE Aktier.ID = AktieVärden.ID"
Den här satsen funkar inte
hoppas det klarnar lite hur jag har tänkt nu

Det vore väldigt intressant att få veta vilka felmeddelandena är som du får! Ha alltid som rutin att skriva dem också i dina frågor. Det underlättar för oss andra att kunna hjälpa dig vidare.

Har du testat att köra din fråga inne i access basen där man kan ställa frågor? Får du samma felmeddelanden där?

Pröva
SQL = "Update Aktier, AktieVärden SET Aktier.Kurs = AktieVärden.Sälj WHERE Aktier.ID = AktieVärden.ID"

Update Aktier SET Kurs = AktieVärden.Sälj
FROM AktieVärden INNER JOIN Aktier
ON Aktier.ID = AktieVärden.ID

/micke

Jag har testat era förslag men fått felmeddelande "Ogiltig åtgärd" och "Operator saknas"
så jag har gett upp dom försöken och får väl läsa på lite mera.
Jag löste mitt problem med en mellanlagring istället vet inte om det är rätt men det funkar.Tack för hjälpen ialla fall.

SQL = "SELECT Betäckning FROM Aktier;"
Set rs = db.OpenRecordset(SQL)
j = 0
Do Until rs.EOF
j = j + 1
ReDim Preserve strAktieID(j)
strAktieID(j) = rs("Betäckning")
rs.MoveNext
Loop

j = 0
l = 0
i = 0
For i = 1 To UBound(strAktieID)
j = j + 1
SQL = "SELECT Sälj FROM AktieVärden Where Betäckning ='" & strAktieID(j) & "'"
Set rs = db.OpenRecordset(SQL)
ReDim Preserve strTemp(i)
strTemp(i) = rs("Sälj")
Next i

SQL = "SELECT Kurs FROM Aktier;"
Set rs = db.OpenRecordset(SQL)
i = 1
rs.MoveFirst
Do Until rs.EOF
rs.Edit
rs("Kurs") = strTemp(i)
i = i + 1
rs.Update
rs.MoveNext
Loop
rs.Close

/Per