Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

osantto

Problema - Alteração de Dados no BD.

Por , em ASP Clássico

Recommended Posts

osantto    0

osantto
Postado

Justamente, deve ser isso, seu formulário precisa de dados de 40 campos da tabela, e você só está recuperando dados de um campo.

Teria como vc postar o código com UPDATE ao invés do SELECT...

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedro rodrigues    4

pedro rodrigues
Postado

Teria como vc postar o código com UPDATE ao invés do SELECT...

Teria sim.

 

Mas você não está com problema na consulta também?

Eu entendi que você precis primeiro arruma a parte onde se escolhe o registro a ser alterado, pois está com problema: qualquer resgistro que escolha está aparecendo sempre o mesmo registro.

 

Bom, o código de update é algo semelhante ao seguinte (não conheço sua tabela então não vou conseguir fazer tão correto):

Dim sSQL

sSQL = " UPDATE form SET " & _
       "   CAMPO_1_DO_TIPO_TEXTO = '" & Request.Form("campo1") & "' " & _
       "  ,CAMPO_2_DO_TIPO_NUMERO = " & Request.Form("campo2") & _
       " WHERE " & _
       "  cod = " & Request.Form("cod")

connstring.Execute(sSQL)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

depois dá uma olhadinha naquele link que passei ele mostra o processo de atualização de uma forma bem didática

Compartilhar este post

Link para o post
Compartilhar em outros sites

osantto    0

osantto
Postado

depois dá uma olhadinha naquele link que passei ele mostra o processo de atualização de uma forma bem didática

Então olhei o link que você passou.... Achei legal, mas do jeito que a minha cuca tá... Vixe... Fritando os miolos, mas agradeço mesmo.... Estou pesquisando....

Compartilhar este post

Link para o post
Compartilhar em outros sites

osantto    0

osantto
Postado

 

Teria sim.

 

Mas você não está com problema na consulta também?

Eu entendi que você precis primeiro arruma a parte onde se escolhe o registro a ser alterado, pois está com problema: qualquer resgistro que escolha está aparecendo sempre o mesmo registro.

 

Bom, o código de update é algo semelhante ao seguinte (não conheço sua tabela então não vou conseguir fazer tão correto):

Dim sSQL

sSQL = " UPDATE form SET " & _
       "   CAMPO_1_DO_TIPO_TEXTO = '" & Request.Form("campo1") & "' " & _
       "  ,CAMPO_2_DO_TIPO_NUMERO = " & Request.Form("campo2") & _
       " WHERE " & _
       "  cod = " & Request.Form("cod")

connstring.Execute(sSQL)

Colega coloquei assim o cógido que você enviou alterei no bd para número... E deu esse erro....

 

Dim sSQL

 

sSQL = " UPDATE form SET " & _

" nome = '" & Request.Form("nome") & "' " & _

" ,ficha = " & Request.Form("ficha") & _

" WHERE " & _

" cod = " & Request.Form("cod")

 

connstring.Execute(sSQL)

 

 

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução UPDATE.

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedro rodrigues    4

pedro rodrigues
Postado

Talvez seja porque algum dos "Request.Form()" não retornou valor.



Esse sistema que você está tendo problemas é acessível pela internet?

Você pode colocar aqui no post umas imagens das telas pra entendermos melhor como ele funciona (tela de lista de usuário, tela de formulário de alteração de dados)?

Compartilhar este post

Link para o post
Compartilhar em outros sites

osantto    0

osantto
Postado

Talvez seja porque algum dos "Request.Form()" não retornou valor.

 

Esse sistema que você está tendo problemas é acessível pela internet?

Você pode colocar aqui no post umas imagens das telas pra entendermos melhor como ele funciona (tela de lista de usuário, tela de formulário de alteração de dados)?

Vou colocar partes do código....

 

Essa parte é formulário de edição dos dados.... Com as alterações todas que já fiz em cinza claro....

 

<%@ Language=VBScript CODEPAGE="65001"%>

 

<!-- #include file="conexaobd.asp" -->

 

<%

 

'DIM mySQL, objRS, cod

