Conversione date in SQL

[rebel]

Salve a tutti, ho creato una form con Dreamwaever UltraDEV 4,
e nonostante abbia configurato il tutto per inserire una data europea,
cioe' del tipo 29/10/01, non mi viene accettato l'inserimento, in quanto mi inverte la data in versione americana e il 29 risulta il numero di un mese che non viene accettato. Bisogna configurare il server in q

[rebel]

continua ..mi e' scappato l'invio....) qualche modo si puo' fare con qualche altro metodo?

Grazie Gp

[Andrea Simonassi]

Il problema delle date è molto sentito vedo.
In effetti è molto rognosa la questione.

Ti propongo una soluzione che personalmente adotto.

In input accetto solo date in un dato formato, per esempio aaaammgg
20011030 oppure gg/mm/aaaa.

Lato server controllo che il formato sia giusto, converto IO (non lo faccio fare a sql) la data da stringa a datetime (posso inviarti la funzione VB che lo fa per le date in italiano).

Se inserisco con i cursori VB in campi datetime è tutto automatico.

Se uso una stringa SQL, converto la data in double sottraggo 2 e inserisco la stringa double (anziche stringa data) nella query.

Ad esempio

hai un campo dt di tipo datetime, hai una variabile VB di tipo date che si chiama today

l'insert sarà, cn.execute "INSERT INTO tab (dt) values(" & cdbl(today - 2.0) & ")"

Una volta che la data è inserita correttamente come datetime evito accuratamente di riconvertirla in stringa, se non per l'output su schermo.

[rebel]

Non e' che ti ho seguito bene, purtroppo non conosco il vbscript,il problema c'e' l'ho solo in input, nel senso che in ourput ho delle funzionalità che mi consentono di riformattare la data. Tuttavia ti invio il file, magari ti capisco meglio.Grazie GP
<%@LANGUAGE="VBSCRIPT"%>

<%
' *** Edit Operations: (Modified for File Upload) declare variables

MM_editAction = CStr(Request.ServerVariables("URL")) 'MM_editAction = CStr(Request("URL"))
If (UploadQueryString <> "") Then
MM_editAction = MM_editAction & "?" & UploadQueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: (Modified for File Upload) set variables

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

MM_editConnection = MM_connNews_STRING
MM_editTable = "dbo.CATEGORIE"
MM_editRedirectUrl = "insertok.asp"
MM_fieldsStr = "CATEGORIE|value|DATA|value|TITOLO|value|TIPOLOGIA |value|TESTO|value"
MM_columnsStr = "CATEGORIE|',none,''|DATA|',none,NULL|TITOLO|',non e,''|TIPOLOGIA|',none,''|TESTO|',none,''"

' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")

' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(UploadFormRequest(MM_fields(i)))
Next

' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And UploadQueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And UploadQueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & UploadQueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & UploadQueryString
End If
End If

End If
%>
<%
' *** Insert Record: (Modified for File Upload) construct a sql insert statement and execute it

If (CStr(UploadFormRequest("MM_insert")) <> "") Then

' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

End If
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connNews_STRING
Recordset1.Source = "SELECT * FROM dbo.CATEGORIE"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="POST" action="<%=MM_editAction%>" enctype="multipart/form-data" onSubmit="checkFileUpload(this,'');return document.MM_returnValue">
<table align="center" width="497">
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">CATEGORIE:</font></td>
<td width="384">
<select name="CATEGORIE">
<option value="ANIM">ANIM</option>
<option value="ANSE">ANSE</option>
<option value="ASSOEDILI">ASSOEDILI</option>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("CATEGORIE").Val ue)%>" ><%=(Recordset1.Fields.Item("CATEGORIE").Value)% ></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">DATA:</font></td>
<td width="384">
<input type="text" name="DATA" value="<%=(Recordset1.Fields.Item("DATA").Value)%> ">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">TITOLO:</font></td>
<td width="384">
<input type="text" name="TITOLO" value="<%=(Recordset1.Fields.Item("TITOLO").Value) %>">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">TIPOLOGIA:</font></td>
<td width="384">
<select name="TIPOLOGIA">
<option value="NORMATIVA">NORMATIVA</option>
<option value="FORMAZIONE">FORMAZIONE</option>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("TIPOLOGIA").Val ue)%>" ><%=(Recordset1.Fields.Item("TIPOLOGIA").Value)% ></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</select>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">TESTO:</font></td>
<td width="384">
<textarea name="TESTO" cols="60" rows="5" wrap="PHYSICAL" accesskey="<%=(Recordset1.Fields.Item("TESTO").Val ue)%>"></textarea>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384"></td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"><font face="Arial, Helvetica, sans-serif">ALLEGATI:</font></td>
<td width="384"> </td>
</tr>
<tr valign="baseline">
<td nowrap align="right" width="101"></td>
<td width="384">
<input type="submit" name="Submit" value="Invia">
</td>
</tr>
</table>


</p>
<input type="hidden" name="MM_insert" value="true">
</form>
</body>
</html>
<%
Recordset1.Close()
%>

[Andrea Simonassi]

Non pensare che non voglia darti una mano, purtroppo ho moltissime cose da fare, ti prometto di guardarlo appena ho tempo.

[Andrea Simonassi]

Ci ho dato una mezza occhiata.

Quello è codice prodotto automaticamente da qualche editor, infatti è molto generico.

In quel modo ti devi rassegnare.

Se vuoi ottenere dei risultati personalizzati devi scriverti del codice personalizzato.

[rebel]

Infatti e' il codice VBSCRIPT a cui Macromedia Ultradev aggiunge chiaramente dei piccoli tag proprietari che pero' pensavo fossero ininfluenti sulla sua comprensione. Purtroppo al momento non ho il tempo di studiarmi VB SCRIPT e uso l'editor visuale che sino adesso si e' comportato egregiamente . Una cosa ho provato a inserire le date formato testo settando la colonna database come nvarchar, e cosi' me la prende, mi fa' anche gli ORDER BY DATA, posso avere dei problemi in seguito, in realta' ne devo fare un'uso semplice.
Pensi che potrebbe andare?

Ciao e Grazie.

[Andrea Simonassi]

fino al giorno in cui non cambi server o server web dovrebbe andare tutto.

[zed79]

Anchio ho lo stesso problema, ho letto la prima risposta di simonassi, e ho più o meno, almeno a grandi linee capito cosa vuoi dire, ti chiedo se gentilmente potresti mandarmi quella funzione vb di cui parlavi, o, se puoi qualche esempio.
Ti ringrazio in anticipo
Ciao...

[Andrea Simonassi]

ti chiedo se gentilmente potresti mandarmi quella funzione vb di cui parlavi, o, se puoi qualche esempio.

me lo segno.