Jhonas

Vai ai uma dica: exportar conteudo de um dbgrid pra xls procedure TForm1.BitBtn1Click(Sender: TObject); var FileName : String; begin if Application.MessageBox(\'Confirma a geração da planilha?\',\'Confirmação\',mb_YesNo) = mrYes then begin Query1.First; begin If SaveXls.Execute then begin With mxNativeExcel1 Do begin NewFile; FileName := SaveXls.filename; AddFont( bitbnt1.Font ); ActiveFont := 0; Row := 1; WriteLabel( Row, 1, \'campos\'); WriteLabel( Row, 2, \'campos\' ); WriteLabel( Row, 3, \' campos \' ); WriteLabel( Row, 4, \' campos \' ); WriteLabel( Row, 5, \' campos \' ); WriteLabel( Row, 6, \' campos \' ); WriteLabel( Row, 7, \' campos \' ); WriteLabel( Row, 8, \' campos \' ); WriteLabel( Row, 9, \' campos \' ); WriteLabel( Row, 10, \' campos \' ); Row := Row + 1; While not Query1.Eof do // LOOP NA TABELA begin WriteLabel( Row, 1, Query1.Campodatabela.AsString); WriteLabel( Row, 2, Query1.Campodatabela.AsString); WriteLabel( Row, 3, Query1.Campodatabela.AsString ); Query1.Next; Row := Row + 1; end; CloseFile; SaveToFile; Application.MessageBox(PChar(\'Planilha \' + SaveXls.FileName + \' gerada.\'),\'Aviso\',mb_Ok); Query1.First; end; end; end; end; end; Se quiser algo mais bodoso entre neste endereço: tem um exemplo muito bom http://www.activedelphi.com.br/modules.php...r=0&thold=0

Então tente montar um outro tipo de select para ver se resolve.

Uma das maneiras de corrigir isto é entrar nas propriedades do executavel ( clicando com o botão direito em cima do executavel e escolher propriedades ) va na aba de Compatibilidade na opção: Executar este programa em modo de compatilibidade, selecione windows 95, e clique no botão aplicar .

O delphi for PHP é pago ... a versão para teste funciona por 15 dias apenas O Delphi for PHP vem com ótimos exemplos... no diretório de instalação "Delphi for PHP\1.0\vcl\samples" Mai informações ( em ingles ) nestes endereços Site da MKT SYSTEM http://www.mktsystem.com.br Site da Netsoft http://www.netsoft.eti.br É necessario um conhecimento basico em PHP ...

Testei o seu codigo sem erros: unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, ADODB; type TDM = class(TDataModule) Conexao: TADOConnection; procedure ConexaoLogin(Sender: TObject; Username, Password: String); private { Private declarations } public { Public declarations } end; var DM: TDM; implementation {$R *.DFM} procedure TDM.ConexaoLogin(Sender: TObject; Username, Password: String); begin Dm.Conexao.Connected := False; Dm.Conexao.ConnectionString := 'Provider =Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName)+ 'Banco.mdb;Persist Security Info=False;'; Dm.Conexao.Connected := True; end; end. Nota: o componente ADO deve estar dentro do seu data module

Use as propriedades da Barra de Tarefas e do Menu Inciar para colocar o atalho do programa que sera executado quando o windows for iniciado

O erro esta no seu proprio codigo Dm.Conexao.ConnectionString : = 'Provider =Microsoft.Jet.OLEDB.4.0;Data Source=' + correto : olhe o espaço deixado entre dois pontos e igual Dm.Conexao.ConnectionString := 'Provider =Microsoft.Jet.OLEDB.4.0;Data Source=' +

Oi Eder ... tente esta mudança no seu codigo procedure TForm18.EncartaButton3Click(Sender: TObject); begin If DateTimePicker2.Date < DateTimePicker1.Date Then begin ShowMessage('Intervalo de Datas Inválido, a Data Inicial é maior que a Data Final!'); DateTimePicker2.Date := DateTimePicker1.Date; exit; end; with Query1 Do Begin Close; With SQL Do Begin Clear; Add('Select * from AR Where DATARECE is null and (DATA >= :DATAINI and DATA <= :DATAFIM) AND ENTREGA = ' + QUOTEDSTR ('XXXX')); End; ParamByName('DATAINI').AsDate := DateTimePicker1.Date; ParamByName('DATAFIM').AsDate := DateTimePicker2.Date; Open; Panel1.caption := IntToStr(Query1.RecordCount); //contar os registros consultados end; end; Tive um problema parecido usando o BETWEEN

Com a mesma facilidade que caracteriza o Delphi Win32, a versão para PHP permite desenvolver aplicativos para a web em ambiente 100% visual, com direito a bibliotecas de código aberto, scripts e compatibilidade com os principais bancos de dados. Sempre que sua aplicação for executada no ambiente de desenvolvimento, é executado paralelamente o servidor Apache que acompanha o Delphi for PHP. Isso faz com que não seja necessária sequer uma linha de configuração em sua estação de trabalho. Ao final do projeto, basta gerar o pacote de instalação da aplicação na web. Sua aplicação feita em Delphi for PHP poderá ser executada em qualquer plataforma com PHP (Linux, Windows, Solaris etc). http://webinsider.uol.com.br/index.php/200...delphi-for-php/

O componente TMediaPlayer não dá acesso as propriedades de audio da placa de som ( onde voce iria optar por escolher o dispositivo onde o som seria reproduzido ) , voce tem que procurar um componente que faça isso. Não tenho certeza se o TAudio tem isso, mas voce pode procurar neste endereço: http://www.torry.net/pages.php?id=167

Voce pode colocar o codigo no evento : procedure TForm1.ADOConnection1Login(Sender: TObject; Username, Password: String); begin Dm.Conexao.Connected := False; Dm.Conexao.ConnectionString : = 'Provider =Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName)+ 'Banco.mdb;Persist Security Info=False;'; Dm.Conexao.Connected := True; end; ou pode escolher outro local

para executar o bat faça o seguinte winexec ('c:\teste.bat',sw_hide);

Voce tem tirar a diferença entre o inicio e o fim do tempo decorrido ou seja, ao iniciar a função voce dispara o cronometro do time ex: definir variaveis: temp, temp1, temp2 : TTime; temp1 := time(); // inicia a contagem de tempo para calculo do tempo gasto para execução ao teminar a função voce dispara novamente temp2 := time(); // Termina a contagem de tempo para calculo do tempo gasto para execução depois e so calcular a diferença entre o inicio e o fim temp := (temp2 - temp1); Label1.Caption := timetostr(temp); // mostra quanto tempo levou para executar a função ou rotina

procure pelas propriedades de colunas e linhas ( col , row ) e defina um tamaho maximo de uso para elas .... eu não tenho o componente por isso não sei te dizer com certeza onde alterar ....

É possivel fazer isto usando o delphi for php.

Voce deve usar um editor de skins (Skin Builder ) para poder alterar os valores das chaves (key) que controlam o skin

EInvalidGridOperation é mostrado se uma aplicação tentar ter acesso uma celula ou coluna que não existem dentro do grid. Verifique qual a quantidade de celulas que o componente Prtgrid pode trabalhar.

Para entnder um pouco mais como criar componentes: http://www.dpi.ufv.br/downloads/cursoKylix...tilas/ccu04.htm

Este erro acontece devido a atualização que foi feita em cima do word 2003. para solucionar deve-se desinstalar o microsoft office e instalar a nova versão.

Amigo, a unica variavel limitada a 127 ShortInt: Tipo numerico inteiro que pode assumir valores numa faixa de -128 a +127 ocupa 1 byte de memoria coloque a parte do seu codigo onde acontece o erro, para poder entender melhor o que esta acontecendo.

Acho que não é possivel, mas mesmo que seja, não é recomendavel mexer com o serviço do interbase server manager, pode causar problemas.

EDatabaseErro whith mensagem ' Query: Parâmetro ' nome' não encontrado', Processo parou. aparentemente pareçe que voce definiu um parametro chamado 'nome' mas ao abrir a query este paramentro não esta aparecendo, como se voce tivesse definido assim = :nome ou Parameters.ParamByName('nome').Value ... da uma verificada na propriedade Params da query.

Em tempo de compilação não é possivel executar uma função, somente em tempo de execução.

Existe um componente que é pago, para fazer este tipo de conexão em VB, delphi, visual c++ Componente de GPRS - ActiveX/DLL - V1.5.3.129 através de Tecnologias de Cliente de iNET - Tipo de Produto: Componente / ActiveX DLL / DLL

não precisa dar todas as permissões somente aquelas para poder usar o programa .