[Resolvido] Atualização de dados em Banco Access

lezinhanet · Abril 15, 2008

Ola pessoal! sou nova no forum e ja vou começar precisando muito de vcs...

Aki no meu trampo eu to com um problema que eu naum consigo resolver..

tipo assim:

eu tenho um banco em access e paginas em asp

tenho uma pagina chamada resumo, que pega varios campos do meu banco... que são atualizados através de um botão (atualizar)

soh que existe um botão atualizar para cada linha do relatorio... ele esta atualizando a linha de acordo com o id .

mas isso ta dando muito problema com as novas atividades que as paginas estaum exercendo...

eu preciso unificar este botão...

criar um unico botão que ao invés de atualizar linha por linha...

pegue todos os campos alterados no forme e atualize no banco com as informações novas.

segue abaixo o pedaço do código onde se encontra o form e o outro pedaço com o metodo atualizar utilizado atualmente, espero que alguem tenha entendido o problema e possa me ajudar...

<form name="webinar" action="atualizar.asp?id=<%=rs("ID")%>&curso=<%=rs("TIPOSOFT")%>&data=<%=rs("DATACURSO")%>&hora=<%=rs("HORACURSO")%>" method="post">
	  <td nowrap="nowrap"><div align="left" class="style28"><%=count%></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=Left(rs("CARGO"), 10)%></span></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=Left(rs("EMPRESA"), 10)%></span></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=Left(rs("CONTATO"),15)%></span></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=rs("DDD")%></span></div></td>
	  <td nowrap="nowrap" align="center"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=rs("TEL")%></span></div></td>
	  <td><div align="center" class="style1828">
		<label>
		  <% if (rs("SITUACAO") = "CIC") then %>
		  <select name="situacao" class="style18" id="situacao">
			  <option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CIM">CIM</option>
			<option value="CMP">CMP</option>
			<option value="CLP">CLP</option>
			<option value="NI">NI</option>
		  </select>
		  <% elseif (rs("SITUACAO") = "CIV") then %>
		  <select name="situacao" class="style18" id="situacao">
			  <option value="CIV">CIV</option>
			<option value="CIC">CIC</option>
			<option value="CIM">CIM</option>
			<option value="CMP">CMP</option>
			<option value="CLP">CLP</option>
			<option value="NI">NI</option>
		  </select>
		  <% elseif (rs("SITUACAO") = "CIM") then%>
		  <select name="situacao" class="style18" id="situacao">
			<option value="CIM">CIM</option>
			<option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CMP">CMP</option>
			<option value="CLP">CLP</option>
			<option value="NI">NI</option>
		  </select>
		  <% elseif (rs("SITUACAO") = "CMP") then%>
		  <select name="situacao" class="style18" id="situacao">
			<option value="CMP">CMP</option>
			<option value="CIM">CIM</option>
			<option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CLP">CLP</option>
			<option value="NI">NI</option>
		  </select>
		  <% elseif (rs("SITUACAO") = "CLP") then %>
		  <select name="situacao" class="style18" id="situacao">
			<option value="CLP">CLP</option>
			<option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CIM">CIM</option>
			<option value="CMP">CMP</option>
			<option value="NI">NI</option>
		  </select>
		   <% elseif (rs("SITUACAO") = "NI") then %>
		  <select name="situacao" class="style18" id="situacao">
			<option value="NI">NI</option>
			<option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CIM">CIM</option>
			<option value="CMP">CMP</option>
			<option value="CLP">CLP</option>
		  </select>
		  <%else%>
		  <select name="situacao" class="style18" id="situacao">
			<option value="NULL"> </option>
			<option value="CIC">CIC</option>
			<option value="CIV">CIV</option>
			<option value="CIM">CIM</option>
			<option value="CMP">CMP</option>
			<option value="CLP">CLP</option>
			<option value="NI">NI</option>
		  </select>
		  <% end if%>
		  </label>
	  </div></td>
	  <td height="25"><div align="justify" class="style28">
	  <%if (Vtipou="qua") then%>
		<input name="ved" type="text" class="style28" id="ved" disabled="disabled" value="<%=rs("VENDEDOR")%>" size="3" maxlength="3" />
	   <%else%>
		<input name="ved" type="text" class="style28" id="ved" value="<%=rs("VENDEDOR")%>" size="3" maxlength="3" />
	  <%end if%>
	  </div></td>
	  <td><div align="center" class="style1828">
		<label>
		<%if (Vtipou="pos" or Vtipou="master" or Vtipou="control") then%>
		  <% if (rs("PR") = "CI") then %>
		  <select name="presenca" class="style18" id="presenca">
			<option value="CI">CI</option>
			<option value="IN">IN</option>
			<option value="DP">DP</option>
		  </select>
		  <% elseif (rs("PR") = "IN") then%>
		  <select name="presenca" class="style18" id="presenca">
			<option value="IN">IN</option>
			<option value="CI">CI</option>
			<option value="DP">DP</option>
		  </select>
		  <% elseif (rs("PR") = "DP") then%>
		  <select name="presenca" class="style18" id="presenca">
			<option value="DP">DP</option>
			<option value="CI">CI</option>
			<option value="IN">IN</option>
		  </select>
		  <%else%>
		  <select name="presenca" class="style18" id="presenca">
			<option value="NULL"> </option>
			<option value="CI">CI</option>
			<option value="IN">IN</option>
			<option value="DP">DP</option>
		  </select>
		  <% end if%>
		  <%else%>
		  <select name="presenca" class="style18" id="presenca">
			<option value="<%=rs("PR")%>"><%=rs("PR")%></option>
		  </select>
		  <%end if%>
		  </label>
	  </div></td>
	  <td class="style18"><div align="center" class="style18">
		<label>
		<%if (Vtipou="qua" or Vtipou="master" or Vtipou="control") then%>
		  <% if (rs("CONF") = "CF") then %>
		  <select name="conf" class="style18" id="conf">
			<option value="CF">CF</option>
			<option value="AC">AC</option>
			<option value="NC">NC</option>
			<option value="RET">RET</option>
		  </select>
		  <% elseif (rs("CONF") = "NC") then%>
		  <select name="conf" class="style18" id="conf">
			<option value="NC">NC</option>
			<option value="AC">AC</option>
			<option value="CF">CF</option>
			<option value="RET">RET</option>
		  </select>
		  <% elseif (rs("CONF") = "AC") then%>
		  <select name="conf" class="style18" id="conf">
			<option value="AC">AC</option>
			<option value="CF">CF</option>
			<option value="NC">NC</option>
			<option value="RET">RET</option>
		  </select>
		  <% elseif (rs("CONF") = "RET") then%>
		  <select name="conf" class="style18" id="conf">
			  <option value="RET">RET</option>
			<option value="AC">AC</option>
			<option value="CF">CF</option>
			<option value="NC">NC</option>
		  </select>
		  <%else%>
		  <select name="conf" class="style18" id="conf">
			<option value="NULL"> </option>
			<option value="AC">AC</option>
			<option value="CF">CF</option>
			<option value="NC">NC</option>
			<option value="RET">RET</option>
		  </select>
		  <%end if%>
		  <%else%>
		  <select name="conf" class="style18" id="conf">
			<option value="<%=rs("CONF")%>"><%=rs("CONF")%></option>
		  </select>
		  <%end if%>
		  </label>
	  </div></td>
	  <td><div align="center" class="style18">
		<label>
		<%if (Vtipou="pre" or Vtipou="master" or Vtipou="control") then%>
		  <% if (rs("TIPO") = "USR") then %>
		  <select name="tipo" class="style18" id="tipo">
			<option value="USR">USR</option>
			<option value="COM">COM</option>
			<option value="WEB">WEB</option>
		  </select>
		  <% elseif (rs("TIPO") = "COM") then %>
		  <select name="tipo" class="style18" id="tipo">
			<option value="COM">COM</option>
			<option value="USR">USR</option>
			<option value="WEB">WEB</option>
		  </select>
		  <% elseif (rs("TIPO") = "WEB") then %>
		  <select name="tipo" class="style18" id="tipo">
			  <option value="WEB">WEB</option>
			<option value="COM">COM</option>
			<option value="USR">USR</option>
		  </select>
		  <% else %>
		  <select name="tipo" class="style18" id="tipo">
			<option value="NULL">  </option>
			<option value="USR">USR</option>
			<option value="COM">COM</option>
			<option value="WEB">WEB</option>
		  </select>
		  <%end if%>
		  <%else%>
		  <select name="tipo" class="style18" id="tipo">
		 	<option style="position:absolute" value="<%=rs("TIPO")%>"><%=rs("TIPO")%></option>
		  </select>
		  <%end if%>
		  </label>
	  </div></td>
	  <td height="25" colspan="2"><div align="justify" class="style28">
	  <%if (Vtipou="pre" or Vtipou="master") then%>
		<input name="usu" type="text" class="style28" id="usu" value="<%=rs("NUMUSU")%>" size="6" maxlength="6" />
	  <%else%>
		<input name="usu" type="text" class="style28" id="usu" disabled="disabled" value="<%=rs("NUMUSU")%>" size="6" maxlength="6" />
	  <%end if%>
	  </div></td>
	  <td height="25" colspan="2"><div align="justify" class="style28">
	  <%if (Vtipou="pre" or Vtipou="master") then%>
		<input name="qua" type="text" class="style28" id="qua" value="<%=rs("QUA")%>" size="3" maxlength="3" />
	  <%else%>
		<input name="qua" type="text" class="style28" id="qua" disabled="disabled" value="<%=rs("QUA")%>" size="3" maxlength="3" />
	  <%end if%>
	  </div></td>
	  <td height="25" colspan="2"><div align="justify" class="style28">
		<input name="obs" type="text" class="style28" id="obs" value="<%=rs("OBS")%>" size="15" maxlength="100" />
	  </div></td>
	  <%if (Vtipou="control") then%>
	  <%else%>
	  <td width="59" nowrap="nowrap"><div align="left" class="style28">
		<input name="Enviar" type="submit" class="style28" onclick="webinar.valida();" value="Atualizar" />
	  </div></td>
	  <%end if%>
	   <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=Left(rs("CIDADE"), 10)%></span></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=rs("ESTADO")%></span></div></td>
	  <td nowrap="nowrap"><div align="left" class="style28"><span style="font-family: Arial, Helvetica, sans-serif;"> <%=rs("email")%></span></div></td>
	  <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;">
	<%=rs("data")%></a></span></div></td>
	</form>

