Ir para conteúdo
Fórum Script Brasil
  • 0

Problema com alteração de data


spriggan

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
<%@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
%>

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...