Alterar Registro Do Banco De Dados Access

Abril 20, 2006

Bem pessoal vou tentar explicar minha dúvida, vou até postar uma foto para facilitar o entendimento, endereço da foto: http://pfunesacombr.t5.com.br/formulario.jpg

Preciso fazer alteração no banco de dados através de um administrador, que seria basicamente o seguinte:

Ponto: [ ] -> esse é um campo de LIST (lista), quero que quando selecione 1 certo item na lista, apareça os outros itens na lista "nome", e quando eu selecionar 1 item da lista nome, aí sim preenche os outros campos, "definicao", "localizacao", "funcao","diagnostico", e eu quero poder alterar e atualizar no banco:

Nome:[ ]

Definição

Localização:

Função:

Diagnóstico:

botões: ALTERAR | LIMPAR

fantasma · Abril 20, 2006

Vê se você entende você pode no lugar do teste colocar o id do nome e assim fazer a consulta, você precida salvar o arquivo como consulta.asp

<form>

</select>

</form>

</table>

<%

x=request.querystring("teste")

response.write x

%>

Abril 20, 2006

Fala pessoal eu consegui fazer + ou - o que eu queria, que era escolhe 1 opção na primeira lista e puxar os dados para a 2º lista: o endereço da foto para vocês entenderem + ou -

http://pfunesacombr.t5.com.br/formulario.jpg

O que eu queria agora, é saber como altera os dados puxados pelo banco, tipo, eu altero alguma coisa no campo definicao, localizao, funcao ou diagnostico e aperto alterar e ele altera os conteudo

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

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<%

caminho = Server.MapPath("banco.mdb")

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

Set Con = server.createobject("adodb.connection")

con.cursorlocation = 3

con.Open data_source

id=request("id")

nome=request("nome")

ponto = request("ponto")

sql = "select * from pontos"

set rs = con.execute(sql)

%>

<tudo width="100" height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong></tudo>

<option value="SELECIONE" selected>Selecione a Área</option>

<% while not rs.eof %>

<%=rs("id")%> </option>

<%

rs.movenext

wend %>

</select>

<%

if id = "" then

%>

</tudo>

</tr>

</tudo>

<option value="SELECIONE" selected>Selecione o Ponto</option>

</select>

<% else

sqlcid = "select nome from orelha where ponto = "&id&""

set rs1 = con.execute(sqlcid)

%> </tudo>

</tr>

</font></strong>

<option value="Selecione o Ponto" selected>Selecione o Ponto</option>

<% while not rs1.eof%>

<% rs1.movenext

wend%>

</select>

<% end if %>

</p>

<%

consulta="select definicao from orelha where nome='"&nome&"'"

set def=con.execute(consulta)

%>

<tudo height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Definição:</font></strong></tudo>

</p>

</tudo>

</tr>

<%

consulta="select localizacao from orelha where nome='"&nome&"'"

set loc=con.execute(consulta)

%>

Localização:</font></strong></p></tudo>

<tudo>

</tr>

<%

consulta="select funcao from orelha where nome='"&nome&"'"

set fun=con.execute(consulta)

%>

Função:</font></strong></p></tudo>

<tudo>

</tr>

<%

consulta="select diagnostico from orelha where nome='"&nome&"'"

set dia=con.execute(consulta)

%>

Diagnóstico:</font></strong></p></tudo>

<tudo>

</tr>

<tr>

</tr></table>

</form>

</body>

</html>

.Andreia. · Abril 20, 2006

rotina de UPDATE, na pagina de submit você resgata os novos valores e atualiza no banco

Abril 21, 2006

Fala pessoal olha eu aqui de novo, vou postar o endereço do meu sistema para vocês irem entendo melhor

SISTEMA - FORMULÁRIO

O que está faltando agora é o seguinte, quando eu selecionar o item da 2º caixa (nome) ele deve lista as informações nos campos abaixo, "definição", "localizacao", "funcao", "diagnostico"

AH! e outro problema que eu notei, foi que quando eu escolho uma opção la na primeira lista (ponto), ele volta para o "Selecione a área" eu gostaria que mantesse o numero que escolhi

abaixo vai o código do sistema:

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

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<%

caminho = Server.MapPath("banco.mdb")

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

Set Con = server.createobject("adodb.connection")

con.cursorlocation = 3

con.Open data_source

id=request("id")

nome=request("nome")

ponto = request("ponto")

sql = "select * from pontos"

set rs = con.execute(sql)

%>

<tudo width="100" height="29"><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ponto:</font></strong></tudo>

<option value="SELECIONE" selected>Selecione a Área</option>

<% while not rs.eof %>

<%=rs("id")%> </option>

<%

rs.movenext

wend %>

</select>

<%

if id = "" then

%>

</tudo>

</tr>

</tudo>

<option value="SELECIONE" selected>Selecione a Área</option>

</select>

<% else

sqlcid = "select nome from orelha where ponto = "&id&""

set rs1 = con.execute(sqlcid)

%> </tudo>

</tr>

</font></strong>

<option value="Selecione o Ponto">Selecione o Ponto</option>

<% while not rs1.eof%>

<option value="<%=rs1("nome")%>" selected><%=rs1("nome")%></option>

<% rs1.movenext

wend%>

<% end if %>

</select>

<tudo height="29"><p><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Definição:</font></strong></p>

</tudo>

</p>

</tudo>

</tr>

Localização:</font></strong></p>

</tudo>

<tudo>

</tr>

Função:</font></strong></p>

</tudo>

<tudo>

</tr>

Diagnóstico:</font></strong></p>

</tudo>

<tudo>

</tr>

<tr>

</tr></table>

</form>

</body>

</html>

Entrar

Alterar Registro Do Banco De Dados Access

Pergunta

Guest - Neo -

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

fantasma

Link para o comentário

Compartilhar em outros sites

Guest - Neo -

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

Guest - Neo -

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades