Problema com alteração de data

[spriggan]

Boa tarde!!!!!

Seguinte, esbarrei com mais um novo problema, não estou conseguindo alterar uma data no banco de dados

o banco é SQL SERVER 05.

o erro:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][ODBC SQL Server Driver][sql Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

alguém pode ajudar?

[Rafael Spilki]

Poste seu código para darmos uma olhada...

Pode ser várias coisas... normalmente data no formato errado ou invertida...

[]'s Rafael Spilki

[spriggan]

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/grupo_borin.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

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
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_grupo_borin_STRING
  MM_editTable = "dbo.LOJA_VENDA"
  MM_editColumn = "CODIGO_FILIAL"
  MM_recordId = "'" + Request.Form("MM_recordId") + "'"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "DATA_VENDA|value"
  MM_columnsStr = "DATA_VENDA|',none,NULL"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

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

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    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
%>
<%
Dim rsaltera__MMColParam
rsaltera__MMColParam = "1"
If (Request.QueryString("TICKET") <> "") Then 
  rsaltera__MMColParam = Request.QueryString("TICKET")
End If
%>
<%
Dim rsaltera
Dim rsaltera_numRows

Set rsaltera = Server.CreateObject("ADODB.Recordset")
rsaltera.ActiveConnection = MM_grupo_borin_STRING
rsaltera.Source = "SELECT * FROM dbo.LOJA_VENDA WHERE TICKET = '" + Replace(rsaltera__MMColParam, "'", "''") + "'"
rsaltera.CursorType = 0
rsaltera.CursorLocation = 2
rsaltera.LockType = 1
rsaltera.Open()

rsaltera_numRows = 0
%>
<form method="post" action="<%=MM_editAction%>" name="form1">
  <table align="center">
    <tr valign="baseline">
      <td nowrap align="right">DATA_VENDA:</td>
      <td><input type="text" name="DATA_VENDA" value="<%=(rsaltera.Fields.Item("DATA_VENDA").Value)%>" size="32">
      </td>
    </tr>
    <tr valign="baseline">
      <td nowrap align="right">&nbsp;</td>
      <td><input type="submit" value="Update record">
      </td>
    </tr>
  </table>
  <input type="hidden" name="MM_update" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= rsaltera.Fields.Item("CODIGO_FILIAL").Value %>">
</form>
<p>&nbsp;</p>
<%
rsaltera.Close()
Set rsaltera = Nothing
%>

[Rafael Spilki]

Bah cara... dureza mesmo! não entenda como má vontade... mas nosssssaaa... cara que código mais maluco...

Essa data vem do banco e você quer poder alterar ela... é isso?

cara... tente botar simplesmente um session.lcid=1046 no topo do seu código... mais precisamente assim:

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

session.lcid = 1046

Mas assim... só para que você entenda como o DW "estraga" o seu código veja como as variáveis acima poderiam ser declaradas de uma forma bem mais simples:

Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd, MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId, MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal, MM_emptyVal, MM_i

de 28 linhas passamos para duas... isso falando só na parte de declarar as variáveis... nem vamos falar nos nomezinhos das queridas que vo te dizer... fica bem complicado de interpretar o code... mas enfim... taí a dica...

Tomara que funcione...

[]'s Rafael Spilki

[Jonathan Queiroz]

Rafael, só um erro no seu código !

Ele está assim:

Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd, MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, MM_recordId,
MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal, MM_emptyVal, MM_i

O certo seria:

Dim MM_editAction, MM_abortEdit, MM_editQuery, MM_editCmd, MM_editConnection, MM_editTable, MM_editRedirectUrl, MM_editColumn, _
MM_recordId, MM_fieldsStr, MM_columnsStr, MM_fields, MM_columns, MM_typeArray, MM_formVal, MM_delim, MM_altVal, MM_emptyVal, MM_i

[Rafael Spilki]

Cara... não ta não... ta tudo na mesma linha véio! é que aqui não tem barra de rolagem horizontal... mas copiei e colei pro meu DW e continuou tudo na mesma linha... pode olhar aí!

[]'s Rafael Spilki

[bareta]

o problema do dream nem é tanto isso...

se nego não sabe bulhufas de asp e aprende a fazer o dreamweaver inserir código... acha que vai rola tudo certo.... mais esse programa é burro...

insere os blocos de código em lugar errado... mó noiado... jkkkkkk

uso ele só pra colorir meus códigos e autopreencher o q to digitando.