Fórum Criar um arquivo Access(*.mdb) #184400

Acho q descobri qual é o problema. É que qdo eu uso o Type=4 ele de alguma forma cria e insere os dados de forma que o arquivo fique compactado. Já o Type=5 nao faz isso. Talvez eu deva informar algum parametro (propriedade) na string de conexao.

Eu cheguei a esta conclusao pq tem uma opcao no Access de comprimir o arquivo MDB e qdo eu usei ele no arquivo gerado pelo Type=5 ele ficou do tamanho do arquivo gerado pelo Type=4. Tb tentei compactar o arquivo gerado pelo Type=4, só para garantir se eu estava certo e nao comprimiu, ou seja, ele ja estava comprimido.


Agora só resta saber como compacto o arquivo mdb (via programacao). Se alguem souber...

de uma olhada neste link. Tem bastante coisa sobre ADO e access.

http://delphi.about.com/library/weekly/aa091801a.htm

Quadrado.

Quadrado, eu descobri isto e ja estou fazendo. Só que tem um problema. Qdo acabo de criar e inserir os dados tento compactar e neste momento de compactar o arquivo dá um erro dizendo que o arquivo ja esta sendo usado pelo Admin.
Nao entendo o pq disto, se eu ja dei ´VarNull´ na variavel.


SEGUE O CODIGO ABAIXO:

var
obj: OleVariant;

begin

obj := CreateOleObject(´ADOX.Catalog´);
obj.Create(´Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\teste\banco1.mdb;Jet OLEDB:Engine Type=4´);
obj := VarNull; // <==== AQUI ESTOU LIBERANDO

....//Aqui tem o codigo que insere os Dados

//FECHO A CONEXAO COM O ADO
AdoConnection1.connected:= false;

//AQUI COMPACTA O ARQUIVO
jro:= CreateOleObject(´JRO.JetEngine´);
jro.CompactDatabase(´Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\teste\banco1.mdb´,´Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\teste\banco2.mdb´);
jro := VarNull;

end;

Delphiz

Cara nunca trabalhei Delphi x Access, mas talvez esta dica seja útil.

Não sei se dá pra definir isso pelo Delphi, mas o Access2000+..., tem uma opção de compactar ao fechar em Ferramentas => Opções => Geral

Tenta fazer isso.

Até +