Select SELECIONADO!

[marcelocardoso 6]

Amigos!

 

Estou precisando fazer algo que nunca tinha feito até então!

Bom vamos lá!

 

1) tenho alguns livros cadastrados em um banco e fiz um arquivo para editar estes dados do banco através de um:

 

editarprod.asp?id=2

Aí seleciono através deste id e trago todos os campos do banco produtos para editar.

 

2) Mas até aí tudo bem, mas preciso agora pegar o campo CODCAT que tem no banco acima dos produtos, e montar a SELECT list montando todos os dados da TABELA que é das categorias chamada TBCAT e trazer de acordo com o registro a ser editado SELECIONADO nesta selectlist.

 

3) algúem pode me ajudar com um exemplo pronto, pois depois eu adapto???????

 

 

 

- Minha tabela de TBCAT, tem os campos ID, CategoriaCODE, CategoriaNOME

- Minha tabela de PRODUTOS, tem os campos ID, NOME, DESCRICAO, DATA, CODCAT, IMAGEM

 

 

Agradeço aos amigos!!!!

 

 

Obrigado!

[Mário Monteiro 179]

vai ser mais ou menos isso

 

Registro = Request("ID")RS1 = CONN.Execute("SELECT * FROM PRODUTOS WHERE ID = " & Registro)RS2 = CONN.Execute("SELECT * FROM CATEGORIAS")WHILE NOT RS2.EOF%><option value=<%=RS2("ID")%> <% IF RS2("ID") = RS1("CODCAT") THEN%> selected <%END IF%>><%=RS2("CategoriaNOME")%></option><%rsOrigem.MOVENEXTWEND%>

[marcelocardoso 6]

MArio Obrigado!Mas me esqueci de informar, no banco é gravado como o CategoriaCODE, que seria basicamente a tabela de categorias:ID: 1 CategoriaCODE: 12 CategoriaNOME: ClientesID: 2 CategoriaCODE: 14 CategoriaNOME: RepresentantePortanto se eu pegar o categoriaCODE do banco produtos, e na hora que eu for selecionar na lista vou precisar trazer o CategoriaNOME, ao invés do categoriaCODE, que no caso não seria 12 - mas sim CLIENTES, para selecionar no select.Será que isso vai dar problema?????Ou como posso fazer isso antes para trocar isso.

[Mário Monteiro 179]

nao entendi bem a sua colocaçãomas creio que nao tenha problema nenhuma em fazer esta adaptação

[marcelocardoso 6]

Mario seria assim?No banco do produtos está assim gravado as categorias, por CATEGORIACODE, ou seja por 12, 13, 14,15Que seria:12 = Clientes13 = Representantes14 = Revenda15 = OutrosEntendeu???Só que no select tenho que chamar pelo CATEGORIANOME, e não pelo CATEGORIACODE. ok

[Mário Monteiro 179]

poe o trecho do codigo de como está fazendo que acho que fica mais facil de entender e ajudar

[marcelocardoso 6]

Ok, estarei fazendo e te passo para me ajudares!E me desculpe mesmo, pois não conheço mais do que um básico um pouco avançado do asp, e as vezes quero fazer alguma coisa, mas realmente não sei usar as palavras e os termos certos para descrever.Mas chegarei lá!Obrigado!

[marcelocardoso 6]

Mario e Amigos!

 

Fiz conforme você me passou e funcionou direitinho, traz tudo selecionado ok!

veja como fiz:

<% SQL = "SELECT * FROM Estados ORDER BY ID ASC" SET Estados = Server.CreateObject("ADODB.RECORDSET")	 Estados.Open SQL, CX, 3%><select name="campo20" size="1" id="campo20" onkeypress="Desabilitar_Cores(this)" VerificaCampos="sim"><% WHILE NOT Estados.EOF %><option value=<%=Estados("EstadosUF")%> <% IF Estados("EstadosUF") = ClientesEdita("ESTADO") THEN %> selected <% END IF %>><%=Estados("EstadosUF")%></option><%Estados.MoveNext	Wend%></select>

