O que é Adox ?

ADOX permite gerar um arquivo “.mdb” via programação.

No exemplo abaixo iremos criar um arquivo “.mdb” novo com uma tabela e definir a chave primária:

<%
'Const adVarWChar = 202
'Const adInteger = 3
 
Dim objADOXDatabase

'Instanciando um Catalog object
Set objADOXDatabase = CreateObject("ADOX.Catalog")

'Usando um método "Create", com a string de conexão ao novo Banco de Dados e usando o caminho completo:

objADOXDatabase.Create "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Inetpub\wwwroot\teste\bd.mdb"

'Banco de dados criado:

'Criando a tabela e atribuindo um nome a ela:
Dim objFirstTable
Set objFirstTable = CreateObject("ADOX.Table")
objFirstTable.Name = "Clientes"

'CustomerID will be of datatype adInteger, for which the ADO Constant is 3
'ID será uma 
objFirstTable.Columns.Append "ID", 3, 4

'"Nome Cliente" será um dado do tipo adVarWChar, o que em ADO recebe a identificação 202.
'O campo será definido com tamanho máximo de 30 caracteres:
objFirstTable.Columns.Append "NomeCliente", 202, 30

'Criando um chave, e atribuindo o campo ID como chave:
objFirstTable.Keys.Append "PK_ID", 1, "ID"

'Adicionando a tabale à Base de Dados
objADOXDatabase.Tables.Append objFirstTable
response.write "<h3>Banco de dados criado com sucesso<h3>"

'Destruindo os objetos utilizados:
Set objFirstTable = Nothing
Set objADOXDatabase = Nothing
%>

IMPORTANTE: A INETWEB não é desenvolvedora deste componente, ficando à nossa responsabilidade somente o suporte na utilização do mesmo. Para maiores informações sobre funcionalidades, recursos, sugestões e reclamações, recomendamos que procure o desenvolvedor responsável do componente.

Is this Base de conhecimento useful? Useful Useless 0 of 0 people say this Base de conhecimento is useful.