Controllo inserimento dati

[renganz]

Eccomi di nuovo qua a rompervi le scatole!

Devo inserire delle keywords all'interno di una tabella e controllare prima di inserirle che non siano già presenti.

cont1 = n + 1
Set rsKey = objConn.Execute ("SELECT * FROM Keywords")
rsKey.MoveFirst
if Session("Keywords") <> "" then 
    for f = 0 to Ubound(keywords)
        do while not rsKey.eof
            if (rsKey.Fields(Keyword).value <> keywords(f)) then
                   objConn.Execute ("INSERT INTO Keywords ([ID],[Keyword]) VALUES ('" & cont1 &_
                      "', '" & keywords(f) & "')")
                      cont1 = cont1 + 1
             end if
             rsKey.MoveNext
        loop
    next
end if 

keywords è l'array contenente le chiavi inserire.
Facendo in questo modo ovviamente non funziona, infatti mi dà un errore sul controllo:

if (rsKey.Fields(Keyword).value <> keywords(f)) then 

Esiste qualche modo per farlo, anche in SQL?

Grazie

[Mems]

Fai un ciclo sull'array keywords.
Passi ad una query select la keywords nella where.
Se il recordset è vuoto, ovvero EOF allora fai una insert into.

for i = 0 to ubound(keywords)
  sql = "SELECT * FROM tabella1 WHERE campoKeywords = '" & keywords(i) & "'"
  set rs = conn.execute(sql)
    if rs.eof then
      conn.execute("INSERT INTO tabella1 (campoKeywords) VALUES ('" & keywords(i) & "')")
    end if
  rs.close
  set rs = nothing
next

[renganz]

OK avevo provato anche io una cosa simile solo che mi dava e mi da come errore:

Microsoft JET Database Engine (0x80040E10)
Nessun valore specificato per alcuni parametri necessari. 

La tabella è fatta così:

cont1 = n + 1
for f = 0 to ubound(keywords)
      sql = "SELECT * FROM Keywords WHERE Keywords = '" & keywords(f) & "'"
      set rsKey = objConn.execute(sql)
       if rsKey.eof then
              objConn.Execute ("INSERT INTO Keywords ([ID],[Keyword]) VALUES ('" & cont1 &_
            "', '" & keywords(f) & "')")
            cont1 = cont1 + 1
        end if
     rsKey.close
      set rsKey = nothing
next 

...la query (SELECT) non va mica bene...

[renganz]

ooooooooooooppppppppppppppppppssssssssss

errore mio...funziona, avevo scritto Keywords invece di keyword

Grazie ancora

[Mems]

A bello... il campo si chiama keyword e non keywords

[renganz]

Si infatti...mi ero corretto nel post prima da solo!

Grazie ciao