o metodo eh este aki:

<%
Vpresenca = Request.Form("presenca")
Vtipo = Request.Form("tipo")
Vqua = Request.Form("qua")
Vconf = Request.Form("conf")
Vsit = Request.Form("situacao")
Vven = Request.Form("ved")
Vobs = Request.Form("obs")
Vusu = Request.Form("usu")
Vid = Request.QueryString("id")
Vcurso = Request.QueryString("curso")
Vdata = Request.QueryString("data")
Vhora = Request.QueryString("hora")
Vtipou = Request.QueryString("tipou")

sql = "UPDATE WEBINAR SET PR = '"& Vpresenca &"', TIPO = '"& Vtipo &"', QUA = '"& Vqua &"', CONF = '"& Vconf &"', OBS = '"& Vobs &"', SITUACAO = '"& Vsit &"', VENDEDOR = '"& Vven &"', NUMUSU = '"& Vusu &"' WHERE ID = "& Vid
Set rs = bco.Execute(sql)

%>

eu sou nova aki no trampo e ja peguei este codigo na rede...

entaum eu naum to conseguindo pegar o que o cara fez...

se alguem puder me ajudar...

eu agradesço...

bjaum

Estevam · Abril 15, 2008

Qual o erro gerado quando você tenta atualizar?

Abraços

