Inserimento date in access

[bibuz]

Salve ragazze scusate so che è un'argomento arcitrattato ma non risco a risolvere il problema dell'inserimento delle date in Access.

Ho provato varie soluzioni trovate sul forum ma nn sono riuscito a risolvere il problema che è questo:
Se io dal form immetto la data 30/04/2009 Access la memorizza correttamente mentre se io inserisco 02/04/2009 me la memorizza con 04/02/2009.

Ho provato ad inserire "<% Session.LCID=1040 %>" in tutte l pagine ma non risolvo nulla perchè comunque la data (04/02/2009) memorizzata da Access comunque è una data corretta.

Questo è lo script per l'inserimento dei dati:

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_extra_STRING
    MM_editCmd.CommandText = "INSERT INTO news ([data], titolo, dettaglio, categoria) VALUES (?, ?, ?, ?)" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("data"), Request.Form("data"), null)) ' adDBTimeStamp
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("titolo")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 203, 1, 1073741823, Request.Form("dettaglio")) ' adLongVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("categoria")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "extraLogin.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
	
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>

Come posso inserire dentro access la data che effettivamente io scrivo nel form.

Il campo su access 2007 è un campo data formato generico.

Grazie a tutti in anticipo per l'aiuto.

[max1975_na]

il server ha la data in americano!

devi fare in modo di invertire il giorno col mese... mi sono trovato nella stessa situazione!

se riesco a trovare lo script te lo passo

[optime]

inserire e interrogare sempre in formato #mm/gg/aaaa#

[max1975_na]

io usavo questo, un po grossolano ma andava...

'wslasc ="/"
wDataScadenza = Request.Form("dataScadenza")
mese = Mid(wDataScadenza, 1, 2)
giorno = Mid(wDataScadenza, 4, 2)
anno  = Mid(wDataScadenza, 7, 4)
wDataScadenza = giorno & wslasc & mese & wslasc & anno 

[bibuz]

Ok Max grazie dopo provo.

[bibuz]

Max ho provato ad inserire il tuo script ma mi inverte il giorno con il mese:

30/03/2009 me lo inquadra come 3/30/2009....

Per Optime: Cosa intendi per inserire e interrogare per mm/gg/aaaa???
Devo far inserire la data nel formato inglese all'interno del form?

[optime]

no, fai lavorare l'utente all'italiana, poi la giri tu

[wallrider]

prevedi due funzioni:
- db2str che formatta da inglese a italiano
- str2db che formatta da italiano a inglese

così se poi cambi db ti basta modificare queste

[bibuz]

Come non detto ragazzi scusate.

E' che durante i test o levato session.lecid=1040 dalla pagina dove vedo le news perciò nn mi caricava le date correttamente.

Grazie Max1975.