danielrgoes

Bom dia pessoal estou tentando alterar valores no meu banco de dados mais quando eu do o Post da o seguinte erro With message conversion error from string "1-1". mais o campo que esta esse 1-1 é Varchar no banco ai o que eu fiz fui lá e tentar alterar direto no banco de dados pelo DBexpert ai qualquer informação que eu tento alterar da o Erro: Error Message: ---------------------------------------- Incompatible column/host variable data type. Dynamic SQL Error. SQL error code = -303. conversion error from string "3-JAN-1900 14:23:59.0000". o que sera que pode ser eu tenho outras tabelas no banco com campos String,Datas,e Horas e não da problema obrigado

Bom dia pessoal O meu windows Vista veio com 2 firewalls o do windows e um da Mcafee gostaria de saber como faço pra desativar esse da mcafee sendo que ele não fica nem na barra de tarefas abraçossss

Bom dia pessoal estou com um problemao estou utilizando o comando modulo.cds_tabela.delete para deletar um registro certo mais como tem 2 iguais ele retorna um erro *Cannot delete record there is at least one record with same fildes value* com a clausula delete (DELETE FROM TABELA WHERE CAMPO + 1) deleta normail mais como eu tenho 2 registros um deles eu não posso excluir se eu fizer assim ele deleta os dois utilizo o delphi 2007 com banco firebird 1.5 e o IBExpert alguém tem alguma soluçao

Estou tentado instalar o Windows 95 em um Pentim 4 com 1 GB de memoria e 40 GB de HD mais não consigo eu formato crio a partçao td certinho mais quando dou o instalar.exe a tela fica preta e não faz mais nada o windows 98 instala normal alguém sabe se por acaso existe algum requisito maximo de instalaçao do win 95 abraços

Bom dia pessoal estou com um problema que aparentemente é simples mais não ta dando certo eu tenho a seguinte comparaçao auxfaixa inicializa com 1 cont_faixa :Real; auxfaixa : integer; if (cont_faixa = auxfaixa) then begin auxfaixa := auxfaixa + 1; end; cont_faixa := cont_f + 0.1; a logica é assim essa rotina esta dentro de um while quando o cont_faixa for igual a 1 ele entra no if mais eu já depuguei e chega ai com 1 é igual a 1? era pra entar ais não entra porque sera? abraços

meu caro tente assim i := 0; modulo.cds_usuario.close; modulo.sql_usuario.sql.clear; modulo.sql_usuario.sql.Add('SELECT * FROM USUARIO '); modulo.cds_usuario.Open(); cont_user := modulo.cds_usuario.RecordCount; modulo.cds_usuario.First; while i < cont_User do begin cbarquivado.Items.Add(modulo.cds_usuarioNOME_USER.Value); modulo.cds_usuario.Next; i := i + 1; end; no meu caso estou usando uma tabela de usuario só troque o nome da tabela pela sua

bom dia pessoal Estou com um problema que acho que vocês já ouvirao falar eu tenho um aplicaçao aki na empressa desenvolvida em Access 2000 ela funciona belesinha quando o SO é o XP e o Office é o 2000 mais estou migrando algumas maquinas e ela vem com Aquela merda do Vista e não tem como dar downgrade então a maquina fica com So Vista e Office 2000 ai a minha aplicaçao não funciona ate loga e td mais não exibi as informaçoes do formularios alguém tem alguma dica expetacular pra mim muito obrigado

Bom dia pessoal Gostaria de saber como faço pra pegar o modelo do processador a velocidade eu consegui inclusive segue o codigo se alguém precisar function GetCPUSpeed: Double; const DelayTime = 500; var TimerHi, TimerLo: DWORD; PriorityClass, Priority: Integer; begin try PriorityClass := GetPriorityClass(GetCurrentProcess); Priority := GetThreadPriority(GetCurrentThread); SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); Sleep(10); asm dw 310Fh // rdtsc mov TimerLo, eax mov TimerHi, edx end; Sleep(DelayTime); asm dw 310Fh // rdtsc sub eax, TimerLo sbb edx, TimerHi mov TimerLo, eax mov TimerHi, edx end; SetThreadPriority(GetCurrentThread, Priority); SetPriorityClass(GetCurrentProcess, PriorityClass); Result := TimerLo / (1000.0 * DelayTime); except end; end; muito obrigado

modulo.cds_tabela.Cancel; abraço acho que me expresei mal jhonas eu quero continuar inserindo só avisa o usuario que não pode inserir aquela informaçao

