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

Update No Bd Access

Danilo Piovani

Perguntado por Danilo Piovani,

 Share

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0
Danilo Piovani

Danilo Piovani

Postado
  • Autor
Postado

Então Galera , o procedimento que eu imagino é o seguinte ...

Um funcionário insere um aviso de manutenção ... ( já implementado )

dou a opção de consultar os avisos em aberto ... ( já implementado )

dentro desta página quero um botão de atualizar , que quando clicado traz todos os campos com os atuais "valores" podendo assim ser modificados e feito o update ...

Se você puder me mostrar um código simples disso eu tento colocar dentro do meu padrão ... Valeu Galera...

Link para o comentário
Compartilhar em outros sites
  • 0
Danilo Piovani

Danilo Piovani

Postado
  • Autor
Postado

O que tem de errado neste ??

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#FFFFFF" text="#000000">

<form method="post" action="<%=MM_editAction%>" name="form1">

<table align="center" width="611">

<tr valign="baseline">

<td nowrap align="left" width="193"><b>

Manutenção em:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b>

</td>

<td width="404">

<input type="text" name="nome" value="<%=(Recordset1.Fields.Item("servidor").Value)%>" size="27">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>Será(ão) Impactado(s):</b>

</td>

<td width="404">

<input type="text" name="endereco" value="<%=(Recordset1.Fields.Item("sistema").Value)%>" size="27">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>

Data da Manutenção:&nbsp;&nbsp;&nbsp;</b>

</td>

<td width="404">

<input type="text" name="cidade" value="<%=(Recordset1.Fields.Item("dia").Value)%>" size="20">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>

Hora de Início:</b>

</td>

<td width="404">

<input type="text" name="estado" value="<%=(Recordset1.Fields.Item("inicio").Value)%>" size="12">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>Tempo de Manutenção:</b>

</td>

<td width="404">

<input type="text" name="cep" value="<%=(Recordset1.Fields.Item("termino").Value)%>" size="12">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>

Autor:</b>

</td>

<td width="404">

<input type="text" name="email" value="<%=(Recordset1.Fields.Item("autor").Value)%>" size="47">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>E-mail

do Responsável:&nbsp;</b>

</td>

<td width="404">

<input type="text" name="tel1" value="<%=(Recordset1.Fields.Item("email").Value)%>" size="47">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"><b>

Observações e Motivos:</b>

</td>

<td width="404">

<textarea TYPE="text" NAME="obs" rows="5" cols="78" value="<%=(Recordset1.Fields.Item("obs").Value)%>"></textarea>

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193"></td>

<td width="404">

</td>

</tr>

<tr valign="baseline">

<td nowrap align="left" width="193">&nbsp;</td>

<td width="404">

<p align="center">

<input type="submit" value="( Atualizar )">

</p>

</td>

</tr>

</table>

<input type="hidden" name="MM_update" value="true">

<input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("codigo").Value %>">

</form>

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/avis_manut.asp" -->

<%

' ******************** WWW.COMERCIALWEB.COM.BR *********************

' * Este sistema foi desenvolvido por: www.comercialweb.com.br *

' * desenvolvimentos loja virtual dominio e hospedagem. *

' * E-mail comercial@comercialweb.com.br *

' * caso tenha alguma dúvida leia o arquivo configuração.txt *

' * ou envie um E-mail: yy200@ig.com.br a/c Luciano *

' ******************************************************************

MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & 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")) <> "" And CStr(Request("MM_recordId")) <> "") Then

MM_editConnection = MM_avis_manut_STRING

MM_editTable = "tabela1"

MM_editColumn = "codigo"

MM_recordId = "" + Request.Form("MM_recordId") + ""

MM_editRedirectUrl = "confirma_atualizacao.asp"

MM_fieldsStr = "servidor|value|sistema|value|dia|value|inicio|value|termino|value|autor|value|email|value|obs|value"

MM_columnsStr = "|servidor|',none,''|sistema|',none,''|dia|',none,''|inicio|',none,''|termino|',none,''|autor|',none,''|email|',none,''|obs|',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 i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(i+1) = CStr(Request.Form(MM_fields(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 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_editQuery = MM_editQuery & ","

End If

MM_editQuery = MM_editQuery & MM_columns(i) & " = " & 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 Recordset1__Codigo

Recordset1__Codigo = "0"

if (request.querystring("tabela1") <> "") then Recordset1__Codigo = request.querystring("tabela1")

%>

<%

set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = MM_avis_manut_STRING

Recordset1.Source = "SELECT codigo , servidor, sistema, dia , inicio, termino, autor, email, obs FROM tabela1 WHERE codigo = " + Replace(Recordset1__Codigo, "'", "''") + ""

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 3

Recordset1.Open()

Recordset1_numRows = 0

%>

<p>&nbsp;</p>

</body>

</html>

<%Recordset1.Close()%>

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.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...