Alessandro

Vamos ver se eu consigo ser mais claro... ....está dando o seguinte erro: Meu arquivo de conexão é esse aqui: <% Response.Buffer = True Dim strConexao sub abre_conexao set Conexao = Server.CreateObject("ADODB.Connection") strConexao = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("PortalMS.mdb") Conexao.Open strConexao end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> e estou chamando ele assim: Alguém sabe como posso trabalhar com essa conexão usando subpastas para organizar melhor meus arquivos....porque se eu deixar td em uma única pasta funciona.....mas aí vai virar uma salada....... valeu.....

Eu tentei colocar esta conexao mas deu erro: Tentei fechar as aspas mas depois dá erro também: Acontece o seguinte eu estou trabalhando com subpastas, portanto está mais ou menos assim: PortalMS (default.asp está aqui) PortalMS/files (conexao.asp está aqui) PortalMS/adm PortalMS/adm/at No default.asp eu chamo: <!--#include file="files/conexao.asp"--> Tem mais algum jeito de me ajudar galera ??? Desculpem o incômodo do chatão aqui..... Farô....

Eu coloquei a sessão sem usar o global.asa, mas agora deu outro problema....quando eu preciso do arquivo conexao.asp a página não pode ser exibida....... Eu usei esse tipo de conexão ele não está fazendo a consulta: <% Dim strConexao sub abre_conexao set Conexao = Server.CreateObject("ADODB.Connection") strConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\PortalMS\PortalMS.mdb" Conexao.Open strConexao end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> Nas páginas eu chamo o arquivo assim: <!--#include virtual="PortalMS/files/conexao.asp"--> Tem outra forma de fazer a conexao na web sem ser por pasta virtual ??? Localmente eu uso essa conexao aqui: strConexao = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\PortalMS\PortalMS.mdb" valeu galera

valeu cara......e eu pensava que o problema era outro..... E qual a solução para isso ??? Sou leigo no assunto, como você faria no meu caso para usar a Session ???

Boa tarde pessoal, olha eu aqui de novo.... Desta vez estou com um problema de Session, pois estou fazendo um teste no websamba e as sessões não funcionam... Localmente, em meu micro eu não tenho problema algum, mas quando "jogo no ar" não funciona e minhas variáveis vão todas vazias para o browser. Tem alguma configuração a fazer ??? Aqui vai meu arquivo global.asa: <script LANGUAGE="VBScript" RUNAT="Server"> Sub Session_OnStart Application.Lock Session("usu") = "visitante" Session("log") = "Login" Session("link") = "login.asp" Session("titulo") = "Login" Session("situacao") = "0" Application.UnLock End Sub Sub Session_OnEnd Session("usu") = "visitante" Session("log") = "Login" Session("link") = "login.asp" Session("titulo") = "Login" Session("situacao") = "0" Application.UnLock End sub </SCRIPT> A index.asp está no mesmo local que o global.asa, e o link p/ quem quiser ver é: http://www31.websamba.com/PortalMS/index.asp Me parece que o websamba está fora do ar por enquanto..... Se alguém souber o problema, postae.....Farô.....

Bareta....cara muito obrigado.......agora sim, conectou....ufa.... Desculpe pela demora na resposta...é que eu fiquei sem net por todo esse tempo...tive que formatar minha máquina.......me ajudou muito..... Um abraço.....Pode fechar Alessandro F. Silva

tinha esquecido de logar: Bom eu acho que fui meio confuso não é? ?!?! É o seguinte : minha string de conexão: url_conexao = Server.MapPath("si022u\Controle_Eletronica.mdb") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& url_conexao está dando este erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x850 Thread 0x30c DBC 0x1ba2bac Jet' do Registro. /si022u/bib_conexao.asp, line 10 essa é a linha 10: Conexao.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& url_conexao Alguém sabe o que pode ser isto, ou me dar uma dica de como conectar com o Access Driver via ODBC??? Farô

