Galera preciso fazer um update no BD Access ...
Me deem um exemplo ...
Nocaso seria via formulário ...
Valeu .... { }
Update No Bd Access
Started By Danilo Piovani, 21/01/2004, 10:09
7 replies to this topic
#1
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 21/01/2004, 10:09
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#2
KBR
-
- Usuários
-
- 392 posts
kl3b3r
- Sexo:Não informado
- Localidade:Mauá - SP
- Interesses:ASP // DESENVOLVIMENTO WEB // MYSQL // ACCESS // FLASH // FIREWORKS // DREAMWEAVER // REDES
Posted 21/01/2004, 10:13
Tudo bem?!?
Seja mais específico...
A sintaxe de um UPDATE é a seguinte:
Qualquer dúvida... =D
Seja mais específico...
A sintaxe de um UPDATE é a seguinte:
sql= "UPDATE nome_tabela SET campo1='"&variavel1&"' WHERE id="&if&""
Qualquer dúvida... =D
#3
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 21/01/2004, 10:54
Então KBR , 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 vc puder me mostrar um código simples disso eu tento colocar dentro do meu padrão ... Valeu cara ...
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 vc puder me mostrar um código simples disso eu tento colocar dentro do meu padrão ... Valeu cara ...
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#4
Rodrigo
-
- Usuários
-
- 995 posts
oi!
- Sexo:Não informado
- Interesses:Diretório de sites - http://www.acheinobrasil.com.br
Posted 21/01/2004, 13:29
ja q seu banco de dados eh access, vc tem a opção de atualizar o banco direto pelo recordset... exemplo:
espero q tenha entendido
<%
if request.querystring("atualiza")="" then
'aki seu codigo de conexaum com o bd
sql="select * from tabela where id="&id
%>
aki o form
<form method="post" action="essa_mesma_page.asp?atualiza=a&id=<%=rs("id")%>">
<%
else
'aki vc conecta com o banco
sql="select * from tabela where id="&id
'aki o update pelo recordset
rs.fields("nome")=trim(request.form("nome"))
rs.fields("email")=trim(request.form("email"))
rs.update
end if
%>
espero q tenha entendido
Diretório de sites brasileiros - Achei no Brasil
#5
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 21/01/2004, 13:54
Será que está certo ????
<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: </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: </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: </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"> </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> </p>
</body>
</html>
<%Recordset1.Close()%>
<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: </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: </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: </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"> </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> </p>
</body>
</html>
<%Recordset1.Close()%>
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#6
Rodrigo
-
- Usuários
-
- 995 posts
oi!
- Sexo:Não informado
- Interesses:Diretório de sites - http://www.acheinobrasil.com.br
Posted 21/01/2004, 14:36
isso soh vc pode me falar... pq o q esta havendo ?
Diretório de sites brasileiros - Achei no Brasil
#7
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 21/01/2004, 15:47
não consigo abrir este arquivo ...
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
#8
Danilo Piovani
-
- Usuários
-
- 27 posts
Turista
- Sexo:Não informado
Posted 22/01/2004, 11:50
a
" Sinto que as pessoas dão pouco valor para o que realmente sentem , essas pessoas sofrem mas mesmo assim preferem isso à não ser mais destaque dentro da visão de outras pessoas , preferem Status, à ser feliz , eu quero é que o mundo se exploda , mas a minha felicidade não deixo passar , e diga-se de passagem quem realmente quer ser feliz com uma outra pessoa não se importa se ela ronca , ou se é baixo , alto , magro , gordo ,careca , feio , e sim tranforma os "defeitos" em qualidade , essas que a pessoa demontra . Amar é gostar intensamente e saber que em primeiro lugar vc esta sendo sincero(a) consigo mesmo(a) .
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
Por tudo resumimos que o importante é ser amado e se amar , o resto é balela , pura imaginação , sonho , que ao acordar vc pode perceber que foi seu pior pesadelo. "
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
