Record duplicati

[Mizushi]

Ciao.

Tramite ASP importo all'interno di una tabella Access un file excel; questa procedura è funzionante ma ha un difetto: importa da excel alla tabella Access anche i record doppi contenuti all'interno del file excel.

E' possibile escludere i records doppi dall'importazione ?

Questo è il codice d'importazione:

  Set RS = Server.CreateObject("ADODB.Recordset") 

  Rs.Open "SELECT * from [Foglio1$]", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="c:\excel.xls";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

Do Until Rs.Eof 
If Rs("ES") <> "" and Rs("CP") <> "" Then

strSql = "INSERT INTO Tabella... "
conn.execute(strSql)

end if

    Rs.MoveNext   
    Loop
    
 
  Rs.close()    
  set Rs=nothing  
  
  Conn.Close()
  Set Conn = Nothing

[Roby_72]

Devi controllare campo per campo che non siano presenti tra i record già inseriti...

Roby

[Mizushi]

Originariamente inviato da Roby_72
Devi controllare campo per campo che non siano presenti tra i record già inseriti...

Roby

Ma intendi questo controllo nella tabella del DB Access ?

[Roby_72]

Nel processo di importazione *PRIMA* di scrivere ogni nuovo record.

Roby

[Mizushi]

Originariamente inviato da Roby_72
Nel processo di importazione *PRIMA* di scrivere ogni nuovo record.

Roby

Scusa ma vorrei capire.... dici *PRIMA* di scrivere ogni nuovo record, quindi prima della query INSERT INTO ?

[Roby_72]

Prima della INSERT INTO fai una SELECT per le stesse cose che cerchi di inserire...
Se non ci sono fai una INSERT INTO..
Roby

[Mizushi]

Originariamente inviato da Roby_72
Prima della INSERT INTO fai una SELECT per le stesse cose che cerchi di inserire...
Se non ci sono fai una INSERT INTO..
Roby

Una select sul file excel o sulla tabella di access ?

[deleted_b]

"SELECT DISTINCT * from [Foglio1$]"

funziona su excel?! prova

[optime]

Originariamente inviato da Mizushi
Una select sul file excel o sulla tabella di access ?

mizzu! pensa! se devi spostare dalla cassa al tavolo, e non vuoi sul tavolo oggetti doppi, dove cerchi? nella cassa?

[Mizushi]

Originariamente inviato da cicciopie II
"SELECT DISTINCT * from [Foglio1$]"

funziona su excel?! prova

Si, grazie funziona davvero ! VVoVe:

<%

  Set RS = Server.CreateObject("ADODB.Recordset")
  Rs.Open "SELECT DISTINCT * from [Foglio1$]", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="C:\excel.xls";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""

Do Until Rs.Eof 

strSql = "INSERT INTO Tabella (F1, F2) VALUES ( " & Rs("f1") & ", '" & Rs("f2") & "') "
objconn.execute(strSql)

response.write strSQL &"
"

    Rs.MoveNext   
    Loop
    
 
  Rs.close()    
  set Rs = nothing  
  
  objconn.Close()
  Set objconn = Nothing 

%>

Ma se io ho due righe nel file excel esattamente uguali che si distinguono solo perchè una ha la data e l'altra no, quale mi viene caricata?