Arrays og SQL HJÆLP

Du kan ikke ha' din rs.movenext inde i if-statementet.

Den skal være udenfor, ellers kan du risikere at køre i loop

(oops trykkede lidt for hurtigt)

Skal nok være:

if instr(strFelt1, "UPDATE")>0 Then
    Response.write "Lav et script, der opdaterer felterne i databasen, hvis de findes ellers opret dem"
ELSE
    Response.write "Lav et script, der sletter poster i databasen, hvis de findes"
End if

    rs.movenext
  loop

Du har ret med det med loopen, men nu får jeg desværre fejlen:

Fejltype:
ADODB.Recordset (0x800A0E78)
Handlingen er ikke tilladt, mens objektet er lukket.

Der henvises til linien med: Do while not rs.EOF ?

Koden ser nu sådan ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("Branche.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set rs = Server.CreateObject("ADODB.RecordSet")

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/Import/Branche.txt")
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
arrM = Split(f.ReadLine,";")

Do while not rs.EOF
strFelt1 = arrM(0)
if instr(strFelt1, "UPDATE")>0 Then
    Response.write "Lav et script, der opdaterer felterne i databasen, hvis de findes ellers opret dem"
ELSE
    Response.write "Lav et script, der sletter poster i databasen, hvis de findes"
End if
    rs.movenext
Loop

Conn.Close
Set Conn = Nothing

Loop
f.Close
%>

Hvis jeg tømmer databasen, indsættes værdierne fint med sætningen:

strSQL = "Insert into Branche (Felt1, Felt2, Felt3, Felt4) values(" & arrM(1) & ", '" & arrM(2) & "','" & arrM(3) & "','" & arrM(4) & "')"

Men der er lidt vej endnu...  da, der jo skal tjekkes på en del.  Jeg giver gerne flere points, hvis du kan hjælpe, da jeg er noget presset lige nu...

Du skal ´flytte :
Conn.Close
Set Conn = Nothing

efter den sidste loop

for når den looper igennem anden gang så har du lukket din connection

Nu har jeg fjernet sætningerne:

Do while not rs.EOF

samt

rs.movenext
Loop

Da det jo allerede ligger i en loop...og det synes at virke...

Til info er Felt4 primærnøgle; Felt1, Felt2 er tal, og Felt3 er et tekst-felt i databasen. Der skal også tages højde for, at nogle felter kan være tommme...
(Men jeg ved dog ikke om du har tid og lyst til at hjælpe med SQL-sætningerne)?

Jeg har nu også flyttet lukningen af connectionen ned under Loop'en...

Opdaterer felterne i databasen, hvis de findes ellers opret dem:

strSql = "Select * from tabel where Felt4 = xxx"
set rs = Conn.execute(strSql)

if rs.eof then
  'Findes ikke
  StrSql = "INSERT into tabelnavn..."
else
  'Findes
  StrSql = "UPDATE...."
end if



jeg har ikke så meget tid idag. Jeg sidder og venter på nogle gæster.
Er her indtil de ikke kommer. Hvis du ikke får det løst kan vi se på det imorgen

Det lyder godt, jeg kæmper videre....

har du fået løst det??

Ikke helt... Scriptet udfører ikke handlingerne: DELETE og UPDATE?? Men det indskriver nye poster, som det skal. Og så er der lige det med de tomme felter (;;), der også skal tages højde for...

Scriptet ser nu sådan ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DBQ=" & Server.Mappath("Branche.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set rs = Server.CreateObject("ADODB.RecordSet")

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/Import/Branche.txt")
Set f = fso.OpenTextFile(filespec,1)
'Emp = replace((f.ReadLine), ";;", ";0")
Do While not f.AtEndOfStream

arrM = Split(f.ReadLine,";")
'arrM = Split(Emp,";")
strFelt1 = arrM(0)

strSQL = "select * from branche where Felt4=" & arrM(4) & ";"
set rs = Conn.Execute(strSQL)
       
if instr(strFelt1, "UPDATE")>0 Then
if rs.eof then

strSQL = "Insert into Branche (Felt1, Felt2, Felt3, Felt4) values(" & arrM(1) & ", '" & arrM(2) & "','" & arrM(3) & "','" & arrM(4) & "')"
set rs = Conn.Execute(strSQL)
else

'Response.write arrM(0) & arrM(4)
SQL="Update Branche set "&_
"Felt1='"&arrM(1) &"'," &_
"Felt2='"&arrM(2) &"'," &_
"Felt3='"&arrM(3) &"'," &_
"Felt4='"&arrM(4) &"'" &_
"where Felt4=" & arrM(4)
set rs = Conn.Execute(strSQL)
End if

Else if instr(strFelt1, "DELETE")>0 Then
if not rs.eof then
'response.Write arrM(0) & arrM(4)
SQL = "DELETE FROM Branche where Felt4=" & arrM(4) & ";"
set rs = Conn.Execute(strSQL)
End if
End if

End if

Loop
f.Close
'rs.Close 
Conn.Close
Set Conn = Nothing

%>

Håber, at du kan hjælpe ...

hvor får du semicolon fejl??

når du tester din UPDATE så er du vel sikker på at den findes i basen, ik?

Mht. UPDATE, så ændrer jeg blot en værdi i txt-filen (naturligvis ikke primærnøglen) - så de findes i databasen i forvejen. Det samme med DELETE.

Jeg får kun fejl, hvis jeg sletter et "felt" i txt-filen, for scriptet fjerner semikolon, når det indlæses. En linie i txt-filen kunne f.eks. se sådan ud:

UPDATE;43672012;4;Sand;1002
DELETE;43672012;4;Grus;1003

Hvis jeg fjerner noget, så linien bliver:

UPDATE;;4;Sand;1002

opstår naturligvis fejl. Måske skal jeg indlæse hele txt-filen først og replace ;; med et eller andet - ellers skriver den kun de 3 første ind i databasen, uden at tage det sidste felt med...

strSQL = "select * from branche where Felt4=" & arrM(4) & ";"
skal ændres til:
strSQL = "select * from branche where Felt4='" & arrM(4) & "';"

så går den ihverfald ikke ned, når den modtager blank.

Det samme skal gøres med delete:
SQL = "DELETE FROM Branche where Felt4='" & arrM(4) & "';"

Så skulle de 2 være løst. Hvor får du mere fejl

Hvis jeg indsætter:

strSQL = "select * from branche where Felt4='" & arrM(4) & "';"

Får jeg følgende fejl:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket

Under både UPDATE og DELETE har jeg lavet en response.write, som fortæller hvad der skal ske, og her skrives det rigtigt.
Fx. DELETE 1003, UPDATE 1002 - så den tidligere sætning må tilsyneladende være rigtig... Den udfører dog ikke selve handlingen...????

ok så arrM(4) er skal altså være et tal

så prøv denne istedet:

if arrM(4)<>"" then
strSQL = "select * from branche where Felt4='" & arrM(4) & "';"
set rs = Conn.Execute(strSQL)
  if not rs.eof then
    found=true
  else
    found=false
  end if
else
found = false
end if

if instr(strFelt1, "UPDATE")>0 Then
if found then

strSQL = "Insert into Branche (Felt1, Felt2, Felt3, Felt4) values(" & arrM(1) & ", '" & arrM(2) & "','" & arrM(3) & "','" & arrM(4) & "')"
set rs = Conn.Execute(strSQL)
else

'Response.write arrM(0) & arrM(4)
SQL="Update Branche set "&_
"Felt1='"&arrM(1) &"'," &_
"Felt2='"&arrM(2) &"'," &_
"Felt3='"&arrM(3) &"'," &_
"Felt4='"&arrM(4) &"'" &_
"where Felt4=" & arrM(4)
set rs = Conn.Execute(strSQL)
End if

nu kan arrM(4) godt være blank

arrM(4) er det, der fungerer som primærnøgle i databasen (en unik ID - den er dog ikke autogeneret), så den må ikke være blank.. det er kun de andre der må...

har du mulighed for at zippe det hele og sende det til min mail, så kigger jeg lige på det og sender det tilbage

Jeps, har du en hotmail eller noget.....

min mail er hooh@masti.dk

..lad mig høre om du har modtaget det ;-)

