No Delphi 2007 o dbExpress passou por uma grande reformula\u00e7\u00e3o que trouxe in\u00fameras melhoria, uma desta foi a capacidade de interagir com o metadata do banco de dados atrav\u00e9s do dbExpress Framework, ou seja, atrav\u00e9s de classes em Delphi.<\/p>\n
In\u00fameras s\u00e3o as funcionalidades e benef\u00edcios de se utilizar o dbExpress Framework para este fim, para come\u00e7ar vamos ver como criar tabelas utilizando utilizando o framework.<\/p>\n
Para come\u00e7ar voc\u00ea precisamos definir a conex\u00e3o com o banco de dados, geralmente utilizamos o SQLConnection ou o DBXConnection, \u00e9 a partir da conex\u00e3o que o dbExpress sabe com que banco de dados est\u00e1 conectado e assim saber\u00e1 como gerar os scripts de cria\u00e7\u00e3o da tabela. Definida a conex\u00e3o instanciamos a classe TDBXDataExpressMetaDataProvider, que ser\u00e1 o interlocutor entre as classes de metadata e a conex\u00e3o.<\/p>\n
function DBXGetMetaProvider(const AConnection: TDBXConnection): TDBXDataExpressMetaDataProvider;\r\nvar\r\n Provider: TDBXDataExpressMetaDataProvider;\r\nbegin\r\n Provider := TDBXDataExpressMetaDataProvider.Create;\r\n try\r\n Provider.Connection := AConnection;\r\n Provider.Open;\r\n except\r\n FreeAndNil(Provider);\r\n raise;\r\n end;\r\n\r\n Result := Provider;\r\nend;<\/pre>\nEsta fun\u00e7\u00e3o ir\u00e1 receber a conex\u00e3o, neste caso estamos passando a inst\u00e2ncia do DBXConnection, no caso de voc\u00ea estar utilizando SQLConnection n\u00e3o tem problema, pois o SQLConnection fornece a sua inst\u00e2ncia DBXConnection.<\/p>\n
Agora basta criamos a tabela utilizando a classe TDBXMetaDataTable e as colunas atrav\u00e9s da classe TBX<XXX>Column, onde XXX \u00e9 o tipo da coluna, para cada tipo de coluna no banco de dados o dbExpress Framework ter\u00e1 uma representa\u00e7\u00e3o. A seguir a cria\u00e7\u00e3o da tabela PAIS e seus respectivos campos.<\/p>\n
var\r\n Provider: TDBXDataExpressMetaDataProvider;\r\n Pais : TDBXMetaDataTable;\r\n PaisID : TDBXInt32Column;\r\n StrField : TDBXUnicodeVarCharColumn;\r\nbegin\r\n Provider := DBXGetMetaProvider(conn.DBXConnection);\r\n\r\n \/\/ Pais\r\n Pais := TDBXMetaDataTable.Create;\r\n Pais.TableName := 'PAIS';\r\n\r\n \/\/ Campo ID do Pa\u00eds\r\n PaisIdField := TDBXInt32Column.Create('PAISID');\r\n PaisIdField.Nullable := false;\r\n PaisIdField.AutoIncrement := true;\r\n Pais.AddColumn(JobIdField);\r\n\r\n \/\/ Campo nome do Pa\u00eds\r\n StrField := TDBXUnicodeVarCharColumn.Create('NOME_PAIS', 50);\r\n StrField.Nullable := False;\r\n Pais.AddColumn(StrField);\r\n\r\n \/\/ Campo sigla do Pa\u00eds\r\n StrField := TDBXUnicodeVarCharColumn.Create('SIGLA', 2);\r\n StrField.Nullable := False;\r\n Pais.AddColumn(StrField);\r\n\r\n \/\/ Cria a tabela\r\n Provider.CreateTable(Pais);<\/pre>\nCom a tabela e campos definido o provider executa o m\u00e9todo CreateTable para a efetuar a cria\u00e7\u00e3o da mesma no banco, a partir do momento que mudamos a conex\u00e3o para outro banco de dados n\u00e3o ser\u00e1 necess\u00e1rio atualizar este c\u00f3digo, pois o dbExpress \u00e9 respons\u00e1vel por definir o script de acordo com o banco.<\/p>\n