Só que depois fiz um codigo para inserir os dados no banco e notei que nao está gravando direito, pois note que estou buscando do banco de dados os ESTADOS, certo!

 

Só que ele só grava por exemplo RIO, ao invés de Rio de Janeiro.... e fiz outros testes, mas notei que ele só grava os dados do estado que não tem espaço, tipo BAHIA, CEARA e etc....

 

quando tem espaço, não grava direito...oque deve ser?????

 

Segue meu código que pega os dados para jogar no banco de dados: EDITA_DB.ASP

<!--#include file="conn.asp" --><!--#include file="dataehora.asp" --> campoA  = Replace(Request.Form("ID"),"'","") campoB  = Replace(Request.Form("PAG"),"'","") campo1  = Replace(Request.Form("campo1"),"'","") campo2  = Replace(Request.Form("campo2"),"'","") campo3  = Replace(Request.Form("campo3"),"'","") campo4  = Replace(Request.Form("campo4"),"'","") campo5  = Replace(Request.Form("campo5"),"'","") campo6  = Replace(Request.Form("campo6"),"'","") campo7  = Replace(Request.Form("campo7"),"'","") campo8  = Replace(Request.Form("campo8"),"'","") campo9  = Replace(Request.Form("campo9"),"'","") campo10 = Replace(Request.Form("campo10"),"'","") campo11 = Replace(Request.Form("campo11"),"'","") campo12 = Replace(Request.Form("campo12"),"'","")  campo13 = Replace(Request.Form("campo13"),"'","") campo14 = Replace(Request.Form("campo14"),"'","") campo15 = Replace(Request.Form("campo15"),"'","") campo16 = Replace(Request.Form("campo16"),"'","") campo17 = Replace(Request.Form("campo17"),"'","") campo18 = Replace(Request.Form("campo18"),"'","") campo19 = Replace(Request.Form("campo19"),"'","") campo20 = Replace(Request.Form("campo20"),"'","") 'response.write campo1 & campo2 & campo4 & campo5 & campo6 & campo7 & campo8 & campo9 & campo10 & campo11 & campo12 & campo13 & campo14 & campo15 & campo16 & campo17 & campo18 & campo19 & campo20' response.end   SQLUPD = CX.Execute("UPDATE cadRC SET CODCLI = '"&campo2&"', CODMATRIZ = '"&campo1&"', CODCAT = '"&campo5&"', CPFCLI = '"&campo11&"', CGCCLI = '"&campo10&"', IECCLI = '"&campo12&"', NOMECLI = '"&campo7&"', ENDCLI = '"&campo13&"', NUMERO = '"&campo14&"', COMPCLI = '"&campo15&"', BAIRRO = '"&campo16&"', CIDADE = '"&campo19&"', ESTADO = '"&campo20&"', CEP = '"&campo17&"', TELCLI = '"&campo18&"', CONTATO = '"&campo8&"', EMAILCLI = '"&campo9&"', ATIVIDADE = '"&campo6&"', Login = '"&campo3&"', Senha = '"&campo4&"' WHERE ID = "&campoA&"")	 CX.Close SET CX = Nothing  Response.Redirect "cadclientes.asp?paginacao=" & campoB%>

Podem me ajudar nisso, pois estou perdidão.....?????

 

Me esqueci do código da página do FORM:

 