Olá pessoal, comecei agora no ASP e estou com uma dúvida neste código: <!--bib_conexao.asp--> <% sub abre_conexao url_conexao = Server.MapPath("si022u\Controle_Eletronica.mdb") Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& url_conexao end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> Está dando este erro aqui: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x850 Thread 0x30c DBC 0x1ba2bac Jet' do Registro. /si022u/bib_conexao.asp, line 10 essa é a linha 10: Conexao.Open = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& url_conexao Alguém sabe como arrumar isso ??? Estou usando o IIS do XP... Já tentei assim: <!--bib_conexao.asp--> <% sub abre_conexao Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DSN=si022u" end sub sub fecha_conexao Conexao.close Set Conexao = nothing end sub %> Mas deu este erro aqui: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /si022u/bib_conexao.asp, line 9 essa é a linha 9: Conexao.Open "DSN=si022u" Obrigado.....

Obrigado cara...me ajudou muito..... Abraços.....

Olá pessoal, tenho uma dúvida sobre o Interbase. Peguei um sistema para desenvolver que vai rodar no servidor e muitos usuários terão acesso. Com o Access eu sei como funciona isso, mas terei que utilizar um banco de dados livre. Já que tive passagem pelo Interbase, escolhi ele para ser o banco. Mas a dúvida é: Vou precisar ter o Interbase instalado no servidor para que a aplicação funcione ? Ou não, só o arquivo .gdb e mais nada ??? Já ouvi falar sobre o "Interbase Client", será que tem alguma relação com a minha dúvida ??? Se alguém souber me explicar como que o interbase funciona, por favor...estarão "quebrando o maior galho", pois por enquanto estou modelando no Access mesmo. E depois a lógica vai para o SQL puro mesmo. ------ Ah mais uma coisinha, o My-SQL é livre também não é? ?!?!? Onde encontrá-lo. Obrigado Att, Alessandro F. da Silva.

Esse é o cara..... ficou assim: lblContador.Caption := inttostr(DM.QueryConsultaOs.RecordCount); Valeu s3c Abraços....

DM.QueryConsultaOs.SQL.Add('SELECT * FROM tbOsCancelada WHERE codPartner = :codPartner AND data BETWEEN :data1 AND :data2 ORDER BY data'); DM.QueryConsultaOs.Parameters.ParamByName('codPartner').Value := cbCodPartner.Text; DM.QueryConsultaOs.Parameters.ParamByName('data1').Value := Edit1.Text; DM.QueryConsultaOs.Parameters.ParamByName('data2').Value := Edit2.Text; DM.QueryConsultaOs.Open; lblContador.Caption := ???????? Boa tarde galera, eu gostaria de saber como eu faço para exibir o nº de registros que aparem em um DBgrid em uma label. Tipo um contador. Tem aquele SELECT COUNT....mas como atribuí-lo ao objeto label ??? Obrigado....

Bom dia Galera, eu de abrir uma página em html direto do Delphi 6...será que alguém tem o código. Quando o usuário clicar no executável eu vou solicitar a abertura da página... Obrigado

Vou baixar....Esqueci de mensionar que eu utilizo o Java Editor.... Atendia as minhas necessidades.......eu coloco normalmente o ccaminho da bin, mas mesmo assim dá o erro......... Vou fazer um teste lá em casa, pois só tentei instalar aqui no trampo............volto com a resposta....... Abraços....

Bom dia galera, é meu primeiro post aqui....gostaria de saber se há alguma configuração a ser feita no windows XP para que rode o j2sdk....porque eu tinha no windows 98 e nunca deu problema.......agora que instalei o XP, meus códigos não compilam.......se tiver algum tópico aqui por favor me diga...... Obrigado......

Muito obrigado à todos galera.......valeu mesmo..... Demorei para responder por causa que fiquei sem net por um tempo...... Esse forum é show de bola....... podem fechar.... Abraços PS. Essa dica 132 do "800 dicas delphi" ajudou.....baixei esse programa....hehehehe

