O que é Adox ? - Ajuda Inetweb - Base de Conhecimento
O que é Adox ?
O 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.