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

Como Acesso Aos Campos...


Guest - tito -

Pergunta

10 respostass a esta questão

Posts Recomendados

  • 0
Guest - tito -

Bom, não é bem isto,....é o seguinte....

Eu criei uma página para administração de notícias que entrariam em

meu site,...

Nesta página eu inseri os campos texto (Id, Titulo, selo, etc...) e quando

rodo o programa ele apresenta os dados já incluidos no banco (estes

são navegáveis, para frente e para trás), e botões como incluir, etc...

Nos campos texto eu atribui ao value='<%=varId%>' e assim por diante.

Nos botões de navegação, avançar e voltar, eu inseri a programação

rs.MoveNext.....para que os campos sejam atualizados seria necessário

eu criar uma função para que os values dos meu input`s sejam

reatualizados em cada click.....

Se você não entender, post ae....

Vlew,...não liga as dúvidas e a 'dificuldade em minha comunicação....

Victor...

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - tito -

Ae, vai....

<%Option Explicit%>

<html>

<head>

<title>Prefeitura Municipal de Jundiaí - Administração/Notícias</title>

<script language="VBScript" runat="Server">

Function atualizaForm()

varId = recNoticia.Fields("id")

varTitulo = recNoticia.Fields("titulo")

varSelo = recNoticia.Fields("selo")

varLocFoto = recNoticia.Fields("localFoto")

varLegFoto = recNoticia.Fields("legendaFoto")

varTxtNoticia = recNoticia.Fields("txtNoticia")

End Function

</script>

<%

Dim conNoticia

Dim recNoticia

Dim varId, varTitulo, varSelo, varLocFoto, varLegfoto, varTxtNoticia

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

Set recNoticia = Server.CreateObject("ADODB.RecordSet")

conNoticia.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("noticias.mdb")

recNoticia.open "tblNoticias", conNoticia

%>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad='<%atualizaForm()%>'>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#CCCCCC" height="40">

<tr>

<td height="37" style="border-bottom: 1 solid #000000" valign="middle">

<table width="100%" border="0" cellspacing="0" cellpadding="2" height="30">

<tr>

<td width="15%">

<div align="center">

<input type="button" value="Novo" name="btNovo" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

</div>

</td>

<td width="15%">

<div align="center">

<%if recNoticia.EOF = True then%>

<input type="button" value="Excluir" name="btExcluir" disabled="True" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

<%Else%>

<input type="button" value="Excluir" name="btExcluir" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

<%End if%>

</div>

</td>

<td width="15%">

<div align="center">

<input type="button" value="Alterar" name="btAlterar" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

</div>

</td>

<td width="15%">

<div align="center"></div>

</td>

<td width="40%">

<div align="center"></div>

</td>

</tr>

</table>

</td>

</tr>

</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="90%">

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="3%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>ID</strong></font></div></td>

<td align="left" width="97%" height="15">

<div style="margin-left: 5">

<input type="text" name="txtId" size="2" value="<%=varId%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

</tr>

</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="5%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>Título</strong></font></div></td>

<td align="left" width="35%" height="15"></td>

<td align="left" width="5%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>Selo</strong></font></div></td>

<td align="left" width="55%" height="15"></td>

</tr>

<tr>

<td align="left" width="5%" height="15" colspan="2">

<div style="margin-left: 5">

<input type="text" name="txtTitulo" size="50" value="<%=varTitulo%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

<td align="left" width="5%" height="15" colspan="2">

<div style="margin-left: 5">

<input type="text" name="txtSelo" size="50" value="<%=varSelo%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

</tr>

</table>

</td>

<td align="left" width="10%" valign="Top">

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="100%" height="15"></td>

</tr>

<tr>

<td align="left" width="100%" height="15">

<div align="center">

<input type="button" value=">>" name="btAvancar" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 25; height: 20; font-size: 10; font-family: Verdana" onClick='<%=recNoticia.MoveNext & atualizaForm()%>'>

</div>

</td>

</tr>

<tr>

<td align="left" width="100%" height="15">

</td>

</tr>

</table>

</td>

</tr>

</table>

</body>

</html>

Link para o comentário
Compartilhar em outros sites

  • 0

Tente ai não testei mas olha se vai funcionar

<%Option Explicit%>

<html>

<head>

<title>Prefeitura Municipal de Jundiaí - Administração/Notícias</title>

<%

Function atualizaForm()

varId = recNoticia.Fields("id")

varTitulo = recNoticia.Fields("titulo")

varSelo = recNoticia.Fields("selo")

varLocFoto = recNoticia.Fields("localFoto")

varLegFoto = recNoticia.Fields("legendaFoto")

varTxtNoticia = recNoticia.Fields("txtNoticia")

End Function

Dim conNoticia

Dim recNoticia

Dim varId, varTitulo, varSelo, varLocFoto, varLegfoto, varTxtNoticia

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

Set recNoticia = Server.CreateObject("ADODB.RecordSet")

conNoticia.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("noticias.mdb")

recNoticia.open "tblNoticias", conNoticia

%>

</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad='<%atualizaForm()%>'>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#CCCCCC" height="40">

<tr>

<td height="37" style="border-bottom: 1 solid #000000" valign="middle">

<table width="100%" border="0" cellspacing="0" cellpadding="2" height="30">

<tr>

<td width="15%">

<div align="center">

<input type="button" value="Novo" name="btNovo" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

</div>

</td>

<td width="15%">

<div align="center">

<input type="button" value="Excluir" name="btExcluir" disabled="True" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

<input type="button" value="Excluir" name="btExcluir" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

</div>

</td>

<td width="15%">

<div align="center">

<input type="button" value="Alterar" name="btAlterar" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 75; height: 20; font-size: 10; font-family: Verdana">

</div>

</td>

<td width="15%">

<div align="center"></div>

</td>

<td width="40%">

<div align="center"></div>

</td>

</tr>

</table>

</td>

</tr>

</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="90%">

<% do While not recNoticia.EOF %>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="3%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>ID</strong></font></div></td>

<td align="left" width="97%" height="15">

<div style="margin-left: 5">

<input type="text" name="txtId" size="2" value="<%=varId%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

</tr>

</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="5%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>Título</strong></font></div></td>

<td align="left" width="35%" height="15"></td>

<td align="left" width="5%" height="15"><div style="margin-left: 5"><font size="1" color="#999999" face="Verdana"><strong>Selo</strong></font></div></td>

<td align="left" width="55%" height="15"></td>

</tr>

<tr>

<td align="left" width="5%" height="15" colspan="2">

<div style="margin-left: 5">

<input type="text" name="txtTitulo" size="50" value="<%=varTitulo%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

<td align="left" width="5%" height="15" colspan="2">

<div style="margin-left: 5">

<input type="text" name="txtSelo" size="50" value="<%=varSelo%>" disabled="true" style="background-color: #F5F5F5; color: #666666; font-size: 10; font-family: Verdana; border: 1 solid #666666">

</div>

</td>

</tr>

</table>

<%

recNotica.MoveNext

Loop

%>

</td>

<td align="left" width="10%" valign="Top">

<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF" height="40">

<tr>

<td align="left" width="100%" height="15"></td>

</tr>

<tr>

<td align="left" width="100%" height="15">

<div align="center">

<input type="button" value=">>" name="btAvancar" style="border: 1 solid #000000; background-color: #EFEFEF; color: #666666; width: 25; height: 20; font-size: 10; font-family: Verdana" onClick='<%=recNoticia.MoveNext & atualizaForm()%>'>

</div>

</td>

</tr>

<tr>

<td align="left" width="100%" height="15">

</td>

</tr>

</table>

</td>

</tr>

</table>

<%

recNoticias.close

conNoticia.close

%>

</body>

Editado por bolomaster
Link para o comentário
Compartilhar em outros sites

  • 0
Bom, não é bem isto,....é o seguinte....

Eu criei uma página para administração de notícias que entrariam em

meu site,...

Nesta página eu inseri os campos texto (Id, Titulo, selo, etc...) e quando

rodo o programa ele apresenta os dados já incluidos no banco (estes

são navegáveis, para frente e para trás), e botões como incluir, etc...

Nos campos texto eu atribui ao value='<%=varId%>' e assim por diante.

Nos botões de navegação, avançar e voltar, eu inseri a programação

rs.MoveNext.....para que os campos sejam atualizados seria necessário

eu criar uma função para que os values dos meu input`s sejam

reatualizados em cada click.....

Se você não entender, post ae....

Vlew,...não liga as dúvidas e a 'dificuldade em minha comunicação....

Victor...

Deixa eu ver se entendi, você quer que salve alguma coisa no banco de dados que o usuario escrever no campo de texto...Isso?? huh.gif

[]'s

Victor

Link para o comentário
Compartilhar em outros sites

  • 0
Guest - tito -

Vou testar aki bolomaster....

Não Victor,...eu quero que quando eu click nos meu botão avançar, os campos

de meu formulário se preencham com os outros dados,...e assim consecutivamente....

Vlew pela ajuda galera...

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...