Boa Cara....deu certinho.....nem acredito que resolvi meu problema.......muito obrigado pela luz no fim do túnel..... Portanto ficou assim, fiz outro aplicativo que inicializa no "servidor", ele fica fazendo um update na tabela.... Como o felipe havia sugerido...... Felipe e Graymalkin........só mais uma coisinha......quando o aplicativo abre no "servidor", eu dei um Hide para não incomodar o usuário que mexer na máquina.......queria saber como posso fazer para que se caso o aplicativo for aberto e o mesmo já estiver aberto.....não efetuar a abertura ???? Para não acontecer de abrir duas vezes o aplicativo.......assim posso utilizar para outros sistemas também....... Do mais.....muito obrigado galera.......agora vamos estudar....minhas provas estão aí.....ai ai ai.....

Andei pesquisando e achei aqui mesmo na parte de VB.NET uma discussão sua Graymalkin com outro cara em relação ao Shell Execute...ele precisava rodar .AVI, ou coisa parecida..... Achei também esse link aqui : http://users.skynet.be/bk296578/Dro/Delphi...tm#_Toc24549114 Mas nem sei por onde começar, meu conhecimento em DELPHI é básicão... O problema é que não nada em Delphi, quando vocês citaram API, fui atras para saber o que era.......se entendi serve para trabalhar com o Windowns no caso do shellEcecute não é? ?!?!?! Qual a sugestão que vocês me dão, pois o sistema está pronto, e o único problema é esse, a do usuário poder mudar a data e hora burlando o controle....ou seja não servirá para nada... ------------------------------------------------- Gostei da sua sugestão Felipe......obrigado pela luz......mas neste caso fica inviável, pois se o programa não for inicializado por exemplo, haverá problemas........... Graymalkin...qualquer coisa, se você conseguir alguma coisa sobre como implementar o net time, falae.... WinExec('net time',sw_normal); Seria alguma coisa neste sentido ??? Obrigado galera......Abraços e bom serviço à todos....

Só mais uma coisinha.... Aqui na empresa eu tenho como colocar o executável na REDE......tem o G: aqui......mas mesmo assim ele continua pegando a data do usuário, sendo que os mesmo possuem somente atalhos.....como é que vocês fazem em seus programas ......quando roda em um servidor mesmo ???

Coloque dois objetos no Form: ADOQuery1 e DataSource1 * Na query, linke o ADOConnection na propriedade Connection. * No dataSource, like a Query. No evento onClick do botão coloque o seguinte código : ADOQuery1.close; ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Nome =:buscaNome LIKE ' + #39 + '%' + Edit1.Text + '%' + #39); ADO.Query1.SQL.Open; <!----------------------------ou usando parametros-------------------------> ADOQuery1.close; ADOQuery1.SQL.Add('SELECT * FROM Tabela WHERE Codigo =:buscaCodigo'); ADO.Query1.Parameters.ParamByName('buscaCodigo').Value := #39+'%'+Edit1.Text+'%'+#39; ADO.Query1.SQL.Open; Farô

Muito legal cara.....é isso mesmo que está acontecendo....o problema é que eu não faço idéia de como fazer um desses dois aí....você sabe como, onde eu posso conseguir essas funções ??? Iria me ajudar muito...... Desculpe-me pelo comodismo.....odéio isso.....mas estou desesperado..... Abraços....

Estou muito confuso em relação ao sistema de ponto que fiz e está quase pronto... O banco de dados e o executável vai ficar em uma máquina, e o pessoal que for utilizá-lo terá apenas o atalho....até aí td bem... O problema é que quando gravo a data e hora no banco de dados, o sistema captura da máquina de quem está usando atravez do atalho e não da máquina onde está o sistema. Alguém pode me dar um help em relação a isso, pois é essencial esse concerto...preciso fazer com que meu sistema capture a data e hora do servidor...idependente da data e hora que esteja nas outras máquinas. O Não tenho nem idéia de como fazer isso..... Estou utilizando DELPHI 6 e Access 2000.... Abraços..... Valeu.... PS. Se com a ajuda de vocês...eu não conseguir isso vai td por água abaixo......

