rebotea

boas como posso ligar os campos de 3 dataset em um TreeView?? Datasource1.zona Datasource2.local Datasource2.equipamento existe alguma forma de fazer? Obrigado

Obrigado pela ajuda

Boas caros como poderei passar a formula abaixo em Excel para delphi . Agradecido Excel =COS((ATAN(E2/D2))) and =((TAN(ACOS(F2)))-(TAN(ACOS(G2))))*H2

Boas amigos Tenho tentado fazer algo manualmente que desejava autumatizar . Assim temos a Tabelamestre em que o campo_1 ( Autonum..).. e a Tabelafilho em que o registo campo_1 e propagado ate aqui tudo bem mas quando desejo mudar a posição a que fica dificil ou seja. . . . ...............tabela mestre reg. 1 tabela filho reg 100 tabela filho reg 101 tabela filho reg 102 tabela filho reg 104 . . ...............tabela mestre reg. 2 tabela filho reg 105 tabela filho reg 106 tabela filho reg 107 tabela filho reg 108 . . . como poderei Mover o registo 107 (tabelamestra 2) para (tabelamestra 1) neste momento efectuo isso manualmente num DBedit... Agradeço ajuda

Boas colegas Tenho uma duvida que penso que já foi ulprapassada por muitos de vós. Como poderei dar acesso há minha base de dados por "nome Empresa" ou seja ao cadastrar todos os registos da empresa "Xpto" so vão ter acesso a empresa "Xpto" e não a outras empresas sendo que no caso de ser ADMINISTRADOR da Base de dados deve ter acesso a tudo.. Neste momento tenho a minha Tabela Usuarios com a respectiva password mas queria passar para Multiusuarios podendo assim dar acessos condicionados com accesso condicionado ao dados de cada um. Tabela Usuarios.....Cliente.. Empresa XPTO... .............................................Tabe_mestre Cliente ... Filtrada pelo campo da Tabela Usuarios.. Empresa????? Ou existe alguma forma ?? Caso alguém tenha um exemplo que possa disponibilizar agradecido. Neste momento utilizo .mdb na area da manutenção. BOA Pascóa

Boas amigos como poderei chamar "LoadImage" do active X abaixo? Obrigado function TIRimage.LoadImage(ImageHandle: OLE_HANDLE; ImageType: Smallint; BigEndian: WordBool): WordBool; begin Result := DefaultInterface.LoadImage(ImageHandle, ImageType, BigEndian); end; como poderei chamar o codigo acima de um active X Botão IRimage1.LoadImage[ 'c:\IR_1093.jpg' ] ;

Olá amigos como poderei retornar somente os campos '' por prencher no meu campo Data_VisitaLocal ??? SELECT * from TERMO_RelatorioFinal_sub where Data_VisitaLocal = NULL // não funciona??? where data_VisitaLocal IS NULL order by Data_VisitaLocal ; Obrigado ML

bem simples: atraves de uma query1, voce seleciona o registro 985 e com uma outra query2 o registro 986 usando uma rotina de leitura na query2, voce copia, ou move, ou adiciona os registros da query2 para a query1 e salva abraço Jonas não querendo ser chato sera que voce pode dar uma mão. meus dados jão são indexados por uma TADOQUERY. como teria que ficr mey codigo? SELECT * from Vibrometria_Sub_Sub where numeracao_1=:numeracao_1 order by Tipo_equipamento asc; Obrigado a quem poder dar uma mauzinha

Boas amigos mecessitar criar uma funcionalidade que deixa-se o cliente mover um registo detalhe entre os registos mestres existentes neste momento estou a efectuar manualmente com o dbedit alterando a numeração do registro populado da tabela mestre. exemplo os registos filhos estão indexados ao registo mestre Nº986 e agora desejava mover o registo filho para o registo mestre 985 como poderei efectuar isso simplesmente?

amigo estou esta dando erro omde estou a errar? Tentou executar uma consulta que não inclui a expressão especificada 'numeracao_1' como parte de uma função de agregação with SubTRelFinal_sub_anom do //Laço de consulta por codigo Begin Close; SQL.Clear; SQL.Add('SELECT numeracao_1, SUM(GrauAnomalia = 1) as Ano1 from TERMO_RelatorioFinal_sub_sub'); TERMO_RelatorioFinal_sub_sub'); Open; End; minha sql no Adoquery esta assim: SELECT * from TERMO_RelatorioFinal_sub_sub where numeracao_1=:numeracao_1 order by Designação_equipamento asc; Obrigado

Antes de actualizar renomeie o Dll em uso // renomear aplicação pasta local DeleteFile(localAplicação+'Dll.old'); oldName := localAplicação+'Dll.exe'; newName := ChangeFileExt(oldName, '.old'); if RenameFile(oldName, newName) Espero ter ajudado Abraço

