[delphi-br] Delphi 7 x Windows 7 x 64 bits
Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle
[delphi-br] Cupom Fiscal
Pessoal, boa noite, contando com a experiência de vocês, qual seria o melhor caminho para que através do Delphi 7 eu consiga emitir Cupom Fiscal ? grato Stainle
[delphi-br] Email com Indy - Problemas
bom dia, estou enviando email usando o componente 'Indy' se o meu outlook estiver aberto o email é enviado, caso contrário ele me dá uma mensagem de 'invalid host name' e na verdade o mesmo está correto; alguém passou por isto. grato Stainle
[delphi-br] Delphi 7 e NFe
Alguém sabe onde encontro exemplo de como criar em Delphi 7 um programa para enviar dados para validar a NFe e depois óbviamente emitir a DANFE, não tenho idéia de quais componentes devo usar para comunicar com o site da fazenda, eu já consegui criar o arquivo texto para ser importado e enviar pelo programa disponibilizado pelo site, sei que devo agora gerar em XML mas não tenho idéia de como fazer o programa. Onde eu encontraria modelos ou exemplos ? grato Stainle
[delphi-br] DateTimePicker
bom dia, precisava atribuir em um campo TDateTime somente a porção Date de um TDateTimePicker, não estou conseguindo, alguma dica ? grato Stainle
[delphi-br] Compilar Programa para diversas Empresas
bom dia amigos, tenho um programa que roda em várias empresas, tenho um projeto(uma pasta específica) para cada uma delas, aí se houver uma mudança, tenho que fazer em todas, para isto criei um único projeto e coloquei os dados das empresas em uma UNIT chamada 'empresa' que fica gravada(só esta unit) na pasta de cada empresa, ajudou um pouco, mas acho que poderia ser melhor, pois cada vez que vou compilar sou obrigado a alterar o caminho da pasta direcionando para a empresa que quero, não sei se fui claro, mas teria uma maneira diferente de fazer isto ? grato Stainle
[delphi-br] Mudando Status do DataSet
bom dia, tenho um programa que ao entrar no Form para Incluir ou Alterar (forms distintos), após alguns segundos o Insert ou o Edit deixar de estar e quando vou gravar dá um erro que não está nem em Edit ou Insert; em algum lugar do programa deve estar tendo ou um Cancel ou um Refresh nestas tabelas, como eu poderia saber onde está acontecendo isto ?, nestes form´s tenho certeze que não são, pois uso-os num outro projeto menor e isto não acontece. grato Stainle
[delphi-br] Perda de Herança no Formulário
Boa Tarde, usando Delphi 7; tenho um formulário que não obedece mais as mudanças no Form Original do qual ele foi herdado; recriei e compilei o projeto e nada, alguém tem uma luz ? grato Stainle
[delphi-br] Paradox para SqlServer2000
Boa tarde, estou importando dados do PARADOX para o SQLSERVER2000, se importar pelo Datapump, os campos tipod Date são criados como DateTime e pelo Enterprise Manager(Import Data) é criado como SmallDateTime; o problema é que ao compilar meu programa em Delphi aparece um erro onde faço calculos com estes campos e com variáveis que defini como TDateTime. Alguém tem alguma dica ??, estou abandonando o Paradox mas estou vendo que não está fácil. grato Stainle
[delphi-br] Campo Memo no SQL Server 2000
boa tarde, estou precisando gravar dados como se fosse campo memo, não estou conseguindo, uso Delphi 7 e SQLServer 2000; criei um campo tipo varchar com tamanho 8000, não sei porque ele grava até um certo limite dos dados que digito num campo memo e depois antes do post eu transfiro para o campo varchar tamanho 8000 mas não consigo gravar tudo que digitei, com um campo text que criei eu nem consigo gravar os dados nele, engraçado é que pelo Enterprise Manager eu consigo digitar os dados que aparecem no campo memo do DELPHI. se alguém tiver alguma dica, será muito benvinda. grato Stainle
[delphi-br] Delphi Prism ou Delphi for PHP
Amigos, estou comprando o Delphi 2009, tenho direito de escolher outro produto que poderia ser o Delphi Prism ou Delphi for PHP, a minha dúvida, o que faz um e o que faz o outro ??, alguma sugestão ?? grato Stainle
[delphi-br] SQLServer
bom dia amigos, quando importei dados do Cobol via ODBC para o SQLServer, os
campos que tinham a picture 9(12)v99 o SQLServer criou como tipo TBCDField e os
que tinham picture 9(14)v99 ele criou como TFMTBCDField, e agora pelo Delphi
quando tento compilar o programa
nas duas primeira linhas abaixo não aparece erro de compilação, mas na terceira
linha apresenta um erro dizendo que não posso usar o FormatFloat,
'CUSI = ' + FormatFloat('000,000,000.00', CDSEstoCUSI.Value) +
'CRE = ' + FormatFloat('000,000,000.00', CDSEstoCRE.Value) +
'CME = ' + FormatFloat('000,000,000.00', CDSEstoCME.Value) +
alguém tem uma luz
Stainle
[delphi-br] DBGrid
Gostaria de trocar o valor True de um campo no DBGrid por um visto ou seja aquela imagem que significa OK ou ticado, coisa assim. uso o Delphi 7. conto com a ajuda de vocês. grato. Stainle
[delphi-br] BatchMove
Bom dia, utilizo Delphi 7 e SqlServer2000, o qual eu atualizo dados do Cobol através do BatchMove, existiria alguma outra ferramenta ou maneira para que eu deixasse de usar o BatchMove ? grato Stainle
[delphi-br] Access Violation
bom dia, com Delphi 7, tenho um programa que vira e mexe me dá esta mensagem: Access Violation at Address ., será que é problema de memória ??, como poderia resolver isto ? grato Stainle
[delphi-br] Não quero escrever os campos
bom dia pessoal, meu problema é o seguinte: Delphi 7 e SqlServer 2000, não consigo definir o meu select no CommandText do SQLDataSet que está ligado ao SQLConnection que está ligado ao SQLServer 2000. sempre usei select *, agora quero escrever os campos, select campo1, campo2, ...; porém eu não queria escrever os campos e sim que aparecesse a tabela e os campos no CommandText Editor para que eu selecionasse a tabela e os campos no meu select, sem ter a necessidade de ir escrevendo os campos. Já consegui ver a tabelas e os campos em outra ocasião, mas não me lembro o que fiz para isto acontecer, se alguém tiver as dicas. grato Stainle
[delphi-br] Erro Estranho - SQL Server 2000
Boa Noite, estou usando Delphi 7 e acessando o SQLServer 2000 através do SQLDataSet(dbexpress) conforme a select abaixo: select CODCLI from clifer where codcli = :pcodcli e ao Ativar me aparece o seguinte erro: SQL State : HY000, Sql Error Code :0 Valores de Parâmetros de Entrada Inválidos. Verifique os detalhes dos valores de Status. Na tabela está como Inteiro e no parâmetro também, porque será que dá este erro ??? Stainle
[delphi-br] ClientDataSet - Lookup Lento
Boa Tarde, novamente pedindo ajuda. Estou gradativamente mudando meu sistema de BDE para Multicamadas, portando deixo de usar Query para usar ClientDataSet acessando a máquina que tem o BSS, o que acontece: Preciso fazer Lookup e sei que fica lento, então na Query(BDE) em OnCalcFields eu uso uma função que Seleciona(select * from ...) UMA dentre 4 chaves(00211001, 00211***, 0021, 002*), por exemplo, de uma tabela para que eu ache um valor para calcular o Preço Líquido por exemplo da tabela principal; acontece que no BDE(query) funciona com uma velocidade até que razoável, mas ao mudar para o ClientDataSet, fica uma calamidade, até mudei a função chamada no OnCalcFields para ao invés de SQL eu passei a usar da forma abaixo, mas mesmo assim não me alegrou, será que vou ter que continuar a usar o BDE, neste caso ??? procedure TDados.ver_desconto; var wscodigo : string; begin wscodigo := Dados.CDSEstCodes.Value; Dados.CDSDes.Close; Dados.CDSDes.IndexName := 'DEFAULT_ORDER'; Dados.CDSDes.Open; Dados.CDSDes.IndexFieldNames := 'nrolinha;grupo_ini;sub_ini;nropeca'; Dados.CDSDes.SetKey; Dados.CDSDesNrolinha.Value := StrToInt(copy(wscodigo, 1, 3)); Dados.CDSDesGrupo_Ini.AsString := copy(wscodigo, 5, 1); Dados.CDSDesSub_Ini.AsString := copy(wscodigo, 6, 1); Dados.CDSDesNropeca.AsString := copy(wscodigo, 8, 3); if Dados.CDSDes.GotoKey then begin Dados.CDSEstDesconto.Value := Dados.CDSDesDesco05.Value; exit; end; Dados.CDSDes.IndexFieldNames := 'nrolinha;grupo_ini;sub_ini;nropeca'; Dados.CDSDes.SetKey; Dados.CDSDesNrolinha.Value := StrToInt(copy(wscodigo, 1, 3)); Dados.CDSDesGrupo_Ini.AsString := copy(wscodigo, 5, 1); Dados.CDSDesSub_Ini.AsString := copy(wscodigo, 6, 1); Dados.CDSDesNropeca.AsString := '***'; if Dados.CDSDes.GotoKey then begin Dados.CDSEstDesconto.Value := Dados.CDSDesDesco05.Value; exit; end; Dados.CDSDes.IndexFieldNames := 'nrolinha;grupo_ini;sub_ini;nropeca'; Dados.CDSDes.SetKey; Dados.CDSDesNrolinha.Value := StrToInt(copy(wscodigo, 1, 3)); Dados.CDSDesGrupo_Ini.AsString := copy(wscodigo, 5, 1); Dados.CDSDesSub_Ini.AsString := '*'; Dados.CDSDesNropeca.AsString := '***'; if Dados.CDSDes.GotoKey then begin Dados.CDSEstDesconto.Value := Dados.CDSDesDesco05.Value; exit; end; Dados.CDSDes.IndexFieldNames := 'nrolinha;grupo_ini;sub_ini;nropeca'; Dados.CDSDes.SetKey; Dados.CDSDesNrolinha.Value := StrToInt(copy(wscodigo, 1, 3)); Dados.CDSDesGrupo_Ini.AsString := '*'; Dados.CDSDesSub_Ini.AsString := '*'; Dados.CDSDesNropeca.AsString := '***'; if Dados.CDSDes.GotoKey then begin Dados.CDSEstDesconto.Value := Dados.CDSDesDesco05.Value; end; end; procedure TDados.CDSEstCalcFields(DataSet: TDataSet); begin ver_desconto(); Dados.CDSEstLiquido.Value := Dados.CDSEstPv1.Value * (1 - Dados.CDSEstDesconto.Value / 100); end; procedure TDados.CDSDesBeforeOpen(DataSet: TDataSet); begin Dados.CDSDes.IndexName := 'DEFAULT_ORDER'; end; grato Stainle
[delphi-br] Campos Calculados
Ainda à volta com o CDS Local, estou tendo problemas para abrir arquivos locais(*.cds) quando no componente eu criei alguns campos internal-calc, como posso usar estes campos ou não posso usá-los localmente Sei que quando excluo estes campos(Internal Calc) consigo abrir, fechar os CDS sem problema algum. alguem saberia sobre isto ? grato Stainle
[delphi-br] ClientDataSet - Local
bom dia amigos, estou tentando usar o CDS localmente mas estou apanhando como nunca; não quero que ele tenha vínculo com banco algum, sómente arquivos local (cds ou xml), não sei qual o melhor, não sei se coloco um nome de arquivo no FILENAME ou se uso o SaveToFile e depois o LoadFromFile, só sei que se preciso criar um campo novo tenho que apagar todos os campos no FieldDefs para depois criar o novo campo e mesmo assim nem sempre consigo criar, estou apanhando com o Clear Data e CreateDataSet, e agora está me aparecendo uma menssagem ao usar o CDS local : Não é possivel criar uma nova transação porque a capacidade foi excedida, não sabia que existia limites de transação, aliás, nem sabia que existia transação para uso do CDS - Local. Se alguém tiver alguma solução será benvinda, pois estava usando com o Paradox e estava funcionando e não queria usar novamente o BDE e sim o CDS local; uso Delphi 07 grato Stainle
[delphi-br] SqlConnection
Bom dia Amigos, estou apanhando, pesquisei e agora recorro ao grupo. O meu problema é o seguinte: estou acessando com Delphi 07 uma base SQL Server 2000; para tanto criei um driver MSSQL(SQLConnection) de nome basemat que tem o IP 192.168.0.250 e os demais dados necessários como nome do Database, Senha, etc. Quando rodo o programa na rede 0 acesso sem problemas, agora quero rodar o mesmo programa na rede 7 que é uma filial que tenho em outro estado, gostaria de manter o nome do driver e mudar o ip do mesmo para 192.168.7.250, não estou conseguindo, não muda os dados no meu DBGrid; também não consegui mudar o nome do DRIVE que teria o IP que desejo acessar, alguma dica ?? grato Stainle
[delphi-br] Wide Screen
bom dia, desenvolvo usando o notebook que tem a tela Wide Screen, mas o usuário tem o monitor CRT(tela menor), aí desaparece tudo que está do lado direito da tela. Sei que posso fazer no tamanho certo para isto não acontecer, porém, agora já está pronto. Teriam alguma sugestão para que isto não ocorra. grato Stainle
[delphi-br] Parâmetros no SQL
Bom dia, com Delphi 7 e SQLServer 2000 estou encontrando um problema: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = :pmes and tano = :pano) com parâmetro não funciona(diz que em sub select eu preciso definir os parâmetros) e assim funciona: select codcl, noc, cic, uv from clien where not exists (select tclientee from estmat where tclientee = codcl and thisto = 'S' and topera = 2 and tmes = 01 and tano = 2009) ou seja troquei o mes or 01 e o ano por 2009, mas preciso deixar variável o mes e o ano, porisso preciso do parâmetro. alguém sabe o que posso fazer ?? grato Stainle
[delphi-br] Conectar ao BSS Local
boa tarde, hoje estou trabalhando fora da empresa, feriado né, estou tentando conectar no BSS da minha máquina e não no IP que uso lá na empresa, coloco 127.0.0.1 não funciona, coloco \\stainlenotexp que é o nome da máquina e não funciona, o duro é que já consegui num outro dia conectar, mas hoje dá dificil de conseguir, fiz uma copia do banco para a minha máquina mas não estou sendo feliz. Alguma sugestão, dica, etc. ... também estou pesquisando na NET para ver se encontro uma dica. grato Stainle
[delphi-br] XML - Nfe
bom dia, usando Delphi 7 estou tentando abrir pelo ClientDataSet um arquivo que me foi enviado e que seria uma NFE, porém dá um erro ao abrir, alguém passou porisso e saberia me dizer o que devo fazer para que eu consiga ver a NFE. grato Stainle
[delphi-br] Formatar Campo Aggregates
bom dia, não estou conseguindo com o Delphi 7 a formatação que consigo nos campos tipo DATA nos campos tipo AGGREGATE, existe alguma diferença ?. grato Stainle
[delphi-br] Mudar Tabelas no Firebird em tempo de Execução
Usando Firebid 2.0 e Delphi 7, preciso mudar tabelas (incluir campos, exlcuir campos, mudar índices, etc) em bases já distribuidas e populadas. Por esta razão preciso fazer em tempo de execução, não estou conseguindo, alguém teria alguma sugestão ou exemplo. grato Stainle
[delphi-br] Execução Remota
boa tarde, usando Delphi 7 eu gostaria de criar um programa que assim que um usuário remoto através da conexão FTP ao deixar o seu arquivo dispare o programa para executar estes arquivos; alguém tem alguma idéia de como posso fazer isto, eu já tenho aqui rodando um programa que fica rodando 24 horas vendo se chega algum arquivo para processar, gostaria de mudar para ficar automático com a chegada dos arquivos. qualquer idéia será benvinda. grato. Stainle
[delphi-br] Fortes Report
o que devo fazer para que a opçao ENVIAR(ao lado de Salvar) apareça para que eu consiga clicar e evidentemente enviar um email, quando entro em PREVIEW do relatório, pois para mim aparece como não disponível, tudo isto é claro no Fortes Report ? grato Stainle
[delphi-br] Aggregates dando trabalho
Boa tarde, com Delphi 7 e Firebird 2.0 eu tinha um campo aggregate que funcionava perfeitamente, ou seja, me dava o total do pedido sem erro algum, depois que coloquei um campo novo na tabela e que se tornou chave primária, este campo em um dado momento dobra os valores(quando estou em inclusão de itens), criei novamente os índices, exclui o tal campo e criei novamente mas não consigo resolver o problema. se alguém tiver alguma dica, será benvinda. grato Stainle
[delphi-br] Uma grava, outra não
Tenho duas rotinas, com uma consigo gravar com a outra NÃO, estão as
duas aqui, se alguém puder me ajudar, estou descabelando e não
consigo ver onde pode estar errado.
grato
Stainle.
com a rotina abaixo NÃO gravo no Firebird :
begin
if CheckBox5.Checked then
begin
SQLConn1.Connected := False;
SQLConn1.Connected := True;
td.TransactionID := Cardinal('7' + FormatDateTime
('ddmm', date) +
FormatDateTime('hhmmss', Time));
td.IsolationLevel := xilREADCOMMITTED;
SQLConn1.StartTransaction(td);
conta := 1;
conto := 0;
QueTabela.Close;
QueTabela.SQL.Clear;
QueTabela.SQL.Add('delete from similar');
QueTabela.ExecSQL;
SQLConn1.Commit(td);
SQLConn1.Connected := False;
SQLConn1.Connected := True;
if FileExists('c:\remoto\geral\txtsim.txt') then
begin
SQLConn1.StartTransaction(td);
AssignFile(aa, 'c:\remoto\geral\txtsim.txt');
reset(aa);
While not eof(aa) do
begin
readln(aa, linha);
Label1.Caption := 'Atualizando SIMILAR ' + copy(linha, 1, 10);
wsequencial := conta;
wnrofor01 := copy(linha, 17,
34);
wforne01 := copy(linha, 14,
3);
wcodigo01 := copy(linha, 1,
10);
wnforcomp01 := copy(linha,
51, 30);
wnrofor02 := copy(linha, 94,
34);
wforne02 := copy(linha, 91,
3);
wcodigo02 := copy(linha, 81,
10);
wnforcomp02 := copy(linha,
128, 30);
QueTabela.Close;
QueTabela.SQL.Clear;
QueTabela.SQL.Add('Insert
into similar ');
QueTabela.SQL.Add
('(sequencial, nrofor01, forne01, codigo01, nforcomp01 ');
QueTabela.SQL.Add('nrofor02,
forne02, codigo02, nforcomp02, tiposimi)');
QueTabela.SQL.Add(' values ');
QueTabela.SQL.Add
('(:psequencial, :pnrofor01, :pforne01, :pcodigo01, :pnforcomp01, ');
QueTabela.SQL.Add
(':pnrofor02, :pforne02, :pcodigo02, :pnforcomp02, :ptiposimi)');
QueTabela.ParamByName
('psequencial').AsInteger := wsequencial;
QueTabela.ParamByName
('pnrofor01').AsString := wnrofor01;
QueTabela.ParamByName
('pforne01').AsString := wforne01;
QueTabela.ParamByName
('pcodigo01').AsString := wcodigo01;
QueTabela.ParamByName
('pnforcomp01').AsString := wnforcomp01;
QueTabela.ParamByName
('pnrofor02').AsString := wnrofor02;
QueTabela.ParamByName
('pforne02').AsString := wforne02;
QueTabela.ParamByName
('pcodigo02').AsString := wcodigo02;
QueTabela.ParamByName
('pnforcomp02').AsString := wnforcomp02;
QueTabela.ParamByName
('ptiposimi').AsString := 'S';
try
QueTabela.ExecSQL;
Label2.Caption := 'gravou';
except
Label3.Caption := 'não
gravou';
end;
inc(conta);
Label2.Caption := 'Registros ..: ' + IntToStr(conta);
inc(conto);
if conto 900 then
begin
conto := 0;
Application.ProcessMessages;
end;
end;
end;
SQLConn1.Commit(td);
Application.ProcessMessages;
end;
--
com a rotina abaixo GRAVO no Firebird :
//- Similar
SQLConn1.Connected := False;
SQLConn1.Connected := True;
[delphi-br] CDS - Internal Calc
Bom dia, estou tentando criar campos do tipo InternalCalc num CDS que não tem vínculo nenhum, ou seja, fica só na memória, criei ums campos e fiz Create DataSet e funcionou perfeitamente, agora quero criar estes campos InternalCalc e aparece: Name not unique in this context(quando tento fazer Creat DataSet) uso o Delphi 7, como poderia solucionar o problema ?? grato Stainle
[delphi-br] Firebird
Boa Tarde, apaguei todos os dados das tabelas do Firebird, o tamanho do banco não mudou e não sei o que fazer para que ele fique menor, tentei fazer backup mas não estou conseguindo, alguém tem uma dica. grato Stainle
[delphi-br] CDS - Firebird
Usando Delphi 7 e Firebird 1.5; com TSQLConnection - TSqlDataSet - TDataSetProvider - CDS, faço o seguinte: leio um arquivo texto e preencho o CDS, depois com um CDS.ApplyUpdates (0) tento gravar no Banco, com a maioria das tabelas atualiza o Banco, com uma tabela de aproximadamente 40.000 registros trava o programa, isto acontece em um determina programa que tem mais operações, com a mesma rotina e num programa sómente com estas instruções o banco é atualizado, será que é problema de memória ? não sei o que posso fazer, sei que vou criar um programa só para esta operação; mas gostaria de saber como resolver isto para que fique um programa só. grato Stainle
[delphi-br] Firebird não atualiza
Amigos, estou com Delphi 7 lendo arquivos textos e tentando atualizar
tabelas no Firebird 1.5, leio os textos e coloco num CDS que está
ligado a um Provider que por sua vez está ligado ao SqlDataSet e este
ao SQLConnection(DBExpress), algumas tabelas são atualizadas outras
não, a configuração do DSP estão todas iguais, não uso Transaction,
não sei se precisa, estou perdido, se alguem puder ajudar desde já
agradeço.
Stainle,
segue abaixo o codigo que utilizo:
if FileExists('c:\remoto\descon\txtdes.txt') then
begin
Dados.CDSDes.First;
While not (Dados.CDSDes.Eof) do
begin
Dados.CDSDes.Delete;
end;
Dados.CDSDes.ApplyUpdates(0);
AssignFile(aa, 'c:\remoto\descon\txtdes.txt');
reset(aa);
While not eof(aa) do
begin
readln(aa, linho);
if Dados.CDSDes.FindKey([copy(linho, 1, 8)]) then
begin
Dados.CDSDes.Edit;
Dados.CDSDesRFornece.Value := copy(linho,
9, 20);
Dados.CDSDes.Post;
Dados.CDSDes.ApplyUpdates(0);
end
else
begin
Dados.CDSDes.Insert;
Dados.CDSDesRNrolinha.Value := copy(linho,
1, 8);
Dados.CDSDesRFornece.Value := copy(linho,
9, 20);
Dados.CDSDes.Post;
Dados.CDSDes.ApplyUpdates(0);
end;
end;
[delphi-br] Delphi com Vista
Amigos, recebi um notebook da empresa e o mesmo veio com o Vista instalado(Dell); instalei o Delphi 7 e copiei meus projetos para ele, para trabalhar em casa; porém percebi que ao executar o programa ainda em tempo de Desenvolvimento ou seja na propria IDE do Delphi me aparece um erro que não aparece no XP; ou seja could not convert variant of type(null) into type(double); entrei em Tools-Debugger Options e desmarquei INTEGRATED DEBUGGING e funcionou normalmente, alguém saberia me dizer se tenho outras configurações para o VISTA em relação à isto e no geral para o Delphi 7 funcionar bem. grato Stainle
[delphi-br] Aggregate
Quando termino de incluir um registro no DBGrid o meu campo Aggregate que até então estava aparecendo em um DBText desaparece, quando começo à digitar um novo registro ele aparece novamente, ou seja, só visualizo se estiver digitando dados ou quando saio do foco do DBGrid, como eu poderia fazer para que o resultado aparecesse sempre ? grato Stainle
[delphi-br] Zerar campo Aggregate
boa noite, estou tendo dificuldade com o campo aggregate, tenho 3 CDS, os CDS1 e CDS2 tem campos aggregates e o CDS1 tem um campo internalcalc que soma os aggregates do CDS1 e CDS2, porém quando um dos CDS1 ou CDS2 não existir registros é somado ou um valor louco ou um valor do CDS anterior, gostaria de ZERAR o campo, como eu poderia fazer isto ??? grato Stainle
[delphi-br] Lookup como não usar
Bom dia, estou seguindo os conselhos do Bruno e tentando não usar Lookup nos CDS; estou fazendo assim: select cotaca01.cotacao, cotaca01.cliente, clientes.nome from cotaca01 left outer join clientes on cotaca01.cliente = clientes.codigo só é preenchido o CAMPO clientes.nome após um ApplyUpdates, como faria para que ficasse igual a um campo lookup que aparece este instantaneamente o resultado. grato Stainle
[delphi-br] ClientDataSet
Boa Tarde, pessoal estou tentando fazer uso do CommandText num
ClientDataSet que está sómente LOCAL, salvei os dados com
CDS1.SaveToFile('c:\usr\estoque', pfbinary) e quando abro um segundo
CDS e fazendo CDS2.LoadFromFile('c:\usr\estoque') carrego os dados
perfeitamente, mas agora preciso filtrar estes dados como SALDO = 0 por
exemplo, estou tentando fazer uso do COMMANDTEXT e criar meu select
mas não estou tento resultado, isto não é possível mesmo ?, tem outra
maneira de fazer isto ?
grato
Stainle
[delphi-br] Delphi sem BDE
Bom dia, estou refazendo meus sistemas para não mais usar o BDE, dentro aqui da empresa estou estudando entre SQLSERVER 2000 e FIREBIRD, mas nos notebooks ou que uso que NÃO precise instalar nada na máquina ??? porque se eu tiver que instalar um FIREBIRD por exemplo caio no mesmo esquema do BDE, preciso fazer uma instalação, o FIREBIRD embarcado serve para uma aplicação PESADA digamos assim ??? alguma sugestão seria bem vinda. grato Stainle
[delphi-br] Master/Detail - ClientDataSet
bom dia, eu consegui fazer Master/Detail usando tabelas do Banco de Dados, eu gostaria de saber se é possível e como faz usando sómente tabelas na memória ou seja: tabelas no ClientDataSet, sem ter relação com o BD. grato Stainle
[delphi-br] TSQLDataset - não responde
Boa tarde, estou às voltas com um problema que não consigo mesmo solucionar; ou seja: coloquei um TSQLDataset com a sentença select codcl, noc from clien where noc like :pnome', liguei um TDataSetProvider à ele e posteriormente um TClientDataSet ao TDataSetProvider; fiz 'fetch param' e enxerguei o parâmento no CDS, porém quando faço : CDS1.Close; CDS1.Params[0].AsString := Edit1.Text; CDS1.Open; nenhum registro aparece no DBGRID, porque será que não funciona ??? se alguém passou por isso, me ajude. grato Stainle
[delphi-br] QRLabel - Posição
Estou tentando ver a posição do QRLabel no QuickRep e não estou conseguindo, estou fazendo assim : QRLabel1.Caption := ' ' + IntToStr(QRLabel1.Left) + ' ' + IntToStr(QRLabel1.Top) + ' '; percebi que o valor correto está em QRLabel1.Size.Left mas não estou conseguindo obter este valor como consigo na linha acima, estou fazendo uns testes e seria importante estes dados. Alguém saberia a sintaxe correta para aplicar no comando acima ? grato Stainle
[delphi-br] ClientDataSet
Usando a combinação Query(bde) DataSetProvider e ClientDataSet eu estou conseguindo incluir; usando após o POST o CDS.ApplyUpdate(0); quando em inclusão tudo bem, porém quando vou alterar estes dados ao aplicar o POST me é informado que o CDS não está em Insert ou Edit mode, estou pensando em usar sómente o QUERY com algumas mudanças, pois não estou conseguindo fazer EDIÇÃO no REGISTRO. alguém tem uma solução ?? grato Stainle
[delphi-br] Insert - SQLServer 2000
usando Delphi 7 - Tabela do BDE, tento fazer uma inserção no SQLSERVER 2000 mas percebo que ao gravar vem a mensagem Table not Insert ou Edit; ou seja mesmo fazendo Table.Insert, quando vou gravar perco esta condição. Sei que vão dizer que o correto é usar Query, será que não consigo fazer com Table pois até mudar tudo para Query vai um certo tempo. grato Stainle
[delphi-br] ClientDataSet
Criei alguns campos aggregates no meu CDS, exclui um destes campos e ao fazer Create Dataset aparece Name not unique in the context, alguem sabe o porque?? grato Stainle
[delphi-br] ClientDataSet
no Win98 um programa com CDS deu o seguinte erro: Variant or safe array is locked nos outros S.O. funcionam normalmente. o que poderá ser ?? Stainle
[delphi-br] Console - Timer - Erro
se não colocar o ShowMessage lá no While não executa a rotina, não
estou sabendo o que colocar lá para funcionar pois na verdade eu
quero que execute a rotina; se eu tirar o While o programa cai fora.
Pensei em colocar sleep() mas não funcionou, estou perdido aqui.
grato
Stainle
Estou postando o código :
uses
Windows, SysUtils, Classes, ExtCtrls, Dialogs;
var
Alarme : TTimer;
a : integer;
type
TRotina = class
public
Procedure EventTimer(Sender:TObject);
end;
procedure TRotina.EventTimer(Sender: TObject);
begin
Alarme.Enabled := False;
ShowMessage('Estou na Rotina');
Alarme.Enabled := True;
end;
var
AClass : TRotina;
begin
Alarme := TTimer.Create(nil);
AClass := TRotina.Create;
Alarme.Interval := 1;
Alarme.OnTimer := AClass.EventTimer;
Alarme.Enabled := True;
a := 1;
While a = 1 do
begin
ShowMessage(IntToStr(a));
end;
end.
[delphi-br] Console
como faço para executar um Timer em uma aplicação CONSOLE, ou seja crio- o, habilito(enabled) e determino o tempo, como faço para ver se deu o tempo para executar uma rotina ?? grato Stainle
[delphi-br] Re: Console
veja como fiz, só não sei como executar;
uses
SysUtils, ExtCtrls;
var
Timer1 : TTimer;
begin
Timer1 := TTimer.Create(Nil);
Timer1.Enabled := True;
Timer1.Interval := 5600;
if Timer1.OnActived then (não sei aqui como é o codigo)
begin
end;
{ TODO -oUser -cConsole Main : Insert code here }
end.
Stainle
--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
[EMAIL PROTECTED] escreveu
O componente TTimer faz parte da unit extctrls. Crie um TTimer e
dentro de sua aplicação console, defina uma classe contendo um método
que possa ser atribuído ao evento OnTimer. Antes de habilitar o
timer, defina o valor da propriedade Interval desse TTimer para o
tempo (em milissegundos) que vc quer que a verificação de OnTimer
seja feita.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 25 Feb 2008 14:19:37 +
Subject: [delphi-br] Console
como faço para executar um Timer em uma aplicação CONSOLE, ou seja
crio-
o, habilito(enabled) e determino o tempo, como faço para ver se deu
o
tempo para executar uma rotina ??
grato
Stainle
_
Receba GRÁTIS as mensagens do Messenger no seu celular quando você
estiver offline. Conheça o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[delphi-br] Re: Console
pelo que entendi não estou sabendo criar a CLASSE e associar ao Evento do Timer, é isto ? Stainle --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu O componente TTimer faz parte da unit extctrls. Crie um TTimer e dentro de sua aplicação console, defina uma classe contendo um método que possa ser atribuído ao evento OnTimer. Antes de habilitar o timer, defina o valor da propriedade Interval desse TTimer para o tempo (em milissegundos) que vc quer que a verificação de OnTimer seja feita. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 25 Feb 2008 14:19:37 + Subject: [delphi-br] Console como faço para executar um Timer em uma aplicação CONSOLE, ou seja crio- o, habilito(enabled) e determino o tempo, como faço para ver se deu o tempo para executar uma rotina ?? grato Stainle _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br
[delphi-br] QuickReport
estou tentando escrever em um Formulário da Nota Fiscal com Delphi 7 e QuickReport, não estou conseguindo assimilar: meço em MM o quanto devo deslocar o componente no Quick para que se encaixe no local correto, porém percebi que devo multiplicar por 3 aproximadamente, ou seja se tenho que deslocar 15 mm para a esquerda, no Left do DBText por exemplo devo subtrair 45 mm e mesmo assim não fica bom, alguém poderia me explicar porque não corresponde a unidade de medida(MM) que leio nas propriedade do QuickReport com as que eu meço com a régua. estou usando a fonte Draft10. o que seria melhor para impressão de Nota Fiscal, o Quick ou o Fortes ?? grato Stainle
[delphi-br] ClientDataSet
Como faço para não gravar fisicamente os registro DELETADOS do CDS,
pois preciso às vezes por meio de um editor alterar alguns dados e lá
encontro registros que foram apagados.
uso CDS.SaveToFile('c:\arquivo.xml', dfXML);
grato
Stainle
[delphi-br] DBGrid
Como posso através do ENTER mudar de coluna no DBGrid, está saindo dele e indo para o próximo campo. grato Stainle
[delphi-br] Select
este funciona : --- select tt.tpre_no, sum(somou) as soma from ( select tpre_no, sum(tnotto) as somou from estmat where (tpre_no = '002' and tmes = 10 and tano =2007) group by tpre_no )tt group by tt.tpre_no este não; - select tt.tpre_no, sum(somou) as soma from ( select tpre_no, sum(tnotto) as somou from estmat where (tpre_no = '002' and tmes = 10 and tano =2007) group by tpre_no, select tpre_no, sum(tnotto) as somou from estf03 where (tpre_no = '002' and tmes = 10 and tano =2007) group by tpre_no ) tt group by tt.tpre_no onde está o erro ?, grato Stainle
[delphi-br] DBGrid
como coloco um EVENTO em um ou mais DBGRID´S criado em tempo de execução ? grato Stainle
[delphi-br] DBGrid
como coloco um EVENTO em um ou mais DBGRID´S criado em tempo de execução ? grato Stainle
[delphi-br] Catalogo Eletronico
Existe um programa específico para a criação de um catálogo eletrônico ou se consegue fazer no Delphi. grato Stainle
[delphi-br] Criar Form em Tempo de Execução
Consigo num mesmo instante criar mais de um FORM em tempo de execução e pelo NOME dos FORM´S criados ora chamar um ou outro, chamar o que eu digo é (FORM.SHOW). grato Stainle
[delphi-br] Evento no DBGrid
consegui criar tantos DBGRIDS quantos necessários; agora preciso que ao clicar em uma celula de um determinado GRID eu execute um EVENTO, alguém sabe como faço isto. grato Stainle
[delphi-br] Delphi x Catalogo
Preciso criar um catalogo eletrônico e estou tentando fazer no DELPHI usando o FIREBIRD EMBARCADO; alguém saberia me dizer se existe outra ferramenta para desenvolvimento deste catalogo ?. Em caso de se usar o DELPHI deparei com alguns problemas: tenho tabelas com enes títulos e para cada título tenho que abrir um DBGRID pois cada título tem suas colunas e um número variado de registros, pensei em criar componentes IBQuery, DataSource e DBGrids dinâmicamente em tempo de execução; existiria alguma restrição quanto a isto em caso de ocupação de memória e desalocação destes componentes após o uso ?, alguém teria um idéia diferente de como posso fazer isto. grato Stainle
[delphi-br] BDE
Utilizando Delphi 5, gostaria se saber se já existe o BDE instalado no computador e depois instalar o álias, estou tentando fazer esta operação : // Inicializa o ambiente do BDE Check(DBInit(nil)); dá um erro de compilação, qual seria a UNIT que tenho que declarar em USES ?? grato Stainle
[delphi-br] Navegar pelos diretórios
configurei um aliás no ACUODBC que localiza o arquivo em .\ ou seja a pasta ou diretório local, se eu fizer isto através da navegação na mão (change directory(CD)) e executar o programa em DELPHI 7, o arquivo existente nesta pasta é aberto tranquilamente; porém gostaria que o programa em DELPHI fizesse esta navegação pois existe em cada pasta um arquivo com o mesmo nome. Não posso colocar o caminho como se faz para abrir um arquivo texto; tenho que parar exatamente em cima do diretório. grato Stainle
[delphi-br] Forts Report
Usando Delphi 7 com Forts Reports como faço para usar o filtro DRAFT para que uma impressora Epson imprima em modo Draft(rápido) e não na forma em que fique lenta e imprima e negrito. Coloquei o Filtro que tem o Simbolo A(draft) no Report, como faço agora para que eu selecione este filtro na hora da impressão. grato Stainle
[delphi-br] Impressora Termica x Delphi 7
a impressão em uma impressora térmica com o Delphi 7 requer algo especial, como eu faria para imprimir nesta impressora ? grato Stainle
[delphi-br] Delphi perde Conexão
com TIMER num INTERVAL = 3000 (Delphi 7)
após 13 minutos aproximadamente a condição abaixo passa a ser
verdadeira; alguém saber me explicar ???
grato
Stainle
if not FileExists('h:\stcp\stainle\host04.txt') then
begin
WinExec('f:\usr\exe\host04.exe',SW_SHOW);
Application.Terminate;
end;
[delphi-br] Delphi perde Conexão
com TIMER num INTERVAL = 3000 (Delphi 7)
após 13 minutos aproximadamente a condição abaixo passa a ser
verdadeira; alguém saber me explicar ???
grato
Stainle
if not FileExists('h:\stcp\stainle\host04.txt') then
begin
WinExec('f:\usr\exe\host04.exe',SW_SHOW);
Application.Terminate;
end;
[delphi-br] Porque acontece isto
tenho uma máquina FTP mapeado como H:
através do DELPHI7 faço leituras nesta máquina em diretórios
específicos e mostro o conteúdo em ListBox, acontece que depois de
aproximadamente 30 minutos não mostra mais nada, se eu fechar o
programa e chamá-lo novamente volta a mostrar os conteúdos; fiz a
rotina abaixo para tentar ver se perdi a conexão mas não está dando
resultado, o que pode estar acontecendo ??
grato
Stainle
dirzip := 'H:\stcp\\';
begin
System.RmDir(pchar(dirzip));
end;
try
System.MkDir(pchar(dirzip));
except
ShowMessage('saindo ');
Application.Terminate;
exit;
end;
try
System.RMDir(pchar(dirzip));
except
ShowMessage('saindo 22');
Application.Terminate;
exit;
end;
Parafiliais();
Dasfiliais();
[delphi-br] Arquivo em Uso
Como posso saber se um arquivo TXT ou outro qualquer ainda está sendo gerado por outro aplicativo para que eu possa fazer uso deste arquivo, só irei usar se ele já estiver terminado(fechado). grato Stainle
[delphi-br] Re: Acesso à outra Rede
não tenho a mínima idéia de como usar, você tem algum exemplo ? grato Stainle --- Em delphi-br@yahoogrupos.com.br, Edu Nicácio [EMAIL PROTECTED] escreveu Já pensou em usar drivers de rede mapeados? E compartilhamentos padrão? Ex: \\192.168.0.200\D$\Arquivos \\192.168.5.200\E$\Entrada etc Abraços. Atenciosamente: Eduardo Cláudio Nicácio Analista Programador JR. Fábrica 02 - CTIS Tel.: (11) 3150-6834 [EMAIL PROTECTED] - Original Message - From: stainle2003 To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 28, 2007 8:19 PM Subject: [delphi-br] Acesso à outra Rede tenho várias redes(Empresa e Filiais), cada uma com a sua faixa de IP e redes diferentes(192.168.0.200 - Matriz e 192.168.5.200 - Filial BH) por exemplo, envio arquivos via FTP, porém gostaria de mudar e saber se existe um acesso para envio de arquivos sem ser o FTP, usando uma porta ou o próprio IP, existe grato Stainle [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] WinZip no Delphi
como posso acionar o programa WINZIP com parâmetros para que ele compacte os arquivos sem interagir com o usuário ??? grato Stainle
[delphi-br] Acesso à outra Rede
tenho várias redes(Empresa e Filiais), cada uma com a sua faixa de IP e redes diferentes(192.168.0.200 - Matriz e 192.168.5.200 - Filial BH) por exemplo, envio arquivos via FTP, porém gostaria de mudar e saber se existe um acesso para envio de arquivos sem ser o FTP, usando uma porta ou o próprio IP, existe grato Stainle
[delphi-br] Arquivo Texto
não consigo a partir de dois arquivos texto juntá-los num terceiro, alguém sabe outra madeira ou o que está errado no código abaixo. grato Stainle procedure TForm1.Button1Click(Sender: TObject); var dirzip, destzip, dirtemp, sentenca : string; begin dirzip := 'f:\usr\host\remoto\palm\filial99\plestdia.txt'; destzip := 'p:\servidor\003\Saida\plestdia.txt'; dirtemp := 'p:\servidor\003\Saida\Anterior\plestdia.txt'; CopyFile(pchar(destzip), pchar(dirtemp), false); destzip := 'p:\servidor\003\Saida\pleststa.txt'; sentenca := 'command.com /c copy ' + dirzip + ' + ' + dirtemp + ' ' + destzip; ShowMessage(dirzip); ShowMessage(dirtemp); ShowMessage(destzip); ShowMessage(sentenca); WinExec(pchar(sentenca), sw_ShowNormal); end;
[delphi-br] Delphi 5 x Delphi 7
Estou tentando mudar de DELPHI 5 para DELPHI 7, já deparei com um problema: o DUCK BARCODE não existe parao o 7 ???; se sim onde o encontro e se não qual o substitui grato Stainle
[delphi-br] Delphi desconectando Unidade
Tenho uma aplicação que le diretórios de um drive(H: meu servidor de FTP; e mostra o conteúdo em ListBox's conforme o diretório, o programa começa funcionando bem, porém depois de um certo tempo o conteúdo dos LisBox's ficam vazios(em branco) o que seria informção de não haver nada nos diretórios mas não e verdade pois ao encerrar o programa e executá-lo novamente o conteúdo nos ListBox's aparecem. Verifiquei que pelo Windows Explorer a conexão existe mas em um dado momento to DELPHI perde tal conexão e só ao reiniciar o programa é que ele enxerga novamente. alguem sabe o que eu deveria fazer para não acontecer mais isto ? grato Stainle
[delphi-br] Mensagem Estranha
Delphi 5 e Win 98, antigamente não acontecia isto; mudei algumas coisas no programa e agora ele executa normalmente até que num dado momento com a tela parada ele dá a mensagem : Canvas does Not Allow Drawing e depois a mensagem : Parâmetro Incorreto; não sei o que fazer, alguem saberia ??? grato Stainle
[delphi-br] Canvas does not allow drawing
alguém sabe porque dá este erro executando um programa em Delphi 5 com o Win98 grato Stainle
[delphi-br] Limpar Programa
como faço para apagar o conteúdo em pascal(evento) que fica após eu apagar um botão, edit, menu, etc ; se eu apagar antes de excluir o componente tudo bem senão fica no programa, como faço para apagar o que não é mais usado ou referenciado ? grato Stainle
[delphi-br] Executável x Memória
Estou tentando descentralizar um programa; o objetivo é que o programa fique mais rápido, então fiz um teste : o programa original tem 2139kb; joguei todos os FORM´S mara AUTO-CREATE e o tamanho do programa ficou com 2142KB, quando eu carrego o programa tudo isto vai para a memória(certo ), na hora de carregar o programa fica um pouco lento, mas depois, tudo bem, o que eu quero dizer é que não enxerguei vantagem em deixar os FORM´S em AVAILABLE e depois criá-lo e destruí-lo após o uso. Quando eu fragmentar o programa separarei os form´s e sei que o programa ficará menor, mas eu não queria excluir os form´s e sim colocá- los em AVAILABLE, pois em cada modulo que irei criar usarei cerca de 25 forms; alguém pode me explicar sobre o uso de Memória x Tamanho do programa e criação dos FORM´S assim que houver necessidade grato Stainle
[delphi-br] TAdoSql
Exatamente 3 minutos e 36 demorou o ADO para executar o select abaixo, será que não existe uma forma melhor que fique mais rápido, pois cada MES consultado demora 4 minutos, o ano todo deve demorar em torno de 40 minutos, é muito tempo. select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = 10) and (mat.tiano = 2006) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro SQL
usando o TQuery do Bde funciona; usando o TSQLDataSet do DBExpress dá o seguinte erro: SQL State : 42000,SQL Error Code: 170 Line 1: Incorrect syntax near ','. não se arrumar este erro; o código está abaixo, grato Stainle select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = :pmes) and (mat.tiano = :pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Erro SQL
percebi que se eu deixar sem parâmetro funciona normalmente, quando coloco parâmetros o TSQLDataSet apresenta o erro de Sintaxe, como deveria declarar os parâmetros ?? Stainle --- Em delphi-br@yahoogrupos.com.br, Nivaldo Stainle [EMAIL PROTECTED] escreveu o banco é o SQL SERVER, com o BDE(TQuery) funciona agora quero criar o servidor de aplicação e usar o DBExpress, aí não funcionou. Stainle Paulo Sérgio de Souza [EMAIL PROTECTED] escreveu: Bom dia Stainle, Se o seu banco de dados for Firebird, substitua os substring (campo,x,x) por substring(campo from x order x). Espero ter ajudado, Paulo Sérgio Desenvolvedor BHte./MG - Original Message - From: stainle2003 To: delphi-br@yahoogrupos.com.br Sent: Monday, November 06, 2006 10:04 AM Subject: [delphi-br] Erro SQL usando o TQuery do Bde funciona; usando o TSQLDataSet do DBExpress dá o seguinte erro: SQL State : 42000,SQL Error Code: 170 Line 1: Incorrect syntax near ','. não se arrumar este erro; o código está abaixo, grato Stainle select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano, sum(mat.ttotal) as Matriz, (select sum(f03.ttotal) from esif03 f03 where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3)) and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano) and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia, (select sum(f04.ttotal) from esif04 f04 where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3)) and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano) and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa, (select sum(f05.ttotal) from esif05 f05 where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3)) and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano) and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo, (select sum(f06.ttotal) from esif06 f06 where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3)) and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano) and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba, (select sum(f07.ttotal) from esif07 f07 where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3)) and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano) and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata from esimat mat where (mat.tiimes = :pmes) and (mat.tiano = :pano) and (mat.tiopera = 2) and (mat.tihisto = 'S') group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3) order by linha -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.1.409 / Virus Database: 268.13.28/518 - Release Date: 04/11/2006 [As partes desta mensagem que não continham texto foram removidas] - O Yahoo! está de cara nova. Venha conferir! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fechar Executável
Como eu poderia fechar um executável quando ele chamar outro; ou melhor o programa AA.exe eu chamo no prompt do DOS por exemplo, o AA tem uma opção para que eu chame o BB.exe só que o AA.exe fica na barra de tarefas, consigo fechá-lo na mão, como poderia fazer isto no próprio programa ? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Stored Procedure
criei a SP abaixo no SQLSERVER 2000;
porém quando tento executar :
Dados.StoredProc1.Prepare;
Dados.StoredProc1.ParamByName('@pmes').AsInteger := StrToInt
(Edit1.Text);
Dados.StoredProc1.ParamByName('@pano').AsInteger := StrToInt
(Edit2.Text);
Dados.StoredProc1.ExecProc;
Dados.StoredProc1.UnPrepare;
ocorre o seguinte erro :
General SQL Error.
Could not find stored procedure 'dbo.sp_Vendalin;1'.
ONDE ESTOU ERRANDO ?
grato
Stainle
CREATE PROCEDURE sp_Vendalin (@pmes integer, @pano integer)
as
select substring(mat.tcodigo, 1, 3) as linha, mat.tiimes, mat.tiano,
sum(mat.ttotal) as Matriz,
(select sum(f03.ttotal) from esif03 f03
where (substring(mat.tcodigo, 1, 3) = substring(f03.tcodigo, 1, 3))
and (mat.tiimes = f03.tiimes) and (mat.tiano = f03.tiano)
and (f03.tiopera = 2) and (f03.tihisto = 'S')) as Brasilia,
(select sum(f04.ttotal) from esif04 f04
where (substring(mat.tcodigo, 1, 3) = substring(f04.tcodigo, 1, 3))
and (mat.tiimes = f04.tiimes) and (mat.tiano = f04.tiano)
and (f04.tiopera = 2) and (f04.tihisto = 'S')) as Poa,
(select sum(f05.ttotal) from esif05 f05
where (substring(mat.tcodigo, 1, 3) = substring(f05.tcodigo, 1, 3))
and (mat.tiimes = f05.tiimes) and (mat.tiano = f05.tiano)
and (f05.tiopera = 2) and (f05.tihisto = 'S')) as Belo,
(select sum(f06.ttotal) from esif06 f06
where (substring(mat.tcodigo, 1, 3) = substring(f06.tcodigo, 1, 3))
and (mat.tiimes = f06.tiimes) and (mat.tiano = f06.tiano)
and (f06.tiopera = 2) and (f06.tihisto = 'S')) as Curitiba,
(select sum(f07.ttotal) from esif07 f07
where (substring(mat.tcodigo, 1, 3) = substring(f07.tcodigo, 1, 3))
and (mat.tiimes = f07.tiimes) and (mat.tiano = f07.tiano)
and (f07.tiopera = 2) and (f07.tihisto = 'S')) as SantaCata
from esimat mat
where (mat.tiimes = @pmes) and (mat.tiano = @pano) and (mat.tiopera =
2) and (mat.tihisto = 'S')
group by mat.tiimes, mat.tiano, substring(tcodigo, 1, 3)
order by linha
GO
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Firebird, campo Memo
como crio um campo MEMO no firebird ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird, campo Memo
como crio um campo MEMO no firebird ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird JPG
Pessoal consegui gravar e ler uma imagem JPG no Firebird/Interbase; agradeço a todos que se prontificaram para tal, porém percebi que a funcionalidade do meu programa(que é um catalago no CD)acabou indo por terra. Eu queria que ao clicar na imagem se conseguiria ler os dados do produto, com o BMP isto eu consegui mas com JPG não estou vendo como fazer isto pois não consigo usar o DBImage com JPG, alguém teria a solução ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Criar Tabela Firebird/Interbase
estou precisando criar tabelas no Firebird e não sei como; bem como ler uma tabela paradox e com a mesma estrutura criar uma tabela no FIREBIRD; é possível criar um campo na tabelo do Firebird/Interbase que armazene imagens JPG. caso alguém tenha a solução ou algum exemplo seria benvindo. grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Firebird Embutido
Tenho o Interbase 6.0 instalado; baixei o Firebird 1.5.3 e instalei, no painel de controle em serviços vejo tanto o Interbase em duas vezes como o Firebird funcionando. minha intenção é criar uma aplicação para rodar no CD. pergunto: preciso desinstalar o INTERBASE, como que crio as tabelas no FIREBIRD ? imagino que só depois de ter um sistema na máquina local é que devo levar para o CD ? pretendo usar o DELPHI 5 OU 7. alguém teria um passo à passo ? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Rodar Programa em CD
Preciso criar um programa de catálogos de preços; o mesmo terá que ser executado em um CD, quero usar o DELPHI 7 e quanto a base de dados não sei qual usar; o BDE terei que instalar nas máquinas que levarei o CD, o ADO seria uma opção ou o DBEXPRESS será a melho opção ?? qual seria a solução ?? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] BSS - Win98
1) no CommandText = select * from esto; só funciona nos clientes com windows 2000, XP, nos clientes com windows 98 não abre nem à pau. 2) no CommandText = select * from esto where codes = '001.11.001'; funciona legal em todo mundo. será que falta memório no Windows 98 ou é alguma configuração testei com : DBExpress -- o mais rápido BDE - segundo mais rápido ADO - uma carroça; não gostei. se alguém tiver a solução desde já agradeço, Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] BSS - Win98
1) no CommandText = select * from esto; só funciona nos clientes com windows 2000, XP, nos clientes com windows 98 não abre nem à pau. 2) no CommandText = select * from esto where codes = '001.11.001'; funciona legal em todo mundo. será que falta memório no Windows 98 ou é alguma configuração testei com : DBExpress -- o mais rápido BDE - segundo mais rápido ADO - uma carroça; não gostei. se alguém tiver a solução desde já agradeço, Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] SocketConnection
coloquei o SocketConnection no lugar do DCOM e configurei como 127.0.0.1 e funcionou perfeitamente; quando coloco o IP 192.168.0.250 que é onde está o programa servidor(meu) e o scktsrvr.exe rodando, não consigo fazer funcionar de maneira alguma, o que será que tenho que levar para o servidor ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] RemoteDataModule
Montei um RemoteDataModule(SERVIDOR) e na minha máquina funcionou perfeitamente, quando coloquei o programa na máquina que tem o SQLServer2000 e tentei usar o acesso(Client) deu a seguinte menssagem de erro : Erro ao carregar a biblioteca/DLL do tipo qual é o problema ?? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Re: Com +
e como eu uso o BSS ?? Stainle --- Em delphi-br@yahoogrupos.com.br, Bruno Lichot [EMAIL PROTECTED] escreveu O Objetivo do COM+ e o de prover uma abiente para contrução de aplicações multicamadas orientadas a prcessos, para melhorar processamento e tempo de resposta a lentidão naum necessariamente e proveniente do COM+, pod ser de placa, de protocolo, do serviço, da conexao, dos componentes de acesso..tem n fatores q influenciam isso.. mas se vc quer ser rapido use BSS ao inves de COM+ alem de ser mais facil a distribuição e manutenção e mto mais rapido tb. []´s Bruno Lichot Micrologos Dream Team Equipe Editorial ClubeDelphi DevMedia [EMAIL PROTECTED] [EMAIL PROTECTED] www.micrologos.com.br - www.clubedelphi.net - www.delphirio.assespro-rj.org.br De: stainle2003 [EMAIL PROTECTED] Para: [EMAIL PROTECTED] Assunto: [delphi-br] Com + Fiz um accesso ao SQL Server 2000 com o COM + (registrei o componente na minha máquina) usando SQLConect(dbexpress), SQLDataSet (dbexpress) e DataSetProvider(Data Access) e criei o programa CLIENT, accessou perfeitamente como manda o figurino, porém, achei que ficou muito lento, qual é o propósito do COM + ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] DBExpress
Dados.QueCli.SQL.Add('select codcl, noc, cic, endc, estac, fonec, vc,
vt, repgm, telgm from clien where noc like :wpnoc');
Dados.QueCli.ParamByName('wpnoc').AsString := '%' + Edit1.Text
+ '%';
porque não apresenta o resultado como na QUERY do BDE ?
Stainle
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: RES: [delphi-br] DBExpress
Não deu Certo, o DBGRID fica em branco e no BDE funciona.
Stainle
--- Em delphi-br@yahoogrupos.com.br, Douglas Uesato - Dept de
Informática [EMAIL PROTECTED] escreveu
Stainle,
Tenta fazer assim, vê se da certo
Dados.QueCli.ParamByName('wpnoc').AsString := QuotedStr('%' +
Edit1.Text +
'%');
Caso não de certo, como ele está apresentando os registros?
[]s
Douglas Uesato
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi-
[EMAIL PROTECTED] Em
nome de stainle2003
Enviada em: quarta-feira, 26 de abril de 2006 15:26
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] DBExpress
Dados.QueCli.SQL.Add('select codcl, noc, cic, endc, estac, fonec,
vc,
vt, repgm, telgm from clien where noc like :wpnoc');
Dados.QueCli.ParamByName('wpnoc').AsString := '%' +
Edit1.Text
+ '%';
porque não apresenta o resultado como na QUERY do BDE ?
Stainle
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Com +
Fiz um accesso ao SQL Server 2000 com o COM + (registrei o componente na minha máquina) usando SQLConect(dbexpress), SQLDataSet(dbexpress) e DataSetProvider(Data Access) e criei o programa CLIENT, accessou perfeitamente como manda o figurino, porém, achei que ficou muito lento, qual é o propósito do COM + ??? grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] DBExpress
Boa Tarde, utilizo em Query(BDE DBTables) do delphi 5 a sintaxe que pretendo transferir para o TSQLDataSet do DBExpress, porém dá um erro ao tentar activar o componente; o que poderá estar errado ?? select mat.tdia, mat.tmes, mat.tano, sum(mat.tnotto) as Matriz, (select sum(f03.tnotto) from estf03 f03 where (mat.tdia = f03.tdia) and (mat.tmes = f03.tmes) and (mat.tano = f03.tano) and (f03.topera = 2) and (f03.thisto = 'S')) as Brasilia, (select sum(f04.tnotto) from estf04 f04 where (mat.tdia = f04.tdia) and (mat.tmes = f04.tmes) and (mat.tano = f04.tano) and (f04.topera = 2) and (f04.thisto = 'S')) as Poa, (select sum(f05.tnotto) from estf05 f05 where (mat.tdia = f05.tdia) and (mat.tmes = f05.tmes) and (mat.tano = f05.tano) and (f05.topera = 2) and (f05.thisto = 'S')) as Belo, (select sum(f06.tnotto) from estf06 f06 where (mat.tdia = f06.tdia) and (mat.tmes = f06.tmes) and (mat.tano = f06.tano) and (f06.topera = 2) and (f06.thisto = 'S') and (f06.tufc 'SP')) as Curitiba, (select sum(f06.tnotto) from estf06 f06 where (mat.tdia = f06.tdia) and (mat.tmes = f06.tmes) and (mat.tano = f06.tano) and (f06.topera = 2) and (f06.thisto = 'S') and (f06.tufc = 'SP')) as CuritiSP, (select sum(f07.tnotto) from estf07 f07 where (mat.tdia = f07.tdia) and (mat.tmes = f07.tmes) and (mat.tano = f07.tano) and (f07.topera = 2) and (f07.thisto = 'S')) as SantaCata from estmat mat where (mat.tmes = :pmes) and (mat.tano = :pano) and (mat.topera = 2) and (mat.thisto = 'S') group by mat.tdia, mat.tmes, mat.tano order by mat.tdia grato Stainle -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
