Controllo data prima di inserimento

[ubbicom]

Buona domenica.

Ho una tabella in mysql che inizialmente è vuota e va popolata con dei dati che arrivano da un form.

Prima dell'inserimento, devo però controllare che la data di registrazione non sia già stata precedentemente inserita in tabella.

Ho ragionato così:

strDataReg = Request.Form("DataReg")

strQ = "SELECT * FROM " 
strQ = strQ & " TABELLA "
strQ = strQ & " WHERE " 
strQ = strQ & " DATA = '" & strDataReg & "' " 

   Set objRs = server.createObject("ADODB.Recordset")
   objRs.Open strQ, objconn

If Not objRs.EOF Then
Do While Not objRs.Eof

'INSERISCI IN TABELLA TRAMITE QUERY

objRs.MoveNext() 
Loop

objRs.close()
Set objRs = Nothing

objconn.close()
Set objconn = Nothing

end if

Ma non viene inserito nulla nella tabella anche quando questa è vuota...

[Roby_72]

Il loop non serve...
A parte questo stampati la query prima di eseguirla e controlla che data cerchi...

strDataReg = Request.Form("DataReg")

strQ = "SELECT * FROM " 
strQ = strQ & " TABELLA "
strQ = strQ & " WHERE " 
strQ = strQ & " DATA = '" & strDataReg & "' " 

response.write strQ
   Set objRs = objconn.Execute(strQ)

If Not objRs.EOF Then

'INSERISCI IN TABELLA TRAMITE QUERY

end if
Set objRs = Nothing

objconn.close()
Set objconn = Nothing

Roby

[ubbicom]

Grazie.

La tabella adesso è vuota, ecco la query di selezione:

SELECT * FROM TABELLA WHERE DATA = '2008-03-16'

[Roby_72]

If objRs.EOF Then

Roby

[ubbicom]

Originariamente inviato da Roby_72

If objRs.EOF Then

Roby

Adesso inserisce, grazie.

Ma perchè "If objRs.EOF Then" e non "If NOT objRs.EOF Then" ?

[Roby_72]

Hai scritto la stessa cosa...
Perché tu devi inserire se il recordset è vuoto quindi

If objrs.EOF then

non se è pieno

If not objRS.EOF

Chiaro?

Roby

[ubbicom]

Si, scusa errore copia/incolla; tutto chiaro.

Tu dici che il ciclo non serve, ed è ok.

Adesso sto facendo delle prove ed invece di prendere i dati da un form li prendo da un file excel.

Ma viene inserita solo la prima riga del file excel, perchè?

[Roby_72]

Il loop lo devi fare sul recordset del file Excel...
Avevi parlato di form... quindi forse il loop non servita.
Se devi scorrere il recordset del file Excel allora ti serve.

Roby

[ubbicom]

Originariamente inviato da Roby_72
Il loop lo devi fare sul recordset del file Excel...
Avevi parlato di form... quindi forse il loop non servita.
Se devi scorrere il recordset del file Excel allora ti serve.

Roby

Sto facendo dei test x valutare se è meglio popolare il db con un form dove inserire manualmente decine di dati, oppure far compilare preventivamente all'utente un file excel preconfezionato e caricarlo tramite upload.

Il codice è questo, mi sembra semplice eppure non funziona, cioè inserisce nel db solo la prima riga del file excel:

Set adoCn = CreateObject("ADODB.Connection")

With adoCn
 .Provider="Microsoft.Jet.OLEDB.4.0"
 .ConnectionString="Data Source="&Server.MapPath("/public/PRECOMPILATO.XLS")&";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" 
 .Open
End With

strDataReg = Upload.Form("DataReg")

strSQL = "SELECT * FROM [FOGLIO1$] "

With adoRs
 Set .ActiveConnection = adoCn
 .Open strSQL
End With

adoRs.MoveFirst 
Do While Not adoRs.Eof

strQ = "SELECT * FROM " 
strQ = strQ & " TABELLA "
strQ = strQ & " WHERE " 
strQ = strQ & " DATA = '" & strDataReg & "' " 

response.write strQ
   Set objRs = objconn.Execute(strQ)

If Not objRs.EOF Then

'INSERISCI IN TABELLA TRAMITE QUERY

end if
Set objRs = Nothing

objconn.close()
Set objconn = Nothing

adoRs.MoveNext 
Loop

adoRs.close()
Set adoRs = Nothing

[Roby_72]

Ma scusa... chiudi la connessione dentro al ciclo...

Roby