jeg har fået den.. kigger lige

prøv lige denne side:

http://www.masti.dk/eksperten/585349/import.asp

er det sådan du ønsker det?

Ja, det der trækkes ud ser rigtigt ud. Jeg har bare ikke kunne få det til at udføre selve handlingerne.....????

Når det virker, skal jeg blot have lavet en redirect, så det hele bliver afviklet skjult...

sådan

nu har smidt en tom db over

så læg mærke til at den først indsætter...

og hvis du refresher... så laver den UPDATE

har du fået det hele til at virke ? :)

insert/update virker ihvetfald

har ikke testet delete

har du?

ok delete virker også!!!!

nu kører det

Ja, jeg har også lige testet det - genialt !!!! 
Den sidste ting er dog det med en tom celle. Hvis man i txt'en sletter et felt, så der står

UPDATE;;4;Stål;1001

Så fejler scriptet. Jeg ved ikke om man fra start kunne replace ;; med ;0 
så der i databasen bare kommer til at stå 0 i de felter, der ikke benyttes???
Måske har du et mere prof forslag?

efter din split laver du en for-løkke og tjekker dit array og sætter 0 i dem der nu er tomme

sådan:
arrM = Split(lineTxt,";")
for x=0 to ubound(arrM)
if arrM(x) = "" then arrM(x)  = 0
next

Genialt, suverænt, super !!!! Post et svar, og de 200 points er dine ;-)

- håber i øvrigt, at kunne hjælpe dig (selv om det bliver svært)...

Selv tak...
glad for at kunne hjælpe :-)