Boa Tarde pessoal estou com uma duvida ate meio tonta eu acho eu utilizo o procedimento de inserção que a maioria usa eu acho um botao com - modulo.cds_tabela.append e um botao pra salvar - modulo.cds_tabela.post ate ai td bem mais eu gostaria de antes dar o post verificar se o registro que o usuario esta inserindo já existe no banco para isso usaria o famos select correto modulo.cds_tabela.close; modulo.sql_tabela.sql.clear; modulo.sql_tabela.sql.Add('SELECT * FROM TABELA '); modulo.sql_tabela.sql.Add('WHERE NOME = ' + nome.Text); modulo.cds_tabela.Open(); se o modulo.cds_tabela.recordcont for = 0 deixa incluir se não não deixa beleza ate ai td bem mais o problema é que quando eu entro modo append eu não posso dar o select porque se não sai do modo ai quando vo dar o post da erro e fala que eu não to inserindo alguém tem alguma idea?

no computador pois tem uma pasta que alguns usuarios acessam em um determinado computador gostaria de saber quem esta acessando

Estou sem delphi aki para fazer o codigo se você quizer depois faço pra você mais a logica é o seguinte faz um laço ate o Length da string (length é a funçao que retorna o valor inteiro o numero de caracteres de uma string) dento do laço você faz se o caracter for = '' você pega o proximo ate acabar a string lembrando de sempre pegar o primeiro deve fica algo assim for i to length(frase) do begin if frase = '' then begin achou := frase[i + 1]; palavrafinal := palavrafinal[j] + achou; j := j + 1; end; end;

Boa Tarde pessoal Gostaria de saber se teria como fazer um programa para saber os usuarios (pode ser pelo nome ou ip) que estao conectados ao computador muito obrigado

Bom dia pessoal Gostaria de sabe se alguém sabe como copiar informaçoes de uma tabela por exemplo eu tenho uma tabela teste ela tem 2000 itens sendo que 100 são com o codigo 1 gostaria de duplicar essa informaçoes com o codigo 2 isso é possivel abraços

Bom dia pessoal Vamos ver se consigo explicar a minha situação pra vocês eu tenho uma aplicação em delphi 2007 e Banco de dados progress 10.1c no banco tem 2 tabela st-bomba,st-desc_bomba elas possuem uma relaçao de 1-n pelo cod_bomba ai no meu form tem 2 DBgrids um ligado no st-bomba e outro no st-desc_bomba quando eu seleciono um item do dbgrid(st-bomba) tem que efetuar um select e mostrar o resultado no dbgrid(st-desc_bomba) eu consigui falze da seguinte forma coloquei um DataSourse no form ligado lá no modulo.dataset_bomba ai no evento Ondatachange coloquei o codigo if ( modulo.ds_p_bomba.Enabled = False) then modulo.ds_p_bomba.Enabled := True; if not (modulo.data_p_bomba.State In [dsInsert]) Then begin if ( modulo.data_p_bomba.RecordCount > 0 ) then begin //filtra para os pt de operação do teste em foco modulo.data_p_desc_bomba.Close; modulo.data_p_desc_bomba.CommandText := 'select * from PUB."st-desc_bomba" where cod_bomba = '+ IntToStr(modulo.data_p_bombaCOD_BOMBA.Value); modulo.data_p_desc_bomba.Open; end; end; muito bem fuincionou porem a aplicação ficou lerda quando eu seleciono o item do Dbgrid(st-bomba) da uma pausa pra mostra os valores não é a conexao poiso qualquer outro select é rapido e a rede aki é /Giga alguém tem alguma ideia pra otimizar esse resultado muito obrigado

Bom dia pessoal eu tenho um banco de dados progress 10.1c e tambem um em firebird para otimizar o select no firebird eu utilizo o indice e no progress temalguma forma de otimizar eu tenho 2 tabelas st-bombas,st-desc_bombas elas possuem um relacionamento 1-n pelo cod_bomba eu tenho um select assim select * from PUB."st-desc_bomba" where cod_bomba = (o cod_bomba da tabela st-bomba) muito obrigado