<!--#include file="conn.asp" --><% RCCOD = Request.QueryString("clientescod") ClientesEdita = CX.Execute("SELECT * FROM cadRC WHERE ID = " & RCCOD)%><table width="90%" border="0" align="center" cellpadding="2" cellspacing="2">		<tr>		  <td><form action="edita_db.asp" method="post" name="frm" target="_parent" id="frm">			  <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=2>				<TBODY>				  <TR> 					<TD valign="top" bgcolor="#FFFFFF"> 					  <table width="100%" height="367%"  border="0" align="center" cellpadding="2" cellspacing="6">						<tr> 						  <td width="100%" height="0%"></td>						</tr>						<tr> 						  <td height="13%" valign="top"> 						  <input name="ID" type="hidden" id="ID" value="<%=ClientesEdita("ID")%>">						  <input name="PAG" type="hidden" id="PAG" value="<%= Request.QueryString("id") %>"></td>						</tr>						<tr>						  <td height="50" bgcolor="#666666"><table width="100%" border="0" cellpadding="0" cellspacing="0">							  <tr>								<td width="24%"><div align="center"><span class="FonteNoticiasTextoBold_B">Código  Matriz:</span> 									<input name="campo1" type="text" class="FonteNoticiasTextoBold_L" id="campo1" value="<%=ClientesEdita("CODMATRIZ")%>" size="6" maxlength="10">								</div></td>								<td width="27%"><div align="center"><span class="FonteNoticiasTextoBold_B">Código  CR:</span>									<input name="campo2" type="text" class="FonteNoticiasTextoBold_L" id="campo2" value="<%=ClientesEdita("CODCLI")%>" size="6" maxlength="10">								</div></td>								<td width="28%"><div align="center"><span class="FonteNoticiasTextoBold_B">Usuário:</span>									<input name="campo3" type="text" id="campo3" value="<%=ClientesEdita("Login")%>" size="22" maxlength="10">								</div></td>								<td width="21%"><div align="center"><span class="FonteNoticiasTextoBold_B">Senha:</span>									<input name="campo4" type="text" id="campo4" value="<%=ClientesEdita("Senha")%>" size="6" maxlength="10">								</div></td>							  </tr>							</table></td>						</tr>						<tr>						  <td> </td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Categoria:</span><br><% SQL = "SELECT * FROM cadCAT ORDER BY ID ASC" SET CAT = Server.CreateObject("ADODB.RECORDSET")	 CAT.Open SQL, CX, 3%><select name="campo5" size="1" id="campo5" onkeypress="Desabilitar_Cores(this)" VerificaCampos="sim"><% WHILE NOT CAT.EOF %><option value=<%=CAT("CategoriaCODE")%> <% IF CAT("CategoriaCODE") = ClientesEdita("CODCAT") THEN %> selected <% END IF %>><%=CAT("CategoriaNOME")%></option><%CAT.MoveNext	Wend%>					  </select></td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Ramo de Atividade:</span><br><% SQL = "SELECT * FROM cadATIV ORDER BY ID ASC" SET ATIV = Server.CreateObject("ADODB.RECORDSET")	 ATIV.Open SQL, CX, 3%><select name="campo6" size="1" id="campo6" onkeypress="Desabilitar_Cores(this)" VerificaCampos="sim"><% WHILE NOT ATIV.EOF%><option value=<%=ATIV("AtividadeNOME")%> <% IF ATIV("AtividadeNOME") = ClientesEdita("ATIVIDADE") THEN %> selected <% END IF %>><%=ATIV("AtividadeNOME")%></option>						 <%ATIV.MoveNext		 Wend%>							</select></td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Nome do Cliente:</span><br>							<input name="campo7" type="text" id="campo7" value="<%=ClientesEdita("NOMECLI")%>" size="60" maxlength="50"></td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Nome de Contato:</span><br>							<input name="campo8" type="text" id="campo8" value="<%=ClientesEdita("CONTATO")%>" size="60" maxlength="50"></td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Email:</span><br>							<input name="campo9" type="text" id="campo9" value="<%=ClientesEdita("EMAILCLI")%>" size="60" maxlength="50"></td>						</tr>						<tr> 						  <td><span class="FonteNoticiasTitulo">CNPJ:</span><br> 						  <input name="campo10" type="text" id="campo10" value="<%=ClientesEdita("CGCCLI")%>" size="30" maxlength="80"></td>						</tr>						<tr> 						  <td><span class="FonteNoticiasTitulo">CPF:</span><br> 						  <input name="campo11" type="text" id="campo11" value="<%=ClientesEdita("CPFCLI")%>" size="30" maxlength="50"></td>						</tr>						<tr>						  <td><span class="FonteNoticiasTitulo">Inscrição Estadual:</span><br>							<input name="campo12" type="text" id="campo12" value="<%=ClientesEdita("IECCLI")%>" size="30" maxlength="50"></td>						</tr>						<tr>						  <td height="7%"><span class="FonteNoticiasTitulo">Endereço e Número:</span><br>							<input name="campo13" type="text" id="campo13" value="<%=ClientesEdita("ENDCLI")%>" size="48" maxlength="50">							 <input name="campo14" type="text" id="campo14" value="<%=ClientesEdita("NUMERO")%>" size="7" maxlength="50"></td>						</tr>					   <tr>						  <td height="7%"><span class="FonteNoticiasTitulo">Complemento:</span><br>							<input name="campo15" type="text" id="campo15" value="<%=ClientesEdita("COMPCLI")%>" size="48" maxlength="50"></td>						</tr>						<tr>						  <td height="7%"><span class="FonteNoticiasTitulo">Bairro:</span><br>							<input name="campo16" type="text" id="campo16" value="<%=ClientesEdita("BAIRRO")%>" size="25" maxlength="50"></td>						</tr>						<tr>						  <td height="7%"><span class="FonteNoticiasTitulo">CEP:</span><br>							<input name="campo17" type="text" id="campo17" value="<%=ClientesEdita("CEP")%>" size="10" maxlength="50"></td>						</tr>						<tr>						  <td height="7%"><span class="FonteNoticiasTitulo">Telefone:</span><br>							<input name="campo18" type="text" id="campo18" value="<%=ClientesEdita("TELCLI")%>" size="35" maxlength="50"></td>						</tr>						<tr>						  <td height="7%"><span class="FonteNoticiasTitulo">Cidade e Estado:</span><br>							<input name="campo19" type="text" id="campo19" value="<%=ClientesEdita("CIDADE")%>" size="35" maxlength="50"><% SQL = "SELECT * FROM Estados ORDER BY ID ASC" SET Estados = Server.CreateObject("ADODB.RECORDSET")	 Estados.Open SQL, CX, 3%><select name="campo20" size="1" id="campo20" onkeypress="Desabilitar_Cores(this)" VerificaCampos="sim"><% WHILE NOT Estados.EOF %><option value=<%=Estados("EstadosUF")%> <% IF Estados("EstadosUF") = ClientesEdita("ESTADO") THEN %> selected <% END IF %>><%=Estados("EstadosUF")%></option><%Estados.MoveNext	Wend%>					  </select></td>						</tr>						<tr> <td height="7%"></td>						</tr>						<tr>						  <td height="40"> </td>						</tr>						<tr> 						  <td height="15%"> 							<div align="left">							  <input type="submit" class="BotaoBorda1" value="ATUALIZAR CLIENTE">							</div></td>						</tr>						<tr>						  <td height="15%"> </td>						</tr>						<tr>						  <td height="15%"> </td>						</tr>						<tr>						  <td height="15%"> </td>						</tr>					</table></TD>				  </TR>				</TBODY>			  </TABLE>			</form></td>		</tr>	  </table>

[jrcardozo 4]

possivelmente o tipo de dados dos campos que está tentando salvar os dados não esteja como varchar ou com o tamenho do campo suficiente para armazenar. Verifique na tabela i tipo de dados

[marcelocardoso 6]

JOnathan!Verifiquei este campo do estado e ele é TEXTO com comprimento 255, não entendo isso.Pois antes de gravar, quando pego os dados imprimo na tela com response.write e ele já me traz errado.Pois note só?Se escolho Rio de Janeiro, ele me mostra na tela com o responde write, só RIO,E se escolho Pernambuco, ele me traz pernambuco normal. sem erros.Acredito que se fosse por tamanho o pernambuco, nao viria completo. pois são 10 caracteresO problema mesmo está dando é quando tem espaço entre um e outro. tipo o rio de janeiro.Solicito ajuda para ver se não é o codigo errado, ou coisa do tipo.Obrigado!Pois não entendo isso.