Conexao com banco de dados

speedoli · Junho 17, 2005

Estou tentando criar um geito de usar menu arvore com exibição de dados de duas tabelas onde com o id de uma posso selecionar os dados da segundo criei algo desse geito:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><html><head><title>TESTE</title><script language="javascript"></script></head><body><%SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")CONEXAO.OPEN ("DBQ=" & Server.MapPath("teste.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}")x = 1%><table width="600" border="0" cellpadding="0" cellspacing="0"> <% SET TESTE = SERVER.CREATEOBJECT("ADODB.RECORDSET") TESTE.OPEN "SELECT id, item1, item2, item3 FROM tab1 WHERE id_tab1 = TESTE.FIELDS("id").VALUE", CONEXAO, 3, 3 WHILE NOT TESTE.EOF %> <tr> <td width="9" height="19" valign="middle"><span id="menu<%=x%>" onMouseUp="mostra(menu1principal<%=x%>)"><img src="max.jpg" width="9" height="9" id="menu1img" valign="bottom"></span></td> <td width="3" valign="top"><img src="" width="3" height="3" border="0"></td> <td valign="middle" align="center"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>"><img src="botao_salvar.gif" width="14" height="14" border="0" alt="Salvar"></a><img src="" width="3" height="3"><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>"><img src="botao_adicionar.gif" width="16" height="16" border="0" alt="Cancelar"></a><% ELSE %><a href="<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME")%>?editar=<%=TESTE.FIELDS("id").VALUE%>"><img src="botao_editar.gif" width="16" height="16" border="0" alt="Editar"></a><% END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3" border="0"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item1" value="<%=TESTE.FIELDS("item1").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item1").VALUE) END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item2" value="<%=TESTE.FIELDS("item2").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item2").VALUE) END IF %></td> <td width="3" valign="top"><img src="" width="3" height="3"></td> <td valign="top"><% IF REQUEST.QUERYSTRING("editar") = CSTR(TESTE.FIELDS("id").VALUE) THEN %><input type="text" name="item3" value="<%=TESTE.FIELDS("item3").VALUE%>"><% ELSE RESPONSE.WRITE(TESTE.FIELDS("item3").VALUE) END IF %></td> </tr> <tr id="menu1principal<%=x%>" style="display:'none'"> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td><img src="" width="3" height="3" border="0"></td> <td width="100%" colspan="5"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <% SET TESTE_SUB = SERVER.CREATEOBJECT("ADODB.RECORDSET") TESTE_SUB.OPEN "SELECT sub_tab1,sub_tab2,sub_tab3 FROM tab2", CONEXAO, 3, 3 WHILE NOT TESTE_SUB.EOF %> <tr> <td valign="top"><%=TESTE_SUB.FIELDS("sub_tab1").VALUE%></td> <td width="3"><img src="" width="3" height="3" border="0"></td> <td><%=TESTE_SUB.FIELDS("sub_tab2").VALUE%></td> <td width="3"><img src="" width="3" height="3" border="0"></td> <td><%=TESTE_SUB.FIELDS("sub_tab3").VALUE%></td> </tr> <% TESTE_SUB.MOVENEXT WEND%> </table></td> </tr> <tr> <td height="3" colspan="7" valign="top"><img src="" width="3" height="3" border="0"></td> </tr> <% x = x + 1 TESTE.MOVENEXT WEND %></table></body></html><%TESTE.CLOSECONEXAO.CLOSESET TESTE = NOTHINGSET CONEXAO = NOTHING%>bom, não funga a segunda seleção mas acho que vocês perceberão mais ou menos o que estou querendo fazer, a unica diferença é que não precisarei carregar a página para exibir os dados filhos pois na primeira vez que eu carregar a página ele também carregará os dados da segunda tabela junto.

Marcelo Barcellos · Junho 17, 2005

<% SET TESTE = SERVER.CREATEOBJECT("ADODB.RECORDSET")TESTE.OPEN "SELECT id, item1, item2, item3 FROM tab1 WHERE id_tab1 = TESTE.FIELDS("id").VALUE", CONEXAO, 3, 3

Cara, aqui você misturou Abacaxi com Laranja.

Você nem abriu o recorset Teste e já está apontando para a coleção fields dele....

Mas, eu tenho diversos menus, você deverá fazer apenas um "Select" e dentro do recordset conseguir saber qual é o Menu e qual é o submenu.

E se estiver dando algum erro posta para a gente ver

speedoli · Junho 20, 2005

eu vi o que fiz de errado mas depois vou testar, eu troquei a condição tem que ser no segundo select onde o id do primeiro tem que bater com o sub dos segundo mas se não der certo eu posto novamente

Entrar

Arquivado

Conexao com banco de dados

Recommended Posts

speedoli 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcelo Barcellos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

speedoli 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

select com varias categorias por horario

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante