Fórum access em clx #207832
20/01/2004
0
mais uma vez...
alguém sabe como manipular base em access .mdb em uma aplicação clx ?
peço que me ajudem o mais rapido que puderem pois desde 12:30 estou tentando a ajuda do grupo mas o moderador apagou meu tópico 2vezes só pq eu coloquei ´access´ e ´clx´ em maiúscula...
tá certo que pal;avras em maiúscula em nosso ramo significa ´gritar´ mas acho que poderia haver bom senso daqueles que fazem as regras por aqui pois acho que muitos aqui já viram milhares d vezes clx em maiúscula e mais uma dúzia de vezes o nome do exe access....
mas já que é tão difícil assim, então peço desculpas por ter desacatado uma lei do grupo.
espero que vcs não apaguem essa mensagem, e que alguém pelo amor de deus me ajude pois estou esperando a resposta da mensagem que vcs apagaram 2vezes o dia inteiro !!
obrigada.
Juliana S. Ch.
alguém sabe como manipular base em access .mdb em uma aplicação clx ?
peço que me ajudem o mais rapido que puderem pois desde 12:30 estou tentando a ajuda do grupo mas o moderador apagou meu tópico 2vezes só pq eu coloquei ´access´ e ´clx´ em maiúscula...
tá certo que pal;avras em maiúscula em nosso ramo significa ´gritar´ mas acho que poderia haver bom senso daqueles que fazem as regras por aqui pois acho que muitos aqui já viram milhares d vezes clx em maiúscula e mais uma dúzia de vezes o nome do exe access....
mas já que é tão difícil assim, então peço desculpas por ter desacatado uma lei do grupo.
espero que vcs não apaguem essa mensagem, e que alguém pelo amor de deus me ajude pois estou esperando a resposta da mensagem que vcs apagaram 2vezes o dia inteiro !!
obrigada.
Juliana S. Ch.
Venus
Curtir tópico
+ 0
Responder
Posts
20/01/2004
Aroldo Zanela
Colega,
Acho que a forma mais simples de fazer um upsize do MDB para Interbase/Firebird e utilizando o próprio DataPump que é instalado com o conjunto de programas do Delphi.
Se não conseguir, podemos continuar avançando em suas dúvidas neste tópico até a solução final.
Acho que a forma mais simples de fazer um upsize do MDB para Interbase/Firebird e utilizando o próprio DataPump que é instalado com o conjunto de programas do Delphi.
Se não conseguir, podemos continuar avançando em suas dúvidas neste tópico até a solução final.
Responder
Gostei + 0
20/01/2004
Emersonsj
Você pode criar um arquivo texto do tipo ´CSV´ e depois abrir no excel
ou manipular os registro do banco direto para o Excel utilizando as ferramenta da palheta Server um ExcelWorksheet1, ExcelApplication1
este exemplo de codigo foi o que eu utilizei no meu aplicativo procure entender só o que é relacionado ao excel qualquer duvida se vc pesquisar num saite de busca um assunto sobre os componentes da palheta server vc vai achar espero que isso te ajude.
ExcelApplication1.Connect;
lcid := GetUserDefaultLCID;
ExcelApplication1.DisplayAlerts[lcid] := false;
wkbk1 := ExcelApplication1.Workbooks.Add(EmptyParam, lcid);
ExcelWorksheet1.ConnectTo(WkBk1.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Activate(LCID);
ExcelWorksheet1.Name := ´Cadastro de Participantes´;
vLinha1 := 2;
DMCondefMa.ADOcENT_ParticipConsulta.First;
ExcelWorksheet1.Range[´A1´, ´A1´].Value := ´CÓDIGO DO PLANO´;
ExcelWorksheet1.Range[´B1´, ´B1´].Value := ´GRUPO DA PATROCINADORA´;
ExcelWorksheet1.Range[´C1´, ´C1´].Value := ´NOME DA PATROCINADORA´;
ExcelWorksheet1.Range[´D1´, ´D1´].Value := ´NOME DA FILIAL´;
ExcelWorksheet1.Range[´E1´, ´E1´].Value := ´MATRÍCULA´;
ExcelWorksheet1.Range[´F1´, ´F1´].Value := ´NOME DO PARTICIPANTE´;
ExcelWorksheet1.Range[´G1´, ´G1´].Value := ´CPF´;
ExcelWorksheet1.Range[´H1´, ´H1´].Value := ´SEXO´;
ExcelWorksheet1.Range[´I1´, ´I1´].Value := ´NASCIMENTO´;
ExcelWorksheet1.Range[´J1´, ´J1´].Value := ´ESTADO CIVIL´;
ExcelWorksheet1.Range[´K1´, ´K1´].Value := ´MÊS ÚLTIMO SALÁRIO´;
ExcelWorksheet1.Range[´L1´, ´L1´].Value := ´VALOR ÚLIMO SALÁRIO´;
ExcelWorksheet1.Range[´M1´, ´M1´].Value := ´ADMISSÃO GRUPO´;
ExcelWorksheet1.Range[´N1´, ´N1´].Value := ´ADMISSÃO´;
ExcelWorksheet1.Range[´O1´, ´O1´].Value := ´ADESÃO GRUPO´;
ExcelWorksheet1.Range[´P1´, ´P1´].Value := ´ADESÃO´;
ExcelWorksheet1.Range[´Q1´, ´Q1´].Value := ´EFETIVA 1º PLANO´;
ExcelWorksheet1.Range[´R1´, ´R1´].Value := ´INSCRIÇÃO´;
ExcelWorksheet1.Range[´S1´, ´S1´].Value := ´PARTICIPAÇÃO´;
ExcelWorksheet1.Range[´T1´, ´T1´].Value := ´ATIVIDADE´;
ExcelWorksheet1.Range[´U1´, ´U1´].Value := ´SITUAÇÃO´;
ExcelWorksheet1.Range[´V1´, ´V1´].Value := ´ÚLTIMA TRANSAÇÃO´;
ExcelWorksheet1.Range[´W1´, ´W1´].Value := ´LOGRADOURO´;
ExcelWorksheet1.Range[´X1´, ´X1´].Value := ´COMPLEMENTO´;
ExcelWorksheet1.Range[´Y1´, ´Y1´].Value := ´BAIRRO´;
ExcelWorksheet1.Range[´Z1´, ´Z1´].Value := ´CIDADE´;
ExcelWorksheet1.Range[´AA1´, ´AA1´].Value := ´UF´;
ExcelWorksheet1.Range[´AB1´, ´AB1´].Value := ´CEP´;
ExcelWorksheet1.Range[´AC1´, ´AC1´].Value := ´PAÍS´;
ExcelWorksheet1.Range[´AD1´, ´AD1´].Value := ´TELEFONE´;
ExcelWorksheet1.Range[´AE1´, ´AE1´].Value := ´ENDEREÇO ELETRÔNICO´;
Progresso.MaxValue := DMCondefMa.ADOcENT_ParticipConsulta.RecordCount;
while not vCancelar and not DMCondefMa.ADOcENT_ParticipConsulta.Eof do
begin
Application.ProcessMessages;
Progresso.Progress := vLinha1;
ExcelWorksheet1.Range[´A´+IntToStr(vLinha1),
´A´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CodPlano´).AsString;
ExcelWorksheet1.Range[´B´+IntToStr(vLinha1),
´B´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeGrupo´).AsString;
ExcelWorksheet1.Range[´C´+IntToStr(vLinha1),
´C´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomePatrocin´).AsString;
ExcelWorksheet1.Range[´D´+IntToStr(vLinha1),
´D´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeFilial´).AsString;
ExcelWorksheet1.Range[´E´+IntToStr(vLinha1),
´E´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CodParticip´).AsString;
ExcelWorksheet1.Range[´F´+IntToStr(vLinha1),
´F´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeParticip´).AsString;
ExcelWorksheet1.Range[´G´+IntToStr(vLinha1),
´G´+IntToStr(vLinha1)].Value := Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,1,3)+´.´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,4,3)+´.´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,7,3)+´-´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,10,2);
ExcelWorksheet1.Range[´H´+IntToStr(vLinha1),
´H´+IntToStr(vLinha1)].Value := Dominio(6,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomSexo´).AsInteger);
ExcelWorksheet1.Range[´I´+IntToStr(vLinha1),
´I´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtNascimento´).AsString;
ExcelWorksheet1.Range[´J´+IntToStr(vLinha1),
´J´+IntToStr(vLinha1)].Value := Dominio(7,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomEstadoCivil´).AsInteger);
ExcelWorksheet1.Range[´K´+IntToStr(vLinha1),
´K´+IntToStr(vLinha1)].Value := Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´AmUltSalario´).AsString,5,2)+´/´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´AmUltSalario´).AsString,1,4);
ExcelWorksheet1.Range[´L´+IntToStr(vLinha1),
´L´+IntToStr(vLinha1)].Value := FormatFloat(´0.00´,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´ValorSalario´).Value);
ExcelWorksheet1.Range[´M´+IntToStr(vLinha1),
´M´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdmissaoGrp´).AsString;
ExcelWorksheet1.Range[´N´+IntToStr(vLinha1),
´N´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdmissao´).AsString;
ExcelWorksheet1.Range[´O´+IntToStr(vLinha1),
´O´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdesaoGrp´).AsString;
ExcelWorksheet1.Range[´P´+IntToStr(vLinha1),
´P´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdesao´).AsString;
ExcelWorksheet1.Range[´Q´+IntToStr(vLinha1),
´Q´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtEfetivaPrimeiroPlano´).AsString;
ExcelWorksheet1.Range[´R´+IntToStr(vLinha1),
´R´+IntToStr(vLinha1)].Value := Dominio(14,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomInscricao´).AsInteger);
ExcelWorksheet1.Range[´S´+IntToStr(vLinha1),
´S´+IntToStr(vLinha1)].Value := Dominio(15,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomParticipacao´).AsInteger);
ExcelWorksheet1.Range[´T´+IntToStr(vLinha1),
´T´+IntToStr(vLinha1)].Value := Dominio(13,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomAtividade´).AsInteger);
ExcelWorksheet1.Range[´U´+IntToStr(vLinha1),
´U´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeSituacao´).AsString;
ExcelWorksheet1.Range[´V´+IntToStr(vLinha1),
´V´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeTransacao´).AsString;
ExcelWorksheet1.Range[´W´+IntToStr(vLinha1),
´W´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Logradouro´).AsString;
ExcelWorksheet1.Range[´X´+IntToStr(vLinha1),
´X´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Complemento´).AsString;
ExcelWorksheet1.Range[´Y´+IntToStr(vLinha1),
´Y´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Bairro´).AsString;
ExcelWorksheet1.Range[´Z´+IntToStr(vLinha1),
´Z´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Cidade´).AsString;
ExcelWorksheet1.Range[´AA´+IntToStr(vLinha1),
´AA´+IntToStr(vLinha1)].Value := Dominio(8,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomUf´).AsInteger);
ExcelWorksheet1.Range[´AB´+IntToStr(vLinha1),
´AB´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CEP´).AsString;
ExcelWorksheet1.Range[´AC´+IntToStr(vLinha1),
´AC´+IntToStr(vLinha1)].Value := Dominio(25,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomPais´).AsInteger);
ExcelWorksheet1.Range[´AD´+IntToStr(vLinha1),
´AD´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Telefone´).AsString;
ExcelWorksheet1.Range[´AE´+IntToStr(vLinha1),
´AE´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´EnderecoEletronico´).AsString;
Inc(vLinha1);
DMCondefMa.ADOcENT_ParticipConsulta.Next;
end;
if vCancelar <> true then
ExcelWorksheet1.SaveAs(edCadParticip.Text);
Progresso.Progress := 0;
ExcelWorksheet1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
ou manipular os registro do banco direto para o Excel utilizando as ferramenta da palheta Server um ExcelWorksheet1, ExcelApplication1
este exemplo de codigo foi o que eu utilizei no meu aplicativo procure entender só o que é relacionado ao excel qualquer duvida se vc pesquisar num saite de busca um assunto sobre os componentes da palheta server vc vai achar espero que isso te ajude.
ExcelApplication1.Connect;
lcid := GetUserDefaultLCID;
ExcelApplication1.DisplayAlerts[lcid] := false;
wkbk1 := ExcelApplication1.Workbooks.Add(EmptyParam, lcid);
ExcelWorksheet1.ConnectTo(WkBk1.Worksheets[1] as _Worksheet);
ExcelWorksheet1.Activate(LCID);
ExcelWorksheet1.Name := ´Cadastro de Participantes´;
vLinha1 := 2;
DMCondefMa.ADOcENT_ParticipConsulta.First;
ExcelWorksheet1.Range[´A1´, ´A1´].Value := ´CÓDIGO DO PLANO´;
ExcelWorksheet1.Range[´B1´, ´B1´].Value := ´GRUPO DA PATROCINADORA´;
ExcelWorksheet1.Range[´C1´, ´C1´].Value := ´NOME DA PATROCINADORA´;
ExcelWorksheet1.Range[´D1´, ´D1´].Value := ´NOME DA FILIAL´;
ExcelWorksheet1.Range[´E1´, ´E1´].Value := ´MATRÍCULA´;
ExcelWorksheet1.Range[´F1´, ´F1´].Value := ´NOME DO PARTICIPANTE´;
ExcelWorksheet1.Range[´G1´, ´G1´].Value := ´CPF´;
ExcelWorksheet1.Range[´H1´, ´H1´].Value := ´SEXO´;
ExcelWorksheet1.Range[´I1´, ´I1´].Value := ´NASCIMENTO´;
ExcelWorksheet1.Range[´J1´, ´J1´].Value := ´ESTADO CIVIL´;
ExcelWorksheet1.Range[´K1´, ´K1´].Value := ´MÊS ÚLTIMO SALÁRIO´;
ExcelWorksheet1.Range[´L1´, ´L1´].Value := ´VALOR ÚLIMO SALÁRIO´;
ExcelWorksheet1.Range[´M1´, ´M1´].Value := ´ADMISSÃO GRUPO´;
ExcelWorksheet1.Range[´N1´, ´N1´].Value := ´ADMISSÃO´;
ExcelWorksheet1.Range[´O1´, ´O1´].Value := ´ADESÃO GRUPO´;
ExcelWorksheet1.Range[´P1´, ´P1´].Value := ´ADESÃO´;
ExcelWorksheet1.Range[´Q1´, ´Q1´].Value := ´EFETIVA 1º PLANO´;
ExcelWorksheet1.Range[´R1´, ´R1´].Value := ´INSCRIÇÃO´;
ExcelWorksheet1.Range[´S1´, ´S1´].Value := ´PARTICIPAÇÃO´;
ExcelWorksheet1.Range[´T1´, ´T1´].Value := ´ATIVIDADE´;
ExcelWorksheet1.Range[´U1´, ´U1´].Value := ´SITUAÇÃO´;
ExcelWorksheet1.Range[´V1´, ´V1´].Value := ´ÚLTIMA TRANSAÇÃO´;
ExcelWorksheet1.Range[´W1´, ´W1´].Value := ´LOGRADOURO´;
ExcelWorksheet1.Range[´X1´, ´X1´].Value := ´COMPLEMENTO´;
ExcelWorksheet1.Range[´Y1´, ´Y1´].Value := ´BAIRRO´;
ExcelWorksheet1.Range[´Z1´, ´Z1´].Value := ´CIDADE´;
ExcelWorksheet1.Range[´AA1´, ´AA1´].Value := ´UF´;
ExcelWorksheet1.Range[´AB1´, ´AB1´].Value := ´CEP´;
ExcelWorksheet1.Range[´AC1´, ´AC1´].Value := ´PAÍS´;
ExcelWorksheet1.Range[´AD1´, ´AD1´].Value := ´TELEFONE´;
ExcelWorksheet1.Range[´AE1´, ´AE1´].Value := ´ENDEREÇO ELETRÔNICO´;
Progresso.MaxValue := DMCondefMa.ADOcENT_ParticipConsulta.RecordCount;
while not vCancelar and not DMCondefMa.ADOcENT_ParticipConsulta.Eof do
begin
Application.ProcessMessages;
Progresso.Progress := vLinha1;
ExcelWorksheet1.Range[´A´+IntToStr(vLinha1),
´A´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CodPlano´).AsString;
ExcelWorksheet1.Range[´B´+IntToStr(vLinha1),
´B´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeGrupo´).AsString;
ExcelWorksheet1.Range[´C´+IntToStr(vLinha1),
´C´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomePatrocin´).AsString;
ExcelWorksheet1.Range[´D´+IntToStr(vLinha1),
´D´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeFilial´).AsString;
ExcelWorksheet1.Range[´E´+IntToStr(vLinha1),
´E´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CodParticip´).AsString;
ExcelWorksheet1.Range[´F´+IntToStr(vLinha1),
´F´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeParticip´).AsString;
ExcelWorksheet1.Range[´G´+IntToStr(vLinha1),
´G´+IntToStr(vLinha1)].Value := Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,1,3)+´.´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,4,3)+´.´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,7,3)+´-´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CPF´).AsString,10,2);
ExcelWorksheet1.Range[´H´+IntToStr(vLinha1),
´H´+IntToStr(vLinha1)].Value := Dominio(6,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomSexo´).AsInteger);
ExcelWorksheet1.Range[´I´+IntToStr(vLinha1),
´I´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtNascimento´).AsString;
ExcelWorksheet1.Range[´J´+IntToStr(vLinha1),
´J´+IntToStr(vLinha1)].Value := Dominio(7,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomEstadoCivil´).AsInteger);
ExcelWorksheet1.Range[´K´+IntToStr(vLinha1),
´K´+IntToStr(vLinha1)].Value := Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´AmUltSalario´).AsString,5,2)+´/´
+Copy(DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´AmUltSalario´).AsString,1,4);
ExcelWorksheet1.Range[´L´+IntToStr(vLinha1),
´L´+IntToStr(vLinha1)].Value := FormatFloat(´0.00´,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´ValorSalario´).Value);
ExcelWorksheet1.Range[´M´+IntToStr(vLinha1),
´M´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdmissaoGrp´).AsString;
ExcelWorksheet1.Range[´N´+IntToStr(vLinha1),
´N´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdmissao´).AsString;
ExcelWorksheet1.Range[´O´+IntToStr(vLinha1),
´O´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdesaoGrp´).AsString;
ExcelWorksheet1.Range[´P´+IntToStr(vLinha1),
´P´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtAdesao´).AsString;
ExcelWorksheet1.Range[´Q´+IntToStr(vLinha1),
´Q´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DtEfetivaPrimeiroPlano´).AsString;
ExcelWorksheet1.Range[´R´+IntToStr(vLinha1),
´R´+IntToStr(vLinha1)].Value := Dominio(14,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomInscricao´).AsInteger);
ExcelWorksheet1.Range[´S´+IntToStr(vLinha1),
´S´+IntToStr(vLinha1)].Value := Dominio(15,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomParticipacao´).AsInteger);
ExcelWorksheet1.Range[´T´+IntToStr(vLinha1),
´T´+IntToStr(vLinha1)].Value := Dominio(13,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomAtividade´).AsInteger);
ExcelWorksheet1.Range[´U´+IntToStr(vLinha1),
´U´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeSituacao´).AsString;
ExcelWorksheet1.Range[´V´+IntToStr(vLinha1),
´V´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´NomeTransacao´).AsString;
ExcelWorksheet1.Range[´W´+IntToStr(vLinha1),
´W´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Logradouro´).AsString;
ExcelWorksheet1.Range[´X´+IntToStr(vLinha1),
´X´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Complemento´).AsString;
ExcelWorksheet1.Range[´Y´+IntToStr(vLinha1),
´Y´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Bairro´).AsString;
ExcelWorksheet1.Range[´Z´+IntToStr(vLinha1),
´Z´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Cidade´).AsString;
ExcelWorksheet1.Range[´AA´+IntToStr(vLinha1),
´AA´+IntToStr(vLinha1)].Value := Dominio(8,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomUf´).AsInteger);
ExcelWorksheet1.Range[´AB´+IntToStr(vLinha1),
´AB´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´CEP´).AsString;
ExcelWorksheet1.Range[´AC´+IntToStr(vLinha1),
´AC´+IntToStr(vLinha1)].Value := Dominio(25,DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´DomPais´).AsInteger);
ExcelWorksheet1.Range[´AD´+IntToStr(vLinha1),
´AD´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´Telefone´).AsString;
ExcelWorksheet1.Range[´AE´+IntToStr(vLinha1),
´AE´+IntToStr(vLinha1)].Value := DMCondefMa.ADOcENT_ParticipConsulta.FieldByName(´EnderecoEletronico´).AsString;
Inc(vLinha1);
DMCondefMa.ADOcENT_ParticipConsulta.Next;
end;
if vCancelar <> true then
ExcelWorksheet1.SaveAs(edCadParticip.Text);
Progresso.Progress := 0;
ExcelWorksheet1.Disconnect;
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
Responder
Gostei + 0
20/01/2004
Venus
aroldo, eu preciso fazer isso internamente pelo delphi....
tem como ?
[quote:e4f8209aab=´Aroldo Zanela´]Colega,
Acho que a forma mais simples de fazer um upsize do MDB para Interbase/Firebird e utilizando o próprio DataPump que é instalado com o conjunto de programas do Delphi.
Se não conseguir, podemos continuar avançando em suas dúvidas neste tópico até a solução final.[/quote:e4f8209aab]
tem como ?
[quote:e4f8209aab=´Aroldo Zanela´]Colega,
Acho que a forma mais simples de fazer um upsize do MDB para Interbase/Firebird e utilizando o próprio DataPump que é instalado com o conjunto de programas do Delphi.
Se não conseguir, podemos continuar avançando em suas dúvidas neste tópico até a solução final.[/quote:e4f8209aab]
Responder
Gostei + 0
20/01/2004
Aroldo Zanela
Colega,
Pode ser feito, porém, implicaria em algumas linhas de código. O uso do DataPump é automatico, basta criar os ALIAS e utilizar a ferramente que consiste em básicos next, next, next...finish.
Bem simples.
Pode ser feito, porém, implicaria em algumas linhas de código. O uso do DataPump é automatico, basta criar os ALIAS e utilizar a ferramente que consiste em básicos next, next, next...finish.
Bem simples.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)