Fábio freitas

Membros
  • Content Count

    67
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Fábio freitas

  • Birthday 06/02/1979

Contatos

  • Website URL
    http://
  • ICQ
    0
  1. Olá Graymalkin. Primeiramente obrigado. O exemplo citado ele pega o endereço mac do servidor e não da máquina que está acessando. Sabe como pegar o endereço da máquina que acessa? Um abraço Fábio Santos
  2. Olá Andersonjb, Primeiramente obrigado, não estou conseguindo pegar as dimensões, você tem algum exemplo. Desde já agradeço Fábio Santos
  3. Fábio freitas

    Upload De Imagens

    Olá Amigos, Alguém sabe aonde posso encontrar exemplo em vb de upload de imagens, pois fazer o upload do arquivo está tranquilo, mas eu gostaria de filtrar alguns casos: Extensão : Somente gif e jpg Tamanho : Kb Dimensão : X por Y Desde já agradeço Fábio Santos
  4. Fábio freitas

    Mac Address

    Olá Amigos, Gostaria de saber como em vb poderia pegar as informações da placa, que segundo andei lendo não se repete, li também algo sobre Mac Address, existe alguma maneira de pegar esta informação da máquina que está acessando o aplicativo. Desde já agradeço Fábio Santos
  5. Olá Renato fiz assim: <script language="javascript"> <!-- var shell; function SetPrintProperties() { shell = new ActiveXObject('WScript.Shell'); shell.SendKeys('%fu'); window.setTimeout('java script:SetPaperSize();', 1200); window.setTimeout('java script:shell.setLandScape();', 2000); } function SetPaperSize() { shell.sendKeys('%a{TAB}.2{TAB}0{TAB}0{TAB}0{ENTER}'); } function setLandScape() { shell.sendKeys('%fu'); window.print(); } //--> </script> E inseri um botão e no evento onclick = coloquei "setlandscape();" Não sei se está certo, gostaria que a página abrisse ou fosse impressão em paisagem sem o usuário precisar alterar nas propriedades
  6. Olá Renato, Primeiramente obrigado, Esse código está certo? É assim mesmo shell.SendKeys('%fu'); e depois shell.sendKeys('%fp'); Pois não aconteceu o esperado. Um abraço Fábio Santos
  7. Olá Amigos, Alguém tem algum exemplo que realmente funcione a impressão em landscape, pois fiz algumas pesquisas, mas nunca obtive um resposta satisfatória. Desde já agradeço, Fábio Santos
  8. Olá, Estou com um serio problema, que acho que só poderia ser resolvido por uma função. Tenho um botão que chama uma janela MODAL, que esta ali para que seja feita uma inclusão ou alteração no meu banco de dados, mas preciso dar um refresh na tela que esta atras ao fechar a janela MODAL. Com pop-up até já consegui, mas com MODAL não. Desde já agradeço a atenção. Fábio Freitas.
  9. Fábio freitas

    Conexão

    Segue abaixo código completo, abrigado pela ajuda Um abraço Fábio Freitas <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Conectar</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .estilo { text-decoration: blink; font-family: Verdana; font-size: 9cm; font-style: normal; color: #000099; } .estilo a:link { font-weight: normal; color: #000099; text-decoration: blink; font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-style: normal; } .estilo a:visited { font-weight: normal; color: #000099; text-decoration: none} .estilo a:hover { font-weight: normal; color: #0099FF; text-decoration: none} .estilo a:active { font-weight: normal; color: #000099; text-decoration: none} --> </style> <body> <% Caminho = Server.MapPath("noticias.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) If Err.Number<>0 Then Response.Write(Err.Description) Else Response.Write("Conexão está OK") End If %> </body> </html> EDITADO: Utilize as Tags CODE ou QUOTE quando for postar códigos
  10. Fábio freitas

    Conexão

    ESTÃO TODOS AI A LINHA 33 É Conn.Open(strConn)
  11. Fábio freitas

    Conexão

    Agradeço a todos os amigos que estao me ajudando, com ela consegui me conectar ao banco de dados, porém quando fui fazer a página de inclusão, a de consulta ~passou a não funcionar, ficarei grato por uma nova ajuda. Abaixo o código e o erro: <-- CONSULTAR DADOS --> <% Caminho = Server.MapPath("noticias.mdb") strConn = "Provider = Microsoft.jet.oledb.4.0; Data Source=" & Caminho Set Conn = Server.CreateObject("adodb.connection") Conn.Open(strConn) If Err.Number<>0 Then Response.Write(Err.Description) Else Response.Write("Conexão está OK") End If %> <--ERRO --> <-- INCLUIR DADOS --> PODE ESTA HAVENDO ALGUM CONFLITO DESDE JÁ AGRADEÇO Editado: Utilize as Tags Disponíveis para formatar seus textos.
  12. Fábio freitas

    Inserir Dados

    Olá Amigos, Estou como uma pequena dúvida, será que alguém pode me salvar? Abaixo está o código, aonde: Nome do banco = noticias.mdb tabela = news campos da tabela = chamada,noticia e link Aparece o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Field 'news.chamada' cannot be a zero-length string. /fabiofreitas/inserir.asp, line 41 Ficarei grato pela ajuda.. <% set db = server.CreateObject("ADODB.connection") dim caminho caminho = server.MapPath("noticias.mdb") db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho chamada = request.form("chamada") noticia = request.form("noticia") link = request.Form("link") sql = "INSERT INTO news (chamada, noticia, link)" sql = sql & "VALUES" sql = sql & " ('"& chamada &"', '" & noticia &"', '"& link &"')" set rs = db.execute(sql) response.redirect "conecta_noticias.asp" rs.close db.close set rs = nothing set db = nothing %> <form action="conecta_noticias.asp" method="post" name="dados" id="dados" > <table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte"> <tr > <td colspan="2">&nbsp;</td> </tr> <tr > <td colspan="2"><div align="center"><strong>Inserir Noticias</strong></div></td> </tr> <tr> <td width="6%" height="31" ><font size="-1" face="Arial, Helvetica, sans-serif">Chamada :</font></td> <td width="88%" ><font size="2" face="Arial, Helvetica, sans-serif"> <input name="chamada" type="text" class="input2" id="chamada" size="40"> </font></td> </tr> <tr> <td height="185" valign="top" >Noticia:</td> <td ><p> <textarea name="noticia" cols="70" rows="10" id="textarea" class="input2" ></textarea> <font size="-1" face="Arial, Helvetica, sans-serif"> </font></p></td> </tr> <tr> <td > <div align="right"></div> <div align="left">Link:</div></td> <td ><input name="link" type="text" class="input2" id="resumo2" size="100"></td> </tr> <tr align="left" valign="top" > <td colspan="2"> <p align="center">pp</p></td> </tr> <tr> <td colspan="2" > <div align="center">7p 77</div> <div align="center"> <input type="submit" name="Submit" value="Enviar"> <input type="reset" name="Submit2" value="Limpar"> 7</div> </td> </tr> </table> </form>
  13. Fábio freitas

    Conexão

    Estou tentando me conectar com um banco de dados, porém estou começando com esse negócio, gostaria que alguém me ajudasse, abaixo algumas informações: nome do banco de dados = noticias.mdb nome da tabela = news sem DSN Dentro da tabela tem dois campos: numero e noticia Gostaria de apresentar na página estas informações. Bom espero que eu tenha sido claro. Desde já agradeço Fábio Freitas <% Option Explicit Dim objConect, objRst Set objConect = Server.CreateObject("ADODB.Connection") objConect.Provider="Microsoft.Jet.Oledb.4.0" objConect.ConnectionString=Server.MapPath("noticias.mdb") objConect.Open Set objRst = Server.CreateObject("ADODB.RecordSet") objRst.Open "SELECT news FROM SysObjects WHERE XType='S'", objConect, 1, 3 With Response .Write "<p>" .Write "<font face=verdana size=2><b>" .Write "Tabelas Criadas pelo Usuário" .Write "</b></font><p>" End With Do While Not objRst.EOF With Response .Write "<font face=verdana size=1>" .Write "<li>" & objRst("news") & "</li>" .Write "</font>" End With objRst.MoveNext Loop Set objRst = Nothing Set objConect = Nothing %>
  14. Ola Amigos, Bom estou trabalhando com o inno setup e consigo criar o programa porém ele fica muito grande. Teria como extrair um arquivo exe, mas que não apareça aquela tela do DOS, que seja extraido automático, caso alguém saiba com faze-lo, agradeceria a ajuda, Um abraço Fábio Freitas
  15. lembrando seria um menu pop-up que o menu fica na frane superior e o conteudo será aberto dentro da frame inferior.