Estou muito confuso em relação ao sistema de ponto que fiz e está quase pronto... O banco de dados e o executável vai ficar em uma máquina, e o pessoal que for utilizá-lo terá apenas o atalho....até aí td bem... O problema é que quando gravo a data e hora no banco de dados, o sistema captura da máquina de quem está usando atravez do atalho e não da máquina onde está o sistema. Alguém pode me dar um help em relação a isso, pois é essencial esse concerto...preciso fazer com que meu sistema capture a data e hora do servidor...idependente da data e hora que esteja nas outras máquinas. O Não tenho nem idéia de como fazer isso..... Estou utilizando DELPHI 6 e Access 2000.... Abraços..... Valeu.... PS. Se com a ajuda de vocês...eu não conseguir isso vai td por água abaixo......

Putz.....já tinha até deixado queto esta pergunta..... Programador.....valeu pela dica.....ele aparece no dbGrid de acordo com o que for especificado no DiisplayFormat....... Pode fechar

DELPHI 6 e ACCESS 2000. Olá pessoal, estou com o seguinte problema : Meu DBGrid está mostrando Data e Hora, mas no Banco de Dados só está gravado Hora. Vou ser mais claro. Tenho dua tabelas:Usuario, Controle Clique aqui para ver as duas tabelas Eu utilizo o seguinte código para gravar a saída de um usuário para almoço: DM.QueryControle.Close; DM.QueryControle.SQL.Clear; DM.QueryControle.SQL.Add('INSERT INTO Controle (Data, Chapa, HoraSaida) VALUES (:data,:chapa,:saida)'); DM.QueryControle.Parameters.ParamByName('data').Value:= v_data; DM.QueryControle.Parameters.ParamByName('chapa').Value:= v_chapa; DM.QueryControle.Parameters.ParamByName('saida').Value:= Hora; DM.QueryControle.ExecSQL; quando ele volta é feito um UPDATE DM.QueryControle.Close; DM.QueryControle.SQL.Clear; DM.QueryControle.SQL.Add('UPDATE Controle SET HoraVolta = :volta WHERE Data = :data AND Chapa = :chapa'); DM.QueryControle.Parameters.ParamByName('data').Value:= v_data; DM.QueryControle.Parameters.ParamByName('chapa').Value:= v_chapa; DM.QueryControle.Parameters.ParamByName('volta').Value:= Hora; DM.QueryConsulta.Edit; DM.QueryConsultaTotal.Value := (Hora - DM.QueryConsultaHoraSaida.Value); DM.QueryConsulta.Post; DM.QueryControle.ExecSQL; ------------------------------------------------------- Até aqui td bem, está gravando td certinho....só que quando eu estou dando um select para trazer dados das duas tabelas, o DBGrid está trazendo Data e Hora (19/11/2004 01:00:00) no campo Total onde eu só gravei Hora. Por que isso se no banco os registros estão todos certinhos...por exemplo 01:00:00. DM.QueryFP.Close; DM.QueryFP.SQL.Clear; DM.QueryFP.SQL.Add('SELECT U.Nome, C.* FROM Usuario U, Controle C WHERE U.Chapa = C.Chapa AND C.Data BETWEEN :data1 AND :data2 AND U.Chapa = :chapa'); DM.QueryFP.Parameters.ParamByName('chapa').Value := v_chapa; DM.QueryFP.Parameters.ParamByName('data1').Value := DateTimePicker1.DateTime; DM.QueryFP.Parameters.ParamByName('data2').Value := DateTimePicker2.DateTime; DM.QueryFP.Open; Já tentei td que é jeito mas não consegui sucesso..... No Access, eu Declarei op tipo da Variável Total como Data/Hora e seu formato como Hora Completa......Parece meio complexo mas não é..... Só preciso saber como faço para mostrar esse Total no DBGrid Formatado.... Clique aquo para ver como sai no DBGrid Se alguém poder me ajudar....desde já obrigado....