Record duplicati

[Mizushi]

Allego il file excel che devo importare.

Devo importare secondo questa logica:

1 ) tutte le righe;
2 ) dove non c'è la data sostituisco con la data di oggi;
3 ) in caso di righe uguali una con la data e l'altra no devo scartare quella senza data.

In pratica devo importare le righe del file excel numero: 1, 4, 6, 7, 8, 9, 10, 11, 12, 13, 14
Devo scartare le righe 2,3 e 5
In più nel campo data delle righe 6, 7, 8, 9, 10, 11, 12, 13, 14 devo inserire la data di oggi.

Sapete aiutarmi?

[optime]

con la DISTINCT * (*=ALL!!!!) ti carica SIA la riga con la data CHE quella senza. nel tuo esempio l'UNICA distinct sarà tra le righe 2 e 3, le uniche due COMPLETAMENTE uguali

[Mizushi]

Originariamente inviato da optime
con la DISTINCT * (*=ALL!!!!) ti carica SIA la riga con la data CHE quella senza. nel tuo esempio l'UNICA distinct sarà tra le righe 2 e 3, le uniche due COMPLETAMENTE uguali

Quindi sbaglio la query?

Però se modifico così:

  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"""

Errore:

Tipo di errore:
Microsoft JET Database Engine (0x80040E14)
L'istruzione SELECT include una parola riservata o un argomento scritto in modo errato o mancante oppure la punteggiatura non è corretta .

[optime]

no, mizzymizzy, devi dire quali campi considerare per la distinct! ad esempio,

SELECT DISTINCT CAMPO1, CAMPO2 FROM TABELLA

però poi ti importa solo quei due campi!

nella tua situazione la cernita la devi fare DOPO! anche perché hai una situazione non 'lineare'

[Mizushi]

Originariamente inviato da optime
no, mizzymizzy, devi dire quali campi considerare per la distinct! ad esempio,

SELECT DISTINCT CAMPO1, CAMPO2 FROM TABELLA

però poi ti importa solo quei due campi!

nella tua situazione la cernita la devi fare DOPO! anche perché hai una situazione non 'lineare'

Scusami tanto, ma questa volta faccio fatica a capire...

Ho scritto così:

<%

  Set Rs = Server.CreateObject("ADODB.Recordset")
  Rs.Open "SELECT DISTINCT F1, F2, DataF3 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 IsDate(Rs("DATA")) then
strData = formatDBDate(Rs("DATA"), "mysql")

   strSql = "INSERT INTO Tabella (F1, F2, DataF3) VALUES ( " & Rs("f1") & ", '" & Rs("f2") & "', " & strData & ") "

else
strData = formatDBDate(Date(), "mysql")

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

response.write strSQL &"
"

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

%>

Errore:

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

[Mizushi]

up