2 svar · 176 visningar · startad av His Divine Shadow
Bär jag kör denna kod så händer ingenting och systemets resurser börjar sugas upp, vad gör jag för fel egentligen?
set conn = server.createobject("adodb.connection")
conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\data\WebData\B_forslag.mdb;"
'Create the recordset object
set rs2 = server.createobject("adodb.recordset")
set rs = server.createobject("adodb.recordset")
SQL = "SELECT * FROM "& Kun &" WHERE Falt6 in (SELECT Kundnr from BF) AND Falt1 NOT IN (SELECT Artnr from BF)"
rs.open SQL, conn, 2, 2
rs2.open "BF", conn, 2, 2
do until RS.EOF
do until RS2.EOF
rs2.addnew
rs2("Artnr") = rs("Falt1")
rs2("Benamning") = rs("Falt2")
rs2("totalt_salda") = rs("Falt3")
rs2("Medel") = rs("Falt4")
rs2("ME") = rs("Falt5")
rs2("Kundnr") = rs("Falt6")
rs2.addnew
RS2.MoveNext
Loop
RS.MoveNext
Loop
Conn.Close
Ska du verkligen loopa igenom RS2? Ska du inte bara lägga till data i tabellen BF?
I så fall ska du inte loopa igenom recordsetet RS2 också.
Jag vet inte om dina parametrar till RS.Open är korrekta, men jag undrar om det inte i din kod skall avslutas med .update istället för .addnew där också?
Varför inte använda INSERT istället? Det är bättre på alla vis.
Mvh,
Faktum är jag inte riktigt vet hur jag ska göra kopplingen till tabellen "BF", och jag har "hål" i mina kunskaper, vet inte riktigt hur jag ska göra en INSERT INTO.
