Crear base de datos Access desde código.

"xavendano" preguntó:

Si deseo especificar un valor por defecto para alguna columna
específica..un DefValue
No logro visualizar una propiedad para ello.

Deberás acceder a las propiedades dinámicas de un objeto ADOX.Column, para
establecer el valor de la propiedad «Default».

Pero ya que estás utilizando Visual Basic .net, yo me olvidaría de la
biblioteca de ADOX para crear tablas, añadir campos, etc., debido a los
problemas que presenta ésta biblioteca para trabajar adecuadamente con el
marco de trabajo de .net, y que ya has tenido oportunidad de comprobarlo por
tí mismo, y en su lugar ejecutaría consultas SQL del Lenguaje de Definición
de Datos, siempre y cuando utilices el proveedor Ole Db Microsoft Jet 4.0.

Por ejemplo, para asignarle un valor por defecto a un campo ya existente en
la tabla, ejecutarías el siguiente código:

Dim cnn As New OleDb.OleDbConnection

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Mis documentos\Bd1.mdb"

Try

' Construimos la consulta SQL
Dim sql As String = _
"ALTER TABLE NombreTabla " & _
"ALTER COLUMN NombreCampo SET DEFAULT ""ValorPorDefecto"""

' Creamos un objeto Command
Dim cmd As New OleDb.OleDbCommand(sql, cnn)

' Abrimos la conexión
cnn.Open()

' Ejecutamos la consulta
cmd.ExecuteNonQuery()

Catch ex As OleDb.OleDbException
MessageBox.Show(ex.Errors(0).Message)

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
cnn.Close()
cnn = Nothing

End Try

En el Capítulo III del manual de primeros auxiliar de SQL que te indiqué
anteriormente, encontrarás toda la sintaxis necesaria para ejecutar este
tipo de consultas SQL. Una vez que te acostumbres a ellas, te aseguro que te
olvidarás de la biblioteca ADOX. :-)

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.