Obrigado vou tentar explicar var ano1 : integer; ano2 : integer; ano3 : integer; begin Sub_TRelFinal.First; //Por norma existem 20 registos mestre while not Sub_TRelFinal.Eof do begin SQL.Add('SELECT valoranomania from TERMO_RelatorioFinal_sub_1'); //tabela filha ano1 (COUNT(valoranomania=1)) ano2 (COUNT(valoranomania=2)) ano3 (COUNT(valoranomania=3)) label1.caption:=ano1 label2.caption:=ano2 label3.caption:=ano3 Sub_TRelFinal.next; Obrigado

Boas amigos como poderei saber quantos registos da minha tabela aberta Detail contem registos =1 =2 e =3. Terei que fazer mais uma query? Neste registo so existem estas 3 possibilidade alen de ''. Obrigado

Pessoal sera que ninguém tem ideia como poderei resolver meu problema sem mudar de tipo deconecção ou baase dados para poder importar XML? ADOTable1.LoadFromFile('c:\test.xml'); ae alguém poder dar uma mão . Abraço

já resolvi coloquei meu dataset no DataModule e funciona correctamente.

Boas amigos Tenho um fForm(1) que tem um tAdoquery que e mesme para outras tabelas em outros Form´s quando por vezes abro o Forme Medições ele não filtra os dados melhor dizendo não passa os dados de um form para o outro e por exemplo o Lable Numeração fica sem dados? Que estarei fazendo errado? tabela Inspecoes busco o registo mestre mas ele não passa o valor do mestre para o Dtail? Inspecoes.DSub_TRelFinal SELECT * FROM Ultrason where numeraçãoRegisto =:numeraçãoRegisto ORDER BY numeraçãoreg Obrigado

Boas ainda não consegui alguém pode dar uma mão? Obrigado

boas estou a ler um arquivo Xml que actuliza a minha base dados mas na hora de actualizar a mesma nada contece que estou a fazer errrado? ADOTable1.LoadFromFile('c:\test.xml'); ADOTable1.edit; ADOTable1.UpdateBatch(arall); ADOTable1.Post Brigado

Boas já encontrei a solução Obrigado position := LastDelimiter('_', FileName); secuencial:= StrToInt(RightStr(FileName, Length(Filename) - position)) + 1; SecondFilename:= 'DC_' + Format('%.*d', [4, secuencial]) + Ext; end;

Boas amigos estou com um problema em buscar imagens numeradas sequençiais se alguém poder dar uma mão . IR_0380.jpg and DC_0381.jpg pego a imagem IR_0380.jpg e necessito que tambem localize e copie a imagem DC_0381.jpg . alguém tem ideia como poderei proceder? Obrigado as imagens são sempre sequenciais IR_0380.jpg and DC_0381.jpg IR_0382.jpg and DC_0383.jpg IR_0384.jpg and DC_0385.jpg brigado

ok brigado vou tentar pelo FlexCelImport

Brigado mas e sempre necessario utilizar o ClienteDataset. Sara Possivel exportar os registos seleccionados para outra base de dados .mdb so com estes registos?

Boas Amigos existe alguma forma expedita de guardar localmente as minhas tabelas (exportar do TTable mestre e TTable detalhe ) e enviar por email por exemplo em XML? Uso o banco de dados Access e Tadoconecion para aceder ao Banco de dados. Basicamente queria gravar os registos fora do banco de dados e enviar os mesmos de forma a efectuar-se a inserção do mesmo no banco de dados na base dados central (Append) Brigado

assim funciona como desejo existe sempre a necessidade de eliminar o directorio no destino ou existe outra forma? dirFile := ('c:\Teste'); dirFile1 :=('d:\'+'1'); DelTree ('d:\'+'1'); FillChar(Buffer, sizeof(Buffer), #0); p := @buffer; StrECopy(p, PChar(dirFile)); //nome da pasta a copiar FillChar(Fo, sizeof(Fo), #0); Fo.Wnd := Application.Handle; Fo.wFunc := FO_COPY; Fo.pFrom := @Buffer; Fo.pTo := PChar( dirFile1); //copio para a pasta Teste_1 Fo.fFlags := 0; if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then ShowMessage('Erro a copiar ficheiro imagens') end;

Bem não e bem assim eu quando transfiro a pasta C:\Teste para outro local ela tem que chegar la como C:\Teste_1 logo a unica maneira que vi que poderia fazer isso seria: Mudo o nome na Origem de C:\Teste para C:\Teste_1 // este numero e incrementado busco ele no destino (edit1.text), RenameDir('diretorio destino', 'diretorio origem'); em seguida copia a pasta em seguida voltamos a numeração original já que dentro de cada pasta existem +- 100 .jpg RenameDir('diretorio origem ', 'diretorio destino'); existe alguma forma mais espedita? Obrigado