danielrgoes

Bom dia pessoal Eu tenho um campo CNPJ no meu banco de dados que estao com os dados corridos ou seja 99999999999999 eu gostaria de colocar uma mascara nele para aparecer certo no DBgrid porem quando eu coloco no editmask assim 99.999.999/9999-99 só aparece os dois primeiros numeros alguém tem alguma ideia pra mim

Bom dia pessoal eu tenho uma duvida hj eu uso o delphi com o banco de dados firebird 1.5 mais agora eu preciso fazer um aplicaçao que acesse o banco de dados mais que não seja necessario instala - lo na maquina pois os usuarios iram carregar em diversos cliente ou seja irei colocar o exe e o banco e um cd e eles iram utilizar em diversos locais existe algum banco de dados compativel com o delphi que faça isso pois o firebird necessita da instalaçao abraços

Cara isso realmente é um problema na minha aplicaçao mais isso eu já faço deixo sempre como false nesse caso não é isso =(

Jhonas Eu achava que não era isso porem recriei ele e mesmo assim nada pois se eu comentar essa linha ele vai ate na criaçao do proximo form que tenha QR aieu comento ele e para na proxima quetem QR eu acredito que seja algo com o QuickReport porem não estou conseguindo identificar o que é pois tem maquinas que fuincionam ai eu comentei todas e entrou no programa mais ao acionar o botao imprimir que chama o form try Frmimparquivos := Tfrmimparquivos.Create(Application); Frmimparquivos.qr_imparquivos.Preview finally FreeandNil(frmimparquivos); end Porem da o seguinte erro Access violatioat address 00448EA9 in mudulo projeto.exe read of address 000000028 mais nas maquinas que estavam funcionando sem comentar abri normalmente abraços

Depois de procurar e alguns teste descobri como faz modulo.cds_itemDATA.clear

Eu tenho um campo data no meu banco de dados firebird 1.5 e um cds ligado nele modulo.cds_itemDATA.value como eu faço para atribuir um valor nulo para ele eue tentei modulo.cds_itemDATA.value := null mais não funciona

No View Code é o proprio delphi que cria ele eu so coloquei os ShowMessage para ver aonde da erro

Jhona não tem nada em nenhum dos dois eventos

Antes de mais nada gostaria de agradecer muito ao Jhonas pela a força consegui reslver meu problema ai vai a soluçao coloquei i exe na maquina acessando remoto o banco porem não fuincionava não aconseguia abrir as tabelas quando tinha mais de 10 pessoas acessando o servidor (vista) tive que registra as 2 dlls do fire bird midas.dll e expint.dll ai resolveu meu problema abraço a todos

Bom dia pessoal Estou precisando finalizar contar quantas sessoes estao abertas do windows e fechar uma quando atingir o numero 9 na seria processo e sim sessao quando um usuario acessa a maquina se a gente for em clicar com o botao direito do mouse em meu computador -> gerenciar -> compartilhamento -> Sessao vamos ver ela presa lá gostaria de saber se tem como fechala no delphi abraços

Jhonas tentei todas as dicas citadas mais nenhuma funcionou Pois fiz bastantes pesquisar e não tem jeito mesmo o limite é 10 usuarios potem o que eu não entendo é que eu entro e conecto no banco modulo.conexao.open; depois que faço a pesquisa que eu quero eu fecho modulo.conexao.close; porem mesmo o exe estando na maquina local não fecha a sessao no servidor se eu clicar com o botao direito no meu computador e for em gerenciar a sessao vai ta presa lá porque sera abraços

eu copiei lá sim Jhonas e deu esse erro

fui seguindo os passos certinhos porem não existe a opçao que manda eu entrar no windows (a que esta em negrito) 1. Clique em Iniciar , aponte para programas , aponte para Ferramentas administrativas e, em seguida, clique em Diretiva de segurança local . Observação Se você não pode executar essa etapa porque Ferramentas administrativas não aparecem na lista de programas , clique em Iniciar , aponte para configurações , aponte para Painel de controle , clique duas vezes em Ferramentas administrativas e clique em Diretiva de segurança local . Observação No Windows XP, a subchave RestrictAnonymous pode ter um valor de 0 ou 1. Um valor de 1 restringe conexões de sessão nula no Windows XP. Para regulamentação da enumeração de contas SAM, a seguinte subchave do registro novo foi adicionada: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\restrictanonymoussam A diretiva é configurável por meio de configurações de segurança local em segurança Settings\Local Policies\Security Options\Network acesso: não permitir enumeração anônima de contas . 2. Em Configurações de segurança , clique duas vezes em Diretivas locais e clique em Opções de segurança . 3. Clique duas vezes em restrições adicionais para conexões anônimas e em configuração de diretiva local: , clique em não acessar sem permissões anônimas explícitas . 4. Reinicie o computador.

a dll midas.dll geristrou certo mais a dbexpint.dll deu o erro abaixo dbexpint.dll was loaded but the DllRegisterServer entry point was not fond DllRegistterServer may not be exported or a corrupt version of dbexpint.dll may be in memory. Consider using Pview to detect and remove it

elas estao sim -dbexpint.dll -dbxadapter.dll -dbxadapter30.dll -dbxconnections.ini -dbxdrivers.ini -dbxint.dll -dbxint30.dll -dbxmys.dll -midas.dll todas essas e mesmo assim não acessa se eu for no iniciar -> executar -> \\Servidor o windows fala que o numemoro maximo de conexoes foi atingida e não deixa eu acessar

eu acesso pelo arquivo .ini ele esta assim [iBConnection] DriverName=Interbase Database=192.6.1.110:C:\SistDelphi\Perfil\Banco\PERFIL.FDB RoleName=RoleName User_Name=SYSDBA Password=rootcpd ServerCharSet= SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True Interbase TransIsolation=ReadCommited Trim Char=False sendo que o Ip é o Ip do meu servidor

Não funcionou Jhona coloquei o executavel na estaçao e tentei acessar o banco remoto não consegue abrir o banco de dados

Rede Interna Jhonas

Boa Tarde pessoal Eu tenho um sistema desenvolvido em delphi 2007 com banco de dados Firebird 1.5 o exe dele fica local e acessa o banco remoto em um windows Vista porem preciso trocar o banco para um SO W98 mais ai não consegue estabelecer a conexao com o banco tem algum macete para funcionar o firebird no win98 obrigado

Boa Tarde pessoal Estou o seguinte problema eu tenho um sistema que acessa remoto o banco de dados FireBird 1.5 que ta em uma maquina SO Vista porem esse sistema é acessado por variso usuarios quando o SO atinge o max de conexoes remotas que são 10 ele não acessa mais o banco alguém tem alguma soluçao pra mim abraços

Jhonas o meu problema esta o seguinte no evento DataModuleCreate tem o cod procedure Tmodulo.DataModuleCreate(Sender: TObject); begin try conexao.Close; conexao.LoadParamsFromIniFile('bancofb.ini'); conexao.open; except raise Exception.create('Erro ao conectar o banco de dados'); Application.HandleException(Application); application.Terminate; // -------------- abre as tabelas do banco ---------------------- cds_funcionario.Open; sql_funcionario.Open; end; end; Oque esta acontecendo é que quando tenta da um .Open na conexao e esta fora da rede gera a minha excessao raise Exception.create('Erro ao conectar o banco de dados'); porem em vez de fechar a aplicação como eu mando application.Terminate; aparece uns 20 erros desse CDS_Tabela: Cannot perform this operation on a closed dataset eu gostaria que gerase minha excessao e fechase a aplicaçao

Boa tarde Estou com um problemao gostaria de compartilhar com vocês e ver se alguém tem alguma ideia eu tenho um aplicação que desenvolvi em delphi 2007 com banco de dados firebird 1.5 ele esta funcionando bem porem tem uma deteminada maqui (SO XP) que quando executo da erro de operação ilegal (sabe aquela famosa de enviar relatorio para a microsoft) então ei coloquei Showmessage na aplicaçao quando vai criar o form ShowMessage (' ****** 1 ****** '); Application.Initialize; ShowMessage (' ****** 2 (Modulo) ****** '); Application.CreateForm(TModulo, Modulo); ShowMessage (' ****** 3 ****** '); Application.CreateForm(TFrmLogin, FrmLogin); ShowMessage (' ****** 4 ****** '); Application.CreateForm(TFrmSobre, FrmSobre); ShowMessage (' ****** 5 ****** '); Application.CreateForm(Timp_historico, imp_historico); ShowMessage (' ****** 6 ****** '); Application.CreateForm(TFrm_impPerformance, Frm_impPerformance); ShowMessage (' ****** 7 ****** '); Application.CreateForm(TFrm_impgrafico, Frm_impgrafico); ShowMessage (' ****** 8 ****** '); Application.CreateForm(TFrm_plotar, Frm_plotar); ShowMessage (' ****** 9 ****** '); Application.CreateForm(TForm2, Form2); ShowMessage (' ****** 10 ****** '); e notei que para bem no 5 que é quando vai carregar o relatorio em QR se eu comentar as linha do Form com o QR abre o Sistema alguém tem alguma ideia do que pode ser ?

Seria como imprimir a minha tabela do banco mais as linhas eu colocase como coluna por exemplo eu tenho no meu banco assim: cod_cli nome 0 usuario 1 1 usuario 2 2 usuario 3 3 usuario 4 4 usuario 5 5 usuario 6 se eu colocar um details no meu QR com 2 QRDBText um para o cod_cli e outro para o nome vai sair assim 0 usuario 1 1 usuario 2 2 usuario 3 3 usuario 4 4 usuario 5 5 usuario 6 eu gostaria que gerase assim 0 1 2 3 4 5 usuario 1 usuario 2 usuario 3 usuario 4 usuario 5 usuario 6

E ai pessoal eu ei que esse forum não é de Banco de Dados mais aki vocês respondem mais rapido e geralmente as respostas dao certo estou tentando mudar a senha do firebird estou usando esse comando gsec -user SYSDBA -pass masterkey -modify SYSDBA -pw SENHA_QUE_QUISER em casa deu certo mais aki no meu serviço da esse erro unavablile database unable open to database alguém sabe o que pode ser

mais tipo Jhonas eu coloco um QRDBText e ligo ele ewm um campo do banco certo esse campo tem 5 valores 0 1 2 3 4 5 se eu clocar ele no Detail vai aparecer assim 0 1 2 3 4 5 eu quero que apareca 0 1 2 3 4 5