Bom dia pessoa Eu tenho uma aplicaçao de Delphi 2007 conectada via ODBC no progres 10.1C conecto via ADO ADOCOnnection ADOQuery ADODataset e DataSoure porem não consigo efetuar o select no banco eu incluo com o append,salvo com o post e tals estou utilizando o codigo modulo.DATA_P_bomba.close; modulo.sql_p_bomba.sql.clear; modulo.sql_p_bomba.sql.Add(edtpesq.Text); modulo.DATA_P_bomba.Open; no Edit vai a minha frase select * from PUB."st-teste" where "cod_teste" = 1 o que esta estranho é que nem da erro mesmo que eu passe uma frase incorreta selec em vez de select alguém pode me ajudar abraços

usando Progress SQL89 voce pode usar 'SELECT * FROM tabela' sem problemas No entanto, com SQL92, você deve especificar um nome de esquema. Por exemplo, 'SELECT * FROM esquema.tabela'. caso contrário receberá o aviso: ][OPEN EDGE]Table/View/Synonym not fond (7519) Se você não especificar um nome de esquema com SQL92, o SQL irá utilizar o seu id do login como o nome do esquema. Por exemplo, se o usuário 'test01' conecta e executa 'SELECT * FROM tabela "o SQL vai realmente enviar' SELECT * FROM test01.table '. Com SQL89 você não tem esse problema B / C não há um conceito de um esquema no SQL89. Com o SQL92 voce pode usar PUB como esquema para selecionar seus dados. Por exemplo 'SELECT * FROM PUB.table'. Jhonas é exatamente isso so uma resalva o nome da tabela e dos atributos precisam estar entre aspas duplas select * from PUB."empresa" where "empresa"."nome" muito obrigado foi de otima ajuda Outro exemplo: select * from PUB.cm_mstr or create a synonym for the table, like this: create public synonym cm_mstr for PUB.cm_mstr abraço

O Progress 10.1.C utiliza DataServer for Oracle and Microsoft SQL Server Então voce consegue conectar o banco de dados através do ADO abraço Jhonas não consegue conectar com os driver do oracle ou do SQL eu consegui conectar com o ODBC mais quand eu vo inseri os fildes no ADOTable da o seguinte erro [DataDirect]ODBC Progress OpenEdge wire protocol driver][OPEN EDGE]Table/View/Synonym not fond (7519) sera que alguém tem alguma dica do que pode ser

acho que você pode usar o ZeosLib 6.5.1 e você acessa diretamente a Base de Dados, copie a libpq74.dll do Zeos (pasta \Zeos\lib\postgresql) para a pasta windows\system32. Mais informações: http://www.vbweb.com.br/download.asp?Downl...p;CodigoLink=66 http://ingleses.datasul.com.br/blog/post/2...s-Progress.aspx abraço Jhonas este componente conecta somente no PostgreSQL e não no Progress como eu necessito mais muito obrigrado pela ajuda

Bom Dia pessoal Andei pesquisando na internet para ver se conseguia conectar o Delphi 2007 no Progress 10.1.C mias todas as ajudas não foram suficiente hj eu tenho um sistema que conecta no FireBird eu utilizo os componentes SQLConnection SQLQuery ClienteDataSete DataSetProvider e o Datasourse mais dessa forma não é possivel conectar Gostaria de saber se alguém tem alguma ideia de como conectar ? muito Obrigado

voce deve usar JOIN nas tabelas e pode usar um ChildBand ... na banda de Detail tem uma opção chamada HasChield ... deixe como true e aparecerá esta banda filha de detail ..mas as tabelas deverão estar em uma unica consulta abraço Jhonas acho que eu me expresei mal eu tenho 3 tabela TESTE -cod_teste DESC_TESTE - cod_teste - altura - vazao - corrente - entrada MOTIVO -cod_teste -motivo para cada teste potem existir N testes 6 por exemplo e para este mesmo teste pode existir 3 motivos entaum ficaria 1:6:3 como eu faria esse join achop que não é possivel

Bom dia pessoal Estou com um problema fiz varios relatorios no meu sistema utilizando o Quick Report nestes relatorios existem 2 QRband um para o cabeçario (title) e outro para as descriçoes (Detail) então as descriçoes aparecem todas dependendo do select mais estou com a necessidade de colocar 3 band agora um para o cabeçario outro para o detal ligado em uma tabela e outro detail ligado em outra tabela mais quando eu coloco o terceiro detail não aparece os valores alguém tem alguma soluçao pra mim

Bom dia pessoal Gostaria de saber como eu faço para mudar a cor da 4ª linha do Dbgrid muito obrigado

Funcionou muito bem mais tem um problema como eu trabalho com status aguardando (-1) aprovado (1) reprovado (0) quando eu seleciono todos eu gostaria só que os reprovados ficassem vermelho