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

Fom com listmenu para edição

Alberto Mota

Perguntado por Alberto Mota,

 Share

Pergunta

Alberto Mota

Alberto Mota

Postado
Postado

Prezados amigos, estou usando o asp e o banco de dados é o Access 2003. Criei um form que altera o cadastro de contratos

primeiro mostrando aquele que o usuario deseja alterar. A origem dos dados do campo cliente vem da tabela de clientes

e não consigo traze-lo num list menu, apenas num texfield. Gostaria que os dados atuais já estivessem no listmenu e sendo assim o

usuario alteraria ali mesmo e daria prosseguimento ao seu trabalho.

Espero ter me explicado de acordo e desde já agradeço.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Guest Alberto21

Guest Alberto21

Postado
Postado

Andreia, desculpe a demora em responder, segue o código

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'Abrimos a Conexão com o Banco

Dim caminho

Dim conexao

caminho = Server.MapPath("data/consorcio.mdb")

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

'Selecionamos todos os Produtos da Tabela

Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT * FROM sistemas"

rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset

rsBuscaProdutos.PageSize = 4

'Criamos as Validações

if rsBuscaProdutos.eof then

Mensagem = "Nenhum Registro Encontrado"

Response.End

else

'Definimos em qual pagina o visitante está

if Request.QueryString("pagina")="" then

intpagina = 1

else

if cint(Request.QueryString("pagina"))<1 then

intpagina = 1

else

if cint(Request.QueryString("pagina"))>rsBuscaProdutos.PageCount then

intpagina = rsBuscaProdutos.PageCount

else

intpagina = Request.QueryString("pagina")

end if

end if

end if

end if

%>

<!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=iso-8859-1" />

<title>&Ocirc;mega Sistemas / Rede / Web</title>

</head>

<body>

<div id="container">

<div id="cabecalhonovo"></div>

<div id="cabecalho1">

<div id="menu">

<ul>

<li id="um"><a href="contato.asp">Contato</a></li>

<li id="dois"><a href="empresa.asp">A Empresa</a></li>

<li id="tres"><a href="index.asp">Home</a></li>

<li id="quatro"><a href="download.asp">Missão</a></li>

</ul>

</div>

</div>

<div id="cabecalho2"></div>

<div id="cabmeio"></div>

<div id="cabecalho3"></div>

<div id="container2">

<div id="colunaesquerda">

<div id="texto">

</div>

<div id="texto2">

</div>

</div>

<div id="colunadireita">

<form>

<table width="483" align="center" cellpadding="0" cellspacing="0" class="exemplo">

<tr>

<td height="31" colspan="2" align="center" valign="middle" class="legenda">&nbsp;Fale com a &Ocirc;mega Inform&aacute;tica </td>

</tr>

<tr>

<td width="98" height="32" align="center" valign="middle" class="detalhe">&nbsp;Nome:</td>

<td width="350" class="coluna" ><label>

<input name="textfield" type="text" size="50" />

</label></td>

</tr>

<tr>

<td width="98" height="30" align="center" valign="middle" class="detalhe">&nbsp;Endere&ccedil;o:</td>

<td valign="top" class="detalhe" ><label>

<input name="textfield2" type="text" size="45" />

</label></td>

</tr>

<tr>

<td width="98" align="center" valign="middle" class="detalhe">&nbsp;Bairro:</td>

<td height="32" valign="top" class="preço"><div align="left">

<label>

<input name="textfield3" type="text" size="45" />

</label>

</div></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;Cidade:</td>

<td height="28" valign="top" class="preço"><label>

<input name="textfield4" type="text" size="45" />

</label></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;UF:</td>

<td height="31" valign="top" class="preço"><div align="left">

<label>

<input name="textfield5" type="text" size="5" />

</label>

</div></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;Telefone:</td>

<td height="32" valign="top" class="preço"><div align="left">

<label>

<input type="text" name="textfield6" />

</label>

</div></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;Email:</td>

<td height="32" valign="top" class="preço"><div align="left">

<label>

<input type="text" name="textfield7" />

</label>

</div></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;Sistema/Servi&ccedil;o:</td>

<td height="37" valign="top" class="preço"><div align="left">

<label>

<select name="select">

<option value="1">Estoque</option>

<option value="2">Folha de Pagamento</option>

<option value="3">Contabilidade</option>

<option value="4">Vendas</option>

</select>

</label>

</div></td>

</tr>

<tr>

<td align="center" valign="middle" class="detalhe">&nbsp;</td>

<td height="21" valign="top" class="preço"><div align="left">

<label>

<input type="submit" name="Submit" value="Enviar" />

</label>

</div></td>

</tr>

<tr>

<td height="32" colspan="2" class="barra"> </td>

</tr>

</table>

</form>

</div>

<div id="rodape"></div>

</div>

</div>

</body>

</html>

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...