'mySQL = "SELECT * FROM form WHERE 'cod='" & cod

'Set objRS = Server.CreateObject("ADODB.Recordset")

'objRS.Open mySQL, connstring

 

'DIM mySQL, objRS

'mySQL = "SELECT cod FROM form"

'Set objRS = Server.CreateObject("ADODB.Recordset")

'objRS.Open mySQL, connstring

 

Dim sSQL

 

sSQL = " UPDATE form SET " & _

" nome = '" & Request.Form("nome") & "' " & _

" ,ficha = " & Request.Form("ficha") & _

" WHERE " & _

" cod = " & Request.Form("cod")

 

connstring.Execute(sSQL)

 

'Dim cod, listar

'strID = request("cod")

'cod = request("cod")

'Set listar = Server.CreateObject("ADODB.Recordset")

'Response.Write "<p>SQL: SELECT * FROM form WHERE cod = " & cod & "</p>"

'listar.open " SELECT * FROM form WHERE cod = '" & cod & "' ", connstring

'listar.open "SELECT * FROM form WHERE 'cod='" & cod, connstring

 

%>

 

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<title>Untitled Document</title>

</head>

 

<body>

<div class="formins">

<form name="formcd" method="post" action="alterar.asp">

<table width="900" height="1368" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="62" height="30" align="left" valign="middle">Ficha:</td>

<td width="218" align="left" valign="middle"><input name="ficha" type="text" value=<%=listar("ficha")%> ></td>

<td width="80" align="right" valign="middle">Indicação:</td>

<td width="149" align="left" valign="middle">

<input name="indic" type="text" value=<%=listar("indic")%> ></td>

<td width="58" align="left" valign="middle">Data:</td>

<td align="left" valign="middle">

<input name="data" type="text" value=<%=listar("data")%> size="16" ></td>

<td align="left" valign="middle"> </td>

<td align="left" valign="middle"><label for="cod"></label></td>

</tr>

<tr>

<td height="37" align="left" valign="middle">Nome:</td>

<td align="left" valign="middle"><input name="nome" type="text" value=<%=listar("nome")%> ></td>

<td align="right" valign="middle">Nasc:</td>

<td align="left" valign="middle">

<input name="nasc-p" type="text" value=<%=listar("nascp")%> ></td>

<td align="right" valign="middle">Tel:</td>

<td width="147" align="left" valign="middle">

<input name="tel1" type="text" value=<%=listar("tel1")%> ></td>

<td width="33" align="right" valign="middle">Cel:</td>

<td width="153" align="left" valign="middle">

<input name="cel1" type="text" value=<%=listar("cel")%> ></td>

</tr>

<tr>

<td height="36" align="left" valign="middle">Cônjuge:</td>

<td align="left" valign="middle"><input name="conj" type="text" value=<%=listar("conj")%> ></td>

<td align="right" valign="middle">Nasc:</td>

<td align="left" valign="middle">

<input name="nascc" type="text" value=<%=listar("nascc")%> ></td>

<td align="right" valign="middle">Tel:</td>

<td align="left" valign="middle">

<input name="tel2" type="text" value=<%=listar("tel2")%> ></td>

<td align="right" valign="middle">Cel:</td>

<td align="left" valign="middle">

<input name="cel2" type="text" value=<%=listar("cel2")%> ></td>

</tr>

<tr>

<td height="36" align="left" valign="middle">Filho 1:</td>

<td align="left" valign="middle"><input name="filho1" type="text" value=<%=listar("filho1")%> ></td>

<td align="right" valign="middle">Nasc:</td>

<td align="left" valign="middle">

<input name="nascf1" type="text" value=<%=listar("nascf1")%> ></td>

<td align="right" valign="middle">Tel:</td>

<td align="left" valign="middle">

<input name="telf1" type="text" value=<%=listar("telf1")%> ></td>

<td align="right" valign="middle">Cel:</td>

<td align="left" valign="middle">

<input name="celf1" type="text" value=<%=listar("celf1")%> ></td>

</tr>

<tr>

 

...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

para o erro gerado verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito