RES: [delphi-br] Aplicação SOAP com Oracle
Já procurei, mas não encontrei. Não acredito que seja um problema com o Oracle, pois do lado servidor consigo acesso normal, o que não acontece do lado cliente via SOAP. Tanto cliente quanto servidor estão na mesma máquina. Vicente Lima _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Francisco Thiago Enviada em: segunda-feira, 31 de julho de 2006 17:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Aplicação SOAP com Oracle O primeiro passo é vc pegar o manual do Oracle e procura na lista de erros esse tal erro ai. 65535. Daí, caso você não consiga resolver isso, manda pra gente, que nós tentamos te ajudar :D []'s Francisco Thiago de Almeida Enter Plug Informática Divisão: Desenvolvimento e Banco de dados Franca / SP msn: [EMAIL PROTECTED] http://enterplug.no-ip.com/sistema_ctrc/ - Original Message - From: vtlci [EMAIL PROTECTED] To: delphi-br delphi-br@yahoogrupos.com.br Sent: Monday, July 31, 2006 5:07 PM Subject: [delphi-br] Aplicação SOAP com Oracle Amigos, Estou começando a desenvolver uma aplicação SOAP utilizando o banco de dados o Oracle. Na aplicação servidor até o momento esta tudo bem, porem, no cliente, toda vez que tento ativar o ClienteDataset este me retorna o erro: dbExpress error: Unknown error code 65535 Vocês teriam alguma idéia de como resolver isto?, uso o Delphi 2006 com o Oracle 9. Desde já agradeço a atenção, Vicente Lima [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos ___ Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! http://br.mobile.yahoo.com/mailalertas/ [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] Skin para Delphi
Pessoal, Alguém sabe onde posso conseguir um componente Skin para Delphi que seja FREE. Agradeço a colaboração. Vicente Lima [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] ou [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] Grid zebrado
Pessoal, A propriedade Recno da Table, acessando um banco de dados Oracle so me retorna -1, estou tentando fazer um Grid zebrado. Existe alguma outra forma de fazer isto, utilizando uma propriedade do DBGrid por exemplo. Vicente Lima [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] ou [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
Re: [delphi-br] Re: Grid zebrado
Em todas as situações a propriedade Recno esta retornando -1, por isto o efeito zebrado não esta funcionando. Se fosse possível identificar o número da linha do DbGrid, eu poderia usar no lugar do recno, não sei se tem como fazer isto. Vicente Lima - Original Message - From: Carlos Eduardo L. de Souza [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, August 29, 2005 9:36 AM Subject: [delphi-br] Re: Grid zebrado Veja se isto funciona: procedure TfrmClienteMalaDireta.grdClientesDrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin inherited; if (Field.DataSet.RecNo mod 2) = 0 then begin grdClientes.Canvas.Brush.Color := $D1; grdClientes.Canvas.Font.Color := clBlack; end else begin grdClientes.Canvas.Brush.Color := clWhite; grdClientes.Canvas.Font.Color := clBlack; end; grdClientes.Canvas.FillRect(Rect); grdClientes.DefaultDrawDataCell(Rect,Field,State); end; //Eduardo --- Em delphi-br@yahoogrupos.com.br, Vicente Lima [EMAIL PROTECTED] escreveu Pessoal, A propriedade Recno da Table, acessando um banco de dados Oracle so me retorna -1, estou tentando fazer um Grid zebrado. Existe alguma outra forma de fazer isto, utilizando uma propriedade do DBGrid por exemplo. Vicente Lima [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] ou [EMAIL PROTECTED] 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] ou [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
Re: [delphi-br] Grid zebrado
Em todas as situações a propriedade Recno esta retornando -1, por isto o
efeito zebrado não esta funcionando.
Se fosse possível identificar o número da linha do DbGrid, eu poderia usar
no lugar do recno, não sei se tem como fazer isto.
Vicente Lima
- Original Message -
From: edisondrp [EMAIL PROTECTED]
To: delphi-br@yahoogrupos.com.br
Sent: Monday, August 29, 2005 10:05 AM
Subject: Re: [delphi-br] Grid zebrado
Ola Vicente
No código abaixo voce tem exemplos que com modificações poderão fazer o que
quizer com um grid
[]s Edison
Como mudar cores e fontes de uma determinada celula em um DBGrid de acordo
com seu valor, ou seleção
procedure TFConsultarItens.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var I : integer;
begin
with DBGrid1 do
begin
// mude a cor das celulas em que FieldValor1 = 0
if(FieldValor1.Value = 0) then
if(column.Index = 1) then
Canvas.brush.Color:= clLime;
// se coluna 6 contiver 'Amarelo' mude a cor da célula para red - mude para
negrita
if(column.Index = 6) then
if(pos('Amarelo', FieldNomeCor.asstring) 0) then
begin
Canvas.brush.Color:= clred;
Canvas.Font.Color:= clWhite;
Canvas.Font.Style := [fsbold];
end;
// mude a cor de celulas selecionadas
if(gdSelected in State) then
begin
Canvas.brush.Color:= clblue;
Canvas.Font.Color:= clWhite;
end;
// mude a cor das celulas com foco
if(gdfocused in State) then
begin
Canvas.brush.Color:= clYellow;
Canvas.Font.Color:= clBlue;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,state);
end;
end;
- Original Message -
From: Vicente Lima [EMAIL PROTECTED]
To: Delphi-br delphi-br@yahoogrupos.com.br
Sent: Monday, August 29, 2005 8:21 AM
Subject: [delphi-br] Grid zebrado
Pessoal,
A propriedade Recno da Table, acessando um banco de dados Oracle so me
retorna -1, estou tentando fazer um Grid zebrado.
Existe alguma outra forma de fazer isto, utilizando uma propriedade do
DBGrid por exemplo.
Vicente Lima
--
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] ou [EMAIL PROTECTED]
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] ou [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
Re: [delphi-br] Exportação para Excel
Funcionou, valeu a dica. Vicente Lima - Original Message - From: tatu [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 18, 2005 4:25 PM Subject: RES: [delphi-br] Exportação para Excel veja se enviado junto ao string de numero antes do mesmo coloque aspas simples...apenas 1... No excel trata isso como caracter... Santiago Cuello NSR Informática 11 6601 6161 11 9914 0823 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Vicente Lima Enviada em: quinta-feira, 18 de agosto de 2005 16:19 Para: Delphi-br Assunto: [delphi-br] Exportação para Excel Amigos, Estou gerando uma planilha no Excel obtendo os dados de uma tabela, ate ai tudo bem, só que quando exporto um campo string preenchido com números, é gerado no Excel uma coluna numérica com um valor convertido. Exemplo: Campo: Reservista Valor : 123456789134 Resultado no Excel: 123085+8675^3 (não exatamente isto mas algo parecido) Há solução para este problema ? Vicente Lima [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: HYPERLINK http://br.groups.yahoo.com/group/delphi-br/messageshttp://br.groups.ya hoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] _ Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: HYPERLINK http://br.groups.yahoo.com/group/delphi-br/http://br.groups.yahoo.com/ group/delphi-br/ * Para sair deste grupo, envie um e-mail para: HYPERLINK mailto:[EMAIL PROTECTED]del [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos HYPERLINK http://br.yahoo.com/info/utos.htmlTermos do Serviço do Yahoo!. -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 267.10.10 - Release Date: 15/8/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 267.10.10 - Release Date: 15/8/2005 [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] ou [EMAIL PROTECTED] 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] ou [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
Re: [delphi-br] Exportação para Excel
Funciona perfeitamente, valeu a dica. Vicente Lima - Original Message - From: Claudio H.Binaghi [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, August 18, 2005 4:35 PM Subject: Re: [delphi-br] Exportação para Excel Vicente, Boa tarde! O que você esta vendo na Excel é pura ilusão idiotica, finja que não viu nada e continue a sua vida feliz e alegre. (eheh brincadeirinha) Na verdade é uma simples formatação cientifica! O valor do número não muda em nada isto é usado para compactar o número de forma a visualizar num espaço menor, então se você formatar a célula para numero sem casas decimais você tera o seu número da forma original, como fazer? Selection.NumberFormat = 0 // Zero é o numero de casas decimais que você queira Caso tenha dúvida, diga que ajudamos. Boa sorte. Claudio H.Binaghi [EMAIL PROTECTED] Al. Ribeirão Preto, 266 Fone: (11) 3288-4840 - Original Message - From: Vicente Lima [EMAIL PROTECTED] To: Delphi-br delphi-br@yahoogrupos.com.br Sent: Thursday, August 18, 2005 4:19 PM Subject: [delphi-br] Exportação para Excel Amigos, Estou gerando uma planilha no Excel obtendo os dados de uma tabela, ate ai tudo bem, só que quando exporto um campo string preenchido com números, é gerado no Excel uma coluna numérica com um valor convertido. Exemplo: Campo: Reservista Valor : 123456789134 Resultado no Excel: 123085+8675^3 (não exatamente isto mas algo parecido) Há solução para este problema ? Vicente Lima [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] ou [EMAIL PROTECTED] Links do Yahoo! Grupos -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.12/75 - Release Date: 17/08/2005 -- 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] ou [EMAIL PROTECTED] 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] ou [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] Exportação para Excel
Amigos, Estou gerando uma planilha no Excel obtendo os dados de uma tabela, ate ai tudo bem, só que quando exporto um campo string preenchido com números, é gerado no Excel uma coluna numérica com um valor convertido. Exemplo: Campo: Reservista Valor : 123456789134 Resultado no Excel: 123085+8675^3 (não exatamente isto mas algo parecido) Há solução para este problema ? Vicente Lima [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] ou [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] Componente para QuickRepot
Pessoal, Alguém poderia me indicar um componente, pago ou não, que exporte um relatório do QuickReport para o Excel. Agradeço a colaboração. Vicente Lima [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] ou [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] Apagar Pasta ou Sub-Pasta
Ola pessoal, Alguem teria uma função ou exemplo de como apagar pastas e/ou sub-pastas de um programa delphi. Vicente Lima [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] ou [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] Exportação para Excel
Fiz uma rotina para exportar do Delphi para o Excel, no entanto quando exporto um valor tipo 100.00, no Excel ele sempre aparece com 100. Existe alguma solução para isto ? Já formatei o valor para string '100.00' no Delphi e nada. Vicente Lima [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] ou [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
Re: [delphi-br] Importação Planilha Excel
Valeu a dica.
Vicente Lima
- Original Message -
From: Rogério [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 18, 2004 2:26 PM
Subject: Re: [delphi-br] Importação Planilha Excel
Tenho o inverso...
De Tabela/Query para Excel, mas você pode adaptar para atender a sua
necessidade.
Segue abaixo:
Obs: o objeto Pb, é apenas uma progress bar.
Procedure TFormVertices.BitBtn1Click(Sender: TObject);
Var
RangeE : Excel2000.Range;
//RangeE : Excel97.Range; // quando for o Office97 que vc. estiver
utilizando !
I, Row : Integer;
cOcorrencia : String;
//wIni, wFin : OleVariant;
//wIni, wFin : Integer;
begin
try
QBaseVert.Open; // Abre Caso Não Esteja Aberta
QBaseVert.First;
//##
#
Screen.Cursor := crHourGlass;
Pb.Visible := True;
Pb.Position:=0;
Pb.Min:=0;
Pb.Max:=QBaseVert.RecordCount;
//##
#
// Abre o Excel
ExcelApplication1.Visible[ 0 ] := True;
// Cria a planilha
ExcelApplication1.Workbooks.Add( NULL, 0 );
// Set no Range da Célula Ativa
RangeE := ExcelApplication1.ActiveCell;
// Cabeçalho (Opcional)
RangeE.Value := 'Transações Analíticas - Data: ' + DateToStr( Now ) ;
// Muda o formato da data no Aplicativo para os Campos Tipo Data
// Se não mudar, o Excel pode ficar maluco caso sejam Campos Data
(Testar)
ShortDateFormat := 'mm/dd/';
Row := 3;
RangeE := ExcelApplication1.Range[ 'A' + IntToStr( Row ),
'A' + IntToStr( Row ) ];
// coloca os nomes de campos na linha 3
// -1 porque Fields.Count começa no Index = 0
for i := 0 to QBaseVert.Fields.Count - 1 do
begin
RangeE.Value := QBaseVert.Fields[ i ].DisplayLabel;
RangeE := RangeE.Next;
end;
// Adiciona os dados da QBaseVert
QBaseVert.DisableControls;
Try
QBaseVert.First;
//cOcorrencia := QBaseVertNOME_OCORR.AsString;
//cOcorrencia := TblSource.Fields[ 1 ].AsString ;
// Os Dados Começam na linha 4
Row := 4;
while not QBaseVert.EOF do
begin
RangeE := ExcelApplication1.Range[ 'A' + IntToStr ( Row ), 'A' +
IntToStr( Row ) ];
for I := 0 to QBaseVert.Fields.Count - 1 do
begin
//if ( QBaseVert.Fields[ i ].AsString = 'True' ) Then // Para
Campos Tipo Boolean
// RangeE.Value := 'X'
//else
if QBaseVert.Fields[ i ].DataType in [ftFloat] then
begin
RangeE.Value := QBaseVert.Fields[ i ].AsFloat ;
end
else
if QBaseVert.Fields[ i ].DataType in [ftSmallint, ftInteger,
ftWord, ftCurrency, ftBCD, ftBytes, ftVarBytes, ftAutoInc, ftLargeint ]
then
begin
RangeE.Value := FormatFloat('#,##0.00', QBaseVert.Fields[
i ].AsFloat) ;
end
else
begin
RangeE.Value := QBaseVert.Fields[ i ].AsString;
end;
RangeE := RangeE.Next;
end;
QBaseVert.Next;
// Quando mudar de Ocorrência ...
//if (QBaseVertNOME_OCORR.AsString cOcorrencia) then
//if (TblSource.Fields[ 1 ].AsString cOcorrencia) then
//begin
//inc( Row ); // Faz Pular a Linha
// RangeE.Value := '';
//cOcorrencia := QBaseVertNOME_OCORR.AsString;
// cOcorrencia := TblSource.Fields[ 1 ].AsString;
//end;
Inc( Row );
Pb.Position := Pb.Position + 1;
//FormConciliacaoTransacoes.Refresh;
end;
Finally
QBaseVert.EnableControls;
end;
// formata as células ( AutoFormat do Excel )
RangeE := ExcelApplication1.Range[ 'A1', 'AA' + IntToStr( Row - 1 ) ];
//RangeE := ExcelApplication1.Range[ IntToStr(wIni), IntToStr(wFin) ];
RangeE.AutoFormat( 3, NULL, NULL, NULL, NULL, NULL, NULL );
// Volta o formato da data para o correto
ShortDateFormat := 'dd/mm/';
finally
Pb.Visible := False;
Pb.Position:=0;
Screen.Cursor := crDefault;
ExcelApplication1.Disconnect;
end;
end;
Espero que sirva !
[ ]'s
Rogério
- Original Message -
From: Vicente Lima [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Monday, October 25, 2004 4:09 PM
Subject: [delphi-br] Importação Planilha Excel
Pessoal.
Alguém teria um exemplo ou apostila que mostre como importar uma
planilha do Excel via Delphi.
Vicente Lima
[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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
FAVOR REMOVER ESTA PARTE
