Ir para conteúdo
Fórum Script Brasil

daviddominio

Membros
  • Total de itens

    77
  • Registro em

  • Última visita

Tudo que daviddominio postou

  1. Olá, Estou desenvolvendo um sisteminha e preciso da ajuda de vocês 'uma ídeia'. Tenho uma página que busca informações de um banco de dados 'access', esta página mostra algumas informações que estão no banco. Queria fazer o seguinte, fazer um link para quando clicar abrir uma nova página com todas as informações. Alguém tem uma dica ai, de como posso fazer isto. falou
  2. que beleza.. kkk deu certo o htmlentities(), até tinha tentado usar ele antes, mais estava colocando ele na frente do odbc_result e não tava dando certo. Valeu Beraldo.
  3. Não sei se coloquei no lugar certo, mas não funcionou, onde ficaria esse código? tem algo mais que ser feito? Meu código é este abaixo. <? header('Content-Type: text/html; charset=iso-8859-1'); $con = odbc_connect("accessphp","","") or die("Erro na conexão com o Database"); $sql = odbc_exec($con,"SELECT projetos.*,patrocinadoras.*,equipe.*,pessoal.* FROM projetos,patrocinadoras,equipe,pessoal WHERE estado = 'Andamento' and patrocinadoras.codup=projetos.codup and projetos.sigpj=equipe.sigpj and equipe.gestor=true and equipe.matr=pessoal.matr"); $i=0; while(odbc_fetch_row($sql)) { $i++; echo '<table width="894" border="1" cellspacing="0" cellpadding="0">'; echo '<tr>'; echo '<td width="332"><font size="2" face="Arial, Helvetica, sans-serif">'; echo odbc_result ($sql,"projeto"); echo '&nbsp;</font></td>'; echo '<td width="250"><font size="2" face="Arial, Helvetica, sans-serif">'; echo odbc_result($sql,"estado"); echo '&nbsp;</font></td>'; echo '<td width="106"><font size="2" face="Arial, Helvetica, sans-serif">'; echo odbc_result($sql,"dtini"); echo '&nbsp;</font></td>'; echo '<td width="106"><font size="2" face="Arial, Helvetica, sans-serif">'; echo odbc_result($sql,"nome"); echo '&nbsp;</font></td>'; echo '<td width="100"><font size="2" face="Arial, Helvetica, sans-serif">'; echo odbc_result($sql,"sigup"); echo '&nbsp;</font></td>'; echo '</tr>'; echo '</table>'; echo "<br>"; } ?>
  4. Como que define o charset adequado? Tentei com outros comandos o utf8_encode() e o htmlentities(). Porém com o hedaer da o erro abaixo Fatal error: Call to undefined function: hedaer() in c:\arquivos de programas\easyphp1-8\www\access.php on line 28 echo odbc_result ($sql,hedaer("projeto")); echo '&nbsp;</font></td>'; Obs.: As informações no Banco estão perfeitas.
  5. Olá, Caros colegas, Estou montando uns relatórios em php+access, antes usava asp+access e não dava este problema, porém agora quando imprimo os dados da tabela se tiver qualquer caracter especial sai bagunçado. ex. Alguém sabe alguma forma de mostrar estes dados. Uso este modelo para conectar com o access. <? $con = odbc_connect("accessphp","","") or die("Erro na conexão com o Database"); $sql = odbc_exec($con,"SELECT projetos.*,patrocinadoras.*,equipe.*,pessoal.* FROM projetos,patrocinadoras,equipe,pessoal WHERE estado = 'Andamento' and patrocinadoras.codup=projetos.codup and projetos.sigpj=equipe.sigpj and equipe.gestor=true and equipe.matr=pessoal.matr"); $i=0; while(odbc_fetch_row($sql)) { $i++; echo odbc_result($sql,"projeto"); echo odbc_result($sql,"estado"); echo odbc_result($sql,"dtini"); echo odbc_result($sql,"nome"); echo odbc_result($sql,"sigup"); echo "<br>"; } ?>
  6. Definiporname seria a variável que faria o select da tabela. <% DEFINIPORNAME = "SELECT Projeto * FROM Projetos" %>
  7. Nenhuma das formas deu certo, dei uma reduzida no código para verificar se estava com erro, mais ainda continua dando erro na parte da conexão. Coloquei a parte da conexão na mesma página mais continua dando erro na linha abaixo. Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /tcu/Teste/temp.asp, line 27 RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%> Abaixo a Pagina Completa, Se puderem me ajudar, estou precisando muito deste código funcionando. <% @ LANGUAGE=VBSCRIPT %> <html> <head> <title>Acessando o Banco </title> </head> <body> <%Dim CN, DRV, RS, SQL, DEFINIPORNAME,x %> <% 'Cria a Conexão' Set CN = CreateObject("ADODB.CONNECTION") 'Cria o driver - Access OLEDB DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DRV = DRV & Server.MapPath("sgp.mdb") 'Cria a Instrução SQL' SQL = DEFINIPORNAME 'Cria o RecordSet' Set RS = Server.CreateObject("ADODB.Recordset") 'Abre a conexão' CN.Open DRV 'Abre o recordset RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%> <% DEFINIPORNAME = "SELECT Projeto * FROM Projetos" %> <% x=0 While (x<10) response.write RS("PROJETO") RS.movenext wend %> </body></html>
  8. Todos os campos existem, segue abaixo a pagina. <% 'Cria a Conexão' Set CN = CreateObject("ADODB.CONNECTION") 'Cria o driver - Access OLEDB DRV = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DRV = DRV & Server.MapPath("projetos\banco\sgp.mdb") 'Cria a Instrução SQL' SQL = DEFINIPORNAME 'Cria o RecordSet' Set RS = CreateObject("ADODB.RECORDSET") 'Abre a conexão' CN.Open DRV 'Abre o recordset RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic%>
  9. Olá Pessoal, Estou tentando exibir uma Tabela em ACCESS no ASP, no entando está dando um erro aqui, creio que seja no loop. Aguardo Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /tcu/anc/banco_abre_projetos.asp, line 19 <!--#include file="anc/banco_abre_projetos.asp"--> <%Dim CN, DRV, RS, SQL, DEFINIPORNAME %> <% DEFINIPORNAME = "SELECT Projeto, Dtini FROM Funcionários" %> </TABLE> </TD> <!--#include file="anc/banco_abre_projetos.asp"--> <%Do while RS.eof = false%> <table width="450" border="0" cellpading="1" cellspacing="1" height="50"> <tr> <td width="33" height="11"> </td> <td width="423" height="11"><FONT color=#46648c><B><%=RS("PROJETO")%></B><BR> </FONT> </td> </tr> </table> <% RS.MoveNext Loop %>
  10. Os campos existem seriam das tabelas abaixo <%=RSa("[Projetos.DTINI]")%> - <%=RSa("[Pessoal.NOME]")%> Eu acho que deve haver algo errado no select do nome "pessoal.nome", pois o seginte No arquivo que usava anteriormente o ITEM NOME VINHA DE equipes.NOME, quando estava assim ele verificava na mesma tabela o compo Gestor, se tive-sse marcado como sim ele seria o nome. Na nova tabela o Arquivo esta no seguinte relacionamento projetos ---->Equipe---> Pessoal. Onde a matricula dele esta em equipe, para depois fazer uma pesquisa em pessoal, encontrar a matricula e ai sim atribuir que é o valor. Da uma olhada em como está os relacionamentos e o nome dos campos abaixo. NA PAGINA projetos_links.asp NA PAGINA DE LINKS, FUNCIONA AS NOTÍCIAS DE CADA PROJETO, PORÉM JÁ TESTEI COM O BANCO ANTIGO E O SITE FUNCIONA SEM A PAGINA DE LINKS.
  11. Do select da pagina projetos2.asp postei ela um pouco acima.
  12. Creio que o problema deve ser nos select's do if abaixo. EU ACHO QUE O PROBLEMA DEVE ESTAR NESTES DETALHES DE "RIGHT JOIN", "INNER JOIN" E ETC. NO FINAL SEGUE O INCLUDE QUE BUSCA A VARIÁVEL RSa. banco_abre_protetosa.asp
  13. O erro basicamente está em todas as paginas que têm o select, creio eu que deve estar errado porque houve uma mudança nas tabelas. Tirando o parentese ele parou de dar o erro acima e agora da este erro na PAGINA PROJETOS.2 Tipo de erro: ADODB.Recordset (0x800A0CC1) O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado. /tcu/projetos/projetos2.asp, line 35 a linha 35 é esta abaixo. e a pagina é a projetos2.asp esta abaixo.
  14. Olá, Com relação ao (tabelas.*campo), o arquivo que usava anteriormente, funcionava perfeitamente com o access. Fiz algumas modificações aqui no select e a mudança acima porém esta dando o seguinte erro. Tipo de erro: Microsoft JET Database Engine (0x80040E14) Erro de sintaxe na operação JOIN. /tcu/anc/banco_abre_projetos.asp, line 19 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322) Página: POST 15 bytes to /tcu/projetos.asp POST Data: projeto=SEGEDAM Creio que o problema esteja no if abaixo. If Request.form("PROJETO") = "ANDAMENTO" OR Request.form("PROJETO")= "ENCERRADO" OR Request.form("PROJETO") = "SUSPENSO" OR Request.form("PROJETO") = "EXTINTO" then DEFINIPORNAME = "SELECT DISTINCTROW Patrocinadoras.SIGUP" &_ " FROM Patrocinadoras RIGHT JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_ " where Estado='" &RTrim(Request.form("PROJETO"))& "' ORDER BY SIGUP" %> <!--#Include file = "projetos/projetos2.asp"--> <% else DEFINIPORNAME = "SELECT Projetos.PROJETO, Patrocinadoras.SIGUP, Projetos.ESTADO" &_ " FROM (Patrocinadoras INNER JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_ " Where SIGUP = '" &Request.form("PROJETO")& "'" &_ " Order By Patrocinadoras.SIGUP, Projetos.ESTADO;" %> <!--#Include file = "projetos/projetos3.asp"--> <% End If %>
  15. é esta a pagina, é a mesma da que postei no inicio. banco_abre_projetosb.asp <% 'Cria a Conexão' Set CNb = CreateObject("ADODB.CONNECTION") 'Cria o driver - Access OLEDB DRVb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DRVb = DRVb & Server.MapPath("projetos\banco\SGP.mdb") 'Cria a Instrução SQL' SQLb = DEFINIPORNAME3 'Cria o RecordSet' Set RSb = CreateObject("ADODB.RECORDSET") 'Abre a conexão' CNb.Open DRVb 'Abre o recordset RSb.Open SQLb,CNb,adOpenForwardOnly,adLockOptimistic %>
  16. A Pagina é esta. <%@ Language=VBScript %> <%Option Explicit 'Tira o CASH' Response.Expires=0 Dim Tamanho Tamanho = 767 %> <!--#Include file = "anc/adovbs.inc"--> <HTML><HEAD> <TITLE>Gestão de Projetos</TITLE> <link title=charte_style href="anc/estilo.css" type="text/CSS" rel="StyleSheet"> &lt;script language=JAVASCRIPT src="anc/menu_array.js"></script> &lt;script language=JAVASCRIPT src="anc/mmenu.js"></script> </HEAD> <BODY bgColor=#ffffff leftmargin="0" topMargin="5" marginwidth="0" marginheight="0"> <!--#Include file = "anc/banco_dinamico.asp"--> <TABLE width="<%=Tamanho%>" border=0 cellPadding=0 cellSpacing=0 background="img/bg.gif" align="center"> <TBODY> <TR> <TD align=left vAlign=middle><img src="img/logo_seplan.gif"></TD> </TR> <TR> <TD width="10" align=left vAlign=top>&lt;script>logo();</script></TD> </TR> </TBODY> </TABLE> <table width="<%=Tamanho%>" border="0" cellpadding="0" cellspacing="0" background="img/change_metalbar.gif" align="center"> <tr> <td><img src="img/spacer.gif" width="1" height="5"></td> </tr> </table> <!--#Include file = "anc/display_menu2.asp"--> <TABLE cellSpacing=0 cellPadding=0 width=<%=Tamanho%> border=0 align="center"> <TBODY> <TR> <TD><IMG height=1 alt="" src="img/spacer.gif" width=180 border=0></TD> <TD><IMG height=1 alt="" src="img/spacer.gif" width=568 border=0></TD> </TR> <TR> <TD vAlign=top> <!--#Include file = "anc/display_gestao.asp"--> <BR> <% If Session("NMUSUARIO") <> "" Then%> <!--#Include file = "anc/display_login.asp"--> <% End If %> </TD> <TD align="left" vAlign=top> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 bgColor=#DDDDDD> <TBODY> <TR> <TD width=1 rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> <TD width="30" bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> <TD height=1 bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> <TD width=1 rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> </TR> <TR> <TD width="30"><IMG height=1 src="img/spacer.gif" width=1></TD> <TD height=15><IMG height=1 src="img/spacer.gif" width=1><FONT color=#46648c><B><font color="#000000">Projetos - <%if Request.form("PROJETO")="ANDAMENTO" THEN%> Andamento <%elseIf Request.form("PROJETO")="ENCERRADO" or Request.form("PROJETO")="SUSPENSO" or Request.form("PROJETO")="EXTINTO" then%> <%=Request.Form("PROJETO")%>S <%else%> <%=Request.Form("PROJETO")%> <%END IF%> </font></B></FONT></TD> </TR> <TR> <TD width="30" bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> <TD bgColor=#697CB4 height=1><IMG height=1 src="img/spacer.gif" width=1></TD> </TR> </TBODY> </TABLE> <TABLE width="100%" height="410" border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#DDDDDD> <TBODY> <TR> <TD width=1 height="10" rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> <TD width="10" height="10" rowspan="3" bgcolor="#FFFFFF"><IMG height=1 src="img/spacer.gif" width=1></TD> <TD width="534" height="30" valign="middle" bgcolor="#FFFFFF"><IMG height=1 src="img/spacer.gif" width=1></TD> <TD width="22" height=10 rowspan="2" valign="top" bgcolor="#eeeeee"><IMG height=44 hspace=5 src="img/icn_projeto.jpg" width=63 align=left vspace=5 border=0></TD> <TD width=1 height="10" rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif" width=1></TD> </TR> <TR> <TD rowspan="2" valign="top" bgcolor="#FFFFFF"> <%Dim CN, CNb, DRV, DRVb, RS, RSb, SQL, SQLb, DEFINIPORNAME,DEFINIPORNAME2, DEFINIPORNAME3, NOMEDEPROJETO, CNa, DRVa, RSa, SQLa, BANCO, DIR DIR = "../Projetos_do_TCU\" If Request.form("PROJETO") = "ANDAMENTO" OR Request.form("PROJETO")= "ENCERRADO" OR Request.form("PROJETO") = "SUSPENSO" OR Request.form("PROJETO") = "EXTINTO" then DEFINIPORNAME = "SELECT DISTINCTROW Patrocinadoras.SIGUP" &_ " FROM Patrocinadoras RIGHT JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_ " where Estado='" &RTrim(Request.form("PROJETO"))& "' ORDER BY SIGUP" %> <!--#Include file = "projetos/projetos2.asp"--> <% else DEFINIPORNAME = "SELECT Projetos.PROJETO, Patrocinadoras.SIGUP, Projetos.ESTADO" &_ " FROM Patrocinadoras INNER JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_ " Where SIGUP = '" &Request.form("PROJETO")& "'" &_ " Order By Patrocinadoras.SIGUP, Projetos.ESTADO;" %> <!--#Include file = "projetos/projetos3.asp"--> <% End If %> <!--#Include file = "anc/projetos_seleciona_dir.asp"--> &lt;script language="JavaScript"> function GetProject(uops){ if (uops.style.display==''){ uops.style.display='none' /** uops.bgColor='#EEEEEE'; **/} else uops.style.display='' } </script> </TABLE></TD> <HR size="1" color="#CCCCCC"> </TR> </TBODY> </TABLE> <TABLE width=<%=Tamanho%> border=0 cellPadding=0 cellSpacing=0 align="center"> <TBODY> <TR> <TD colSpan=3 align="right" valign="top"> <IMG src="img/bottom_bar.gif" width=<%=Tamanho%> height=13 hspace="2" vspace="2" border=0> </TD> </TR> <TR> <TD align=right colSpan=3> &lt;script>creditos();</script> </TD> </TR> </TBODY> </TABLE> </BODY></HTML>
  17. Olá Pessoal, Estou atualizando o banco de dados do access de um antigo, para um mais atualizado, para isto somente mudei o nome do arquivo, porém esta dando o erro abaixo que não estou conseguindo resolver. Obs.: As tabelas continuam com o mesmo nome. Desde já agradeço. Tipo de erro: Microsoft JET Database Engine (0x80004005) O campo especificado 'PROJETO' pode se referir a mais de uma tabela relacionada na cláusula FROM da instrução SQL. /tcu/anc/banco_abre_projetosb.asp, line 19 <% 'Cria a Conexão' Set CNb = CreateObject("ADODB.CONNECTION") 'Cria o driver - Access OLEDB DRVb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" DRVb = DRVb & Server.MapPath("projetos\banco\SGP.mdb") 'Cria a Instrução SQL' SQLb = DEFINIPORNAME3 'Cria o RecordSet' Set RSb = CreateObject("ADODB.RECORDSET") 'Abre a conexão' CNb.Open DRVb 'Abre o recordset LINHA 19----->>>> RSb.Open SQLb,CNb,adOpenForwardOnly,adLockOptimistic %>
  18. Olá, Pessoal, To tentando criar um programa em java para ler, escrever e criar um novo arquivo. O criar arquivo estou conseguindo, mais escrever já tentei mais creio que há algo errado que não consegui decifrar. o código segue abaixo. desde já agradeço. Abraços.. import java.io.BufferedWriter; import java.io.FileWriter; import javax.swing.*; import java.awt.*; import java.awt.event.*; import java.io.File; import java.io.IOException; public class CriarArquivoJanela extends JFrame { JTextField texto1,texto2; JButton butCriar,butSair,butLer,butEscrever; ManipulaEvento evento = null; public static void main(String args[]) { CriarArquivoJanela arquivo = new CriarArquivoJanela(); arquivo.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE); } public CriarArquivoJanela() { super("Manipular Arquivos"); Container container = getContentPane(); container.setLayout(new FlowLayout()); texto1 = new JTextField("C:/",10); container.add(texto1); texto2 = new JTextField("Escreva No Arquivo",50); container.add(texto2); butCriar = new JButton ("Criar Arquivo"); container.add(butCriar); butEscrever = new JButton ("Escrever Arquivo"); container.add(butEscrever); butLer = new JButton ("Ler Arquivo"); container.add(butLer); butSair = new JButton("Sair"); container.add(butSair); evento = new ManipulaEvento(); texto1.addActionListener(evento); butCriar.addActionListener(evento); butSair.addActionListener(evento); setSize(600,600); setVisible(true); } private class ManipulaEvento implements ActionListener { public void actionPerformed(ActionEvent e) { if(e.getSource()== butCriar) { criarArquivo(texto1.getText()); } if(e.getSource()==butEscrever) { escreverArquivo(texto2.getText()); } if(e.getSource()==butSair) { System.exit(0); } JOptionPane.showMessageDialog(null,"Arquvio criado com sucesso"); } } public boolean criarArquivo(String nomeArquivo){ boolean sucess = true; try{ File file= new File(nomeArquivo); sucess= file.createNewFile(); }catch(IOException e){ e.printStackTrace(); } return sucess; } public void escreverArquivo(String nomeArquivo){ void sucess = false; try { BufferedWriter file = new BufferedWriter (new FileWriter(nomeArquivo)); sucess= file.write(texto2.getText()); file.close(); } catch (IOException e) { System.out.println("Pane no Sistema"); } return sucess; } }
  19. Muito boa... Cara deu tudo certo. Valeu
  20. Olá, Pessoal, Estou precisando de um help, to fazendo um sistema de calculo de raizes de equações, e preciso definir uma função, porém não conheço muito sobre funções e não to conseguindo, segue abaixo o código para conferir o que está errado. obs.: a função tem que pegar as variáveis que foram lidas, a unica que vai ser modificado é o xx. tem como fazer isto?? abraços #include <stdio.h> #include <conio.c> #include<math.h> float equacao(int xx){ xx=(a*pow(xx,5))+(b*pow(xx,4))+(c*pow(xx,3))+(d*pow(xx,2))+(e*xx)+(f); return(xx); } int main(){ static int a,b,c,d,e,f,x,xx; static float y,a1,a2,att; printf ("Equação %f",media(2,4)); printf ("Digite os valores da equação abaixo\n"); printf ("\naX^5: "); scanf("%d",&a); printf ("\nbX^4: "); scanf("%d",&b); printf ("\ncX^3: "); scanf("%d",&c); printf ("\ndX^2: "); scanf("%d",&d); printf ("\neX: "); scanf("%d",&e); printf ("\nf: "); scanf("%d",&f); for (x=-50; x<=50;x+=1){ a1=y; y=equacao(x); a2=y; att=(a1*a2); if (att<0 || a2==0) printf ("\nA Raiz está entre %d e %d\n",x-1,x); } getch(); return 0; }
  21. Já verifiquei estes itens, mais nada de diferente, aparentemente esta tudo normal, não tem nenhum conflito, eu acho que talvez tenha que desabilitar o mouse que funciona no meio do teclado.
  22. OLÁ PESSOAL, MOUSE É UMA COISA MUITO FÁCIL DE SE INSTALAR, MAIS ESTE MEU NOTEBOOK TA ME MATANDO. ESTOU COM UM NOTEBOOK TOSHIBA MODELO 2100CDS. É UM K6-2 400MHZ. ELE SÓ TINHA O MOUSE DELE, AQUELE QUE FICA NO MEIO DO TECLADO E É MUITO CHATO, RESOLVI COLOCAR UM MOUSE SERIAL NELE. PORÉM COLOCO O MOUSE SERIAL E NADA DE FUNCIONAR, JÁ COLOQUEI, JÁ REINICIEI, JÁ TENTEI INSTALAR MANUALMENTE O MOUSE SERIAL, PORÉM NADA DA CERTO, ALQUEM PODE ME AJUDAR??? OBS.: JÁ TESTEI O MOUSE EM OUTRO COMPUTADOR E FUNCIONOU PERFEITAMENTE.
  23. Pessoal, é isto mesmo, é o nome da variável. bem fácil essa, valeu pelo apoio.
  24. To usando o EasyPhp Versão 1.8. talvez creio que pode ser na configuração do php.ini, pesquisei na internet e algum desses erros eram por causa da linha register_globals = off que teria que ser mudada para register_globals = on. fiz isso mais de nada adiantou.
×
×
  • Criar Novo...