Modificare il formato dei campi data in un database In collaborazione con: DEVSPY.COM Descrizione: Lo script permette di sostituire le date nel formato "gg-mmm-aaaa" con mese in formato letterale (es. "15-Gen-2001") col formato "gg/mm/aaaa" (es. "15/01/2001") con mese indicato in cifre. Uso: Assegnare a objConn.ConnectionString la stringa di connessione al proprio database. Modificare la stringa SQL assegnata a strSQL, indicando il nome della tabella da utilizzare. Se necessario, modificare il nome del campo "Data". Note: L'oggetto RegExp è disponibile in VBScript dalla versione 5.0 in poi. Codice: <% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DSN=PROVA" objConn.Open Dim strSQL, objRS, objRS2, sData, sNewData Dim iBimestre, sMiddleToValue, iFirstSlashPos Dim iSecondSlashPos, iData, iRiga, iStartSearch strSQL = "SELECT * FROM TABELLA" Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS2 = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn objRS.MoveFirst While Not objRS.EOF sData = objRS("Data") If sData <> "" Then Response.Write sData & " - " iFirstSlashPos = Instr(1, sData, "-") iStartSearch = iFirstSlashPos + 1 iSecondSlashPos = Instr(iStartSearch, sData, "-") If (iFirstSlashPos > 0 AND iSecondSlashPos > 0) then sMiddleToValue = UCase(Mid(sData, iStartSearch, _ iSecondSlashPos - iFirstSlashPos - 1)) Select Case sMiddleToValue Case "JAN","GEN" sMiddle = "/01/" Case "FEB" sMiddle = "/02/" Case "MAR" sMiddle = "/03/" Case "APR" sMiddle = "/04/" Case "MAY","MAG" sMiddle = "/05/" Case "JUN","GIU" sMiddle = "/06/" Case "JUL","LUG" sMiddle = "/07/" Case "AUG","AGO" sMiddle = "/08/" Case "SET","SEP" sMiddle = "/09/" Case "OCT","OTT" sMiddle = "/10/" Case "NOV" sMiddle = "/11/" Case "DEC","DIC" sMiddle = "/12/" End Select sNewData = Left(sData, iFirstSlashPos - 1) & _ sMiddle & Right(sData, Len(sData) - (iSecondSlashPos)) Response.Write sNewData & "<BR>" End If iRiga = objRS("id_riga") If sNewData<>"" Then strSQL = "UPDATE TABELLA SET Data'" & sNewData & _ "' WHERE id_riga = " & iRiga objRS2.Open strSQL, objConn End If sNewData = "" End If objRS.MoveNext Wend objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>   CORSO DI ASP Parola segreta per scaricare la lezione: CORSOASP1 Per non intasare la tua casella di posta abbiamo riservato una pagina con accesso riservato per scaricare i file contenenti le lezioni. Accedi da qui: Puoi scaricare la lezione del corso di Asp utilizzando i pulsanti in basso. Scarica la lezione Indice del corso Contatta la redazione Copyright EPPYNET.COM® 2000 All right reserved Home | Privacy e Policy | Faq | Contatti	IL NOSTRO PARTNER DevSpy.com : è un portale IT indipendente dedicato ai programmatori che sviluppano applicativi, componenti e servizi per i sistemi Microsoft Windows.

Ricevi questa newsletter perche' ti sei volontariamente iscritto ai servizi gratuiti di EPPYNET.COM. I tuoi dati sono strettamente confidenziali e non verranno ceduti a terzi. Per consultare il testo completo sulla privacy puoi visitare la sezione dedicata disponibile in home page. Per modificare, cancellare i tuoi dati o iscriverti ad altre newsletter usa il pannello di controllo che trovi in Home Page. Per accedere usa la tua email: subemail e la tua password: subpasscode Se invece desideri cancellarti da questa lista clicca unsubscribelink