'Buho Fenrero 2003


Dim Cat     As New ADOX.Catalog
Dim Tbl(6) As ADOX.Table
Dim Idx()   As ADOX.Index
Dim msgErrR As integer
Dim sCnn    As String 

sCnn =  "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & RutaVinculacion

Cat.Create sCnn


  '----------* Creamos la tabla «Mitabla» *----------

  Set Tbl(0)= New ADOX.Table

  Tbl(0).ParentCatalog = Cat

  With Tbl(0)	

    .Name = "Mitabla"
    'Primero creamos un campo ENtero corto llamado precisamente «CampoEnteroCorto»

    .Columns.Append "CampoEnteroCorto", 2
    .Columns("CampoEnteroCorto").Properties("Default").Value = 20
    .Columns("CampoEnteroCorto").Properties("Jet OLEDB:Column Validation Text").Value = "No se permite mas de 20" & vbCrLf    
    .Columns("CampoEnteroCorto").Properties("Jet OLEDB:Compressed UNICODE Strings").Value = False

    'Añadimos un campo entero largo
    .Columns.Append "CampoEnteroLargo", 3
    .Columns("CampoEnteroLargo").Properties("Default").Value = 1000
    .Columns("CampoEnteroLargo").Properties("Jet OLEDB:Compressed UNICODE Strings").Value = False
    'Un campo Texto

    .Columns.Append "CampoTexto", 202, 150
    .Columns("CampoTexto").Properties("Default").Value = "Hola Mundo"
    .Columns("CampoTexto").Properties("Jet OLEDB:Column Validation Text").Value = "Este valor no esta permitido" & vbCrLf
    'Añadimos un ID

    .Columns.Append "Id", 3
    .Columns("Id").Properties("AutoIncrement").Value = True
    .Columns("Id").Properties("Nullable").Value = False
    .Columns("Id").Properties("Jet OLEDB:Compressed UNICODE Strings").Value = False
  End With

  Vamos a por los indices
  '----------* Indices Mitabla *----------
  ReDim Idx(2)
  Set Idx(0)= New ADOX.Index
    Idx(0).Name = "CampoEnteroCorto"
    Idx(0).IndexNulls = adIndexNullsAllow
    Idx(0).Unique = True
      Idx(0).Columns.Append "CampoEnteroCorto"
  Set Idx(1)= New ADOX.Index
    Idx(1).Name = "PrimaryKey"
    Idx(1).PrimaryKey = True
    Idx(1).Unique = True
      Idx(1).Columns.Append "Id"
  Set Idx(2)= New ADOX.Index
    Idx(2).Name = "CampoEnteroLargo"
    Idx(2).IndexNulls = adIndexNullsAllow
      Idx(2).Columns.Append "CampoEnteroLargo"
  For i = 0 to UBound(Idx)
    Tbl(0).Indexes.Append Idx(i)
  Next i


  Cat.Tables.Append Tbl(0)


  Set Cat = Nothing