danielrgoes
-
Total de itens
295 -
Registro em
-
Última visita
Posts postados por danielrgoes
-
-
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
-
Galera, estou com o seguinte probleminha. =)
Bom, tenho uma ComboBox que faz uma consulta no Banco de Dados SQL Server 2000.
Bom, está tudo OK , abro a combobox e me retorna todas as linhas que pedi pra retornar, até ai tudo bem ...
... o problema surge quando eu fecho a aplicação, me retorna o seguinte erro :
1° Erro, ao feca a aplicação : http://img209.imageshack.us/i/erro1k.jpg/
2° Erro, ao apertar F9 novamente : http://img209.imageshack.us/i/erro2.jpg/
Query onde ocorre o erro :
procedure TfrmCliente.FormActivate(Sender: TObject);
begin
dm.qryLeCPF.Close;
dm.qryLeCPF.sQL.Clear;
dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE');
dm.qryLeCPF.Open;
cbCPF.clear;
while not dm.qryLeCPF.Eof DO
begin
cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString);
dm.qryLeCPF.Next;
end;
end;
Espero que alguém possa me ajudar :/
Agradeço a todos,
Felipe!
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
-
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
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?
-
Caro amigo gostaria de saber conectado no computador ou na rede?
no computador
pois tem uma pasta que alguns usuarios acessam em um determinado computador
gostaria de saber quem esta acessando
-
Alguém sabe com que código eu resolvo a seguinte questão:
"Ler uma string e mostrar as iniciais de cada palavra. Exemplo: ‘Programar é moleza’ -> ‘Pém’."
Agradeço de antemão
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
-
[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
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
-
Gostaria de saber se alguém tem alguma ideia de como conectar ?
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
-
Andei pesquisando na internet para ver se conseguia conectar o Delphi 2007 no Progress 10.1.C
Gostaria de saber se alguém tem alguma ideia de como conectar ?
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
-
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
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
-
adicione no metodo oncreate do seu form
dbgrid1.Columns.Items[NUMERO DA COLUNA].Font.Color := COR; //por exemplo dbgrid1.Columns.Items[0].Font.Color := clRed;
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
Erro ao altera no banco FireBird
em Delphi, Kylix
Postado
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