Estevam

lezinhanet · Abril 16, 2008

Qual o erro gerado quando você tenta atualizar?

Abraços

Estevam

ele num ta dando erro

ele simplesmente naum consegue atualizar todos os valores.

qdo eu dou um "response" pra saber o que ele ta pegando...

ele retorna o valor de todos os campos, numa mesma linha

separado por virgula.

eu tenho que arrumar um jeito de quebrar essa linha

para que cada campo seja atualizado com seus devidos dados atualizados...

você me entendeu?

Estevam · Abril 16, 2008

Use a função Split, veja um exemplo abaixo:

<%
Dim teste : teste  = "a,b,c,d,e"
Dim teste2 : teste2 = Split(teste,",")
Response.Write(teste2(0))
%>

Abraços

Estevam

lezinhanet · Abril 16, 2008

Use a função Split, veja um exemplo abaixo:
<%
Dim teste : teste  = "a,b,c,d,e"
Dim teste2 : teste2 = Split(teste,",")
Response.Write(teste2(0))
%>
Abraços

Estevam

beleza! estevam vou tentar e ver se da certo...

mas lembrando que todos os dados são inseridos em um form

e os valores devem ser retornados apos atualizados neste mesmo form.

tudo aparece numa tabela...

lezinhanet · Abril 18, 2008

