Fórum Xmaker

Colegas,

Estou aprendendo a usar o XMAKER.

Alguem tem um passo a passo para a importaçao de um arquivo MDB ? (Access)

Fiz algumas tentativa, mas não estou conseguindo.

Obrigado

Acho que poderia fazer as conexões via ADO
e usar este modelo que no caso importei de um Dbase.
Att
Gilberto


///------

TableProp.first;
while not TableProp.Eof do
begin
TabGlobal.DLocadores.Insert;
TabGlobal.DLocadores.CODPRO.AtribuiValor(TablePropCOD.AsInteger);
TabGlobal.DLocadores.NOME.Conteudo :=UpperCase(JOemToAnsiStr(TablePropNOME.AsString));
TabGlobal.DLocadores.ENDRES.Conteudo :=UpperCase(JOemToAnsiStr(TablePropENDERECO.AsString));
TabGlobal.DLocadores.BAIRRORES.Conteudo :=UpperCase(JOemToAnsiStr(TablePropBAIRRO.AsString));
TabGlobal.DLocadores.CEPRES.Conteudo := StrZer(removeChar(TablePropCEP.AsString),8);
TabGlobal.DLocadores.UFRES.Conteudo :='SP';
TabGlobal.DLocadores.CIDRES.Conteudo :=UpperCase(JOemToAnsiStr(TablePropCIDADE.AsString));
TabGlobal.DLocadores.TELEFONE.Conteudo := StrZer(RemoveChar(TablePropFONE.AsString),10);
TabGlobal.DLocadores.RG.Conteudo :=UpperCase(JOemToAnsiStr(TablePropRG.AsString));
If RemoveChar(TablePropCGC.AsString) = '' then
Begin
TabGlobal.DLocadores.PESSOA.Conteudo :='F';
TabGlobal.DLocadores.CPFCGC.Conteudo :=UpperCase(JOemToAnsiStr(TablePropCPF.AsString));
End
Else
Begin
TabGlobal.DLocadores.PESSOA.Conteudo :='J';
TabGlobal.DLocadores.CPFCGC.Conteudo :=UpperCase(JOemToAnsiStr(TablePropCGC.AsString));
End ;
TabGlobal.DLocadores.DTNASC.Clear;
If TablePropSITU.AsString = 'A' then
TabGlobal.DLocadores.STATUS.Conteudo :='A'
Else
TabGlobal.DLocadores.STATUS.Conteudo :='D';
TabGlobal.DLocadores.TELEFONE2.Conteudo := StrZer(RemoveChar(TablePropFONE2.AsString),10);
TabGlobal.DLocadores.CREDITO_DIARIO.Conteudo := 'S';
TabGlobal.DLocadores.TIPOCONTA.Conteudo := 'N';
TabGlobal.DLocadores.CODBAN.Conteudo := 1;
TabGlobal.DLocadores.CIDCOR.Conteudo := StrZer(RemoveChar(TablePropP_TAXA.AsString),02) + ' ' +
StrZer(RemoveChar(TablePropP_HONO.AsString),02) ;
TabGlobal.DLocadores.EMAIL.Conteudo := TablePropFONE2.AsString;
Tabglobal.DLocadores.Salva;
TableProp.Next;
End;
TableProp.Close;
LabelPro.Visible := True;
GuagePro.Visible := True;
GuagePro.MinValue := 0;
GuagePro.Progress := 0;

Obrigado pela atenção.

O detalhe não é importar os dados, mas a estrutura do projeto.

No Xmaker, existe a possibilidade de importar a estrutura do banco de dados. Na definição das tabelas tem esse informação.
Com isso, poderia trazer todo o MDB que eu já tenho definido e em ciam dessa estrutura portar o Sistema par ao Xmaker.

Esse é o detalhe. Eu não consegui fazer essa importação.

abraços

Nesse caso, a solução é abrir o banco com proprio access, e ver os campos e criar-los manu
almente, depois que criar a estrutura, você faz a importação conforme exemplo acima.

Obrigado,
Leão

Bom dia José
Neste link há um conversor que promete fazer o que vc quer

http://www.planetadelphi.com.br/downloa ... s/firebird

Poste se deu resultado

abraços

Olá,

Vá em fontes de dados ODBC e crie um acesso ODBC ao seu banco MDB.

depois em no Xmaker Vá na definição e clique em "importar"

depois Selecione em Banco de dados "ODBC" e em database coloque o nome que vc criou no DNS ODBC. clique no "play"

Selecione a tabela e importe a sua estrutura.


Pronto, em anexo segue imagem para ilustrar.

OBBC_MDB.jpg