Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

speedoli

Conexao com banco de dados

Recommended Posts

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"><!--function mostra(item){if (item.style.display=='none'){item.style.display='';}else{item.style.display='none'}}--></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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.