Use a função Split, veja um exemplo abaixo:
<%
Dim teste : teste  = "a,b,c,d,e"
Dim teste2 : teste2 = Split(teste,",")
Response.Write(teste2(0))
%>
Abraços

Estevam
beleza! estevam vou tentar e ver se da certo...

mas lembrando que todos os dados são inseridos em um form

e os valores devem ser retornados apos atualizados neste mesmo form.

tudo aparece numa tabela...

Gente!

desse jeito naum ta dando...

tipo... ele ta pegando todos os valores e jogando em uma linha...

mas por ordem de colunas...

valores da primeira coluna, valores da segunda coluna...

tudo junto...

sendo que cda coluna tbm tem seus valores separados por virgula...

ai o split naum ta dando...

qdo eu faço ele...

(ja tenteid e tudo que foi jeito)

e ele ta dando a pagina naum pode ser exibida...

e naum atualiza nada...

tem outro jeito?

ou entaum me explica direito como eh pra fazer esse split...

valew

Mário Monteiro · Abril 18, 2008

o split deparar os valores em pocisoes do array

neste seu exemplo

Dim teste : teste = "a,b,c,d,e"

Dim teste2 : teste2 = Split(teste,",")

Teremos que

teste2(0) = a

teste2(1) = b

teste2(2) = c

teste2(3) = d

teste2(4) = e

entende?

de posse disso o que necessariamente voce está precisando

lezinhanet · Maio 12, 2008

o split deparar os valores em pocisoes do array

neste seu exemplo

Dim teste : teste = "a,b,c,d,e"

Dim teste2 : teste2 = Split(teste,",")

Teremos que

teste2(0) = a

teste2(1) = b

teste2(2) = c

teste2(3) = d

teste2(4) = e

entende?

de posse disso o que necessariamente voce está precisando

Não estou precisando de mais nada.

o codigo foi perfeito, a unica coisa que eu tive que fazer foi colocar um espaço logo depois da

virgula, pq sem ele na hora do split separar os dados, ele naum tava conseguindo pegar os dados nulos.

Mas valeu !

Obrigadão mesmo

salvou meu emprego...

ja ava com esse problema ah moh tempaum!

BJAUM GALERA

hargon · Maio 12, 2008

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Mário Monteiro · Maio 13, 2008

Que bom qeu resolveu

Arquivado

[Resolvido] Atualização de dados em Banco Access

Recommended Posts

lezinhanet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estevam 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezinhanet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estevam 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezinhanet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezinhanet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezinhanet 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante