Necesito ayuda con código en visual basic para cambiar propiedades de tablas en una base de datos
Hola que tal ?
Quisiera hacerte la siguiente consulta, yo estoy haciendo el código de un programa de visual, en una parte x medio de visual hago crear un determinada/s tablas en una base de datos ya existentes
para ello uso comandos como los siguientes
.Columns.Append "Lote", adVarWChar, 50
anda todo perfecto crea la tabla con los campos que yo quiero y todo bien pero lo que me falta es como dar la propiedad a un campo requerido o no
Por defecto queda
requerido: Si
indexado: no
como hago para cambiar estas opciones desde el codigo de visual cuando creo la tabla ?
desde ya muchisimas gracias
atte.:
Jorge E. Rodriguez
Quisiera hacerte la siguiente consulta, yo estoy haciendo el código de un programa de visual, en una parte x medio de visual hago crear un determinada/s tablas en una base de datos ya existentes
para ello uso comandos como los siguientes
.Columns.Append "Lote", adVarWChar, 50
anda todo perfecto crea la tabla con los campos que yo quiero y todo bien pero lo que me falta es como dar la propiedad a un campo requerido o no
Por defecto queda
requerido: Si
indexado: no
como hago para cambiar estas opciones desde el codigo de visual cuando creo la tabla ?
desde ya muchisimas gracias
atte.:
Jorge E. Rodriguez
1 respuesta
Respuesta de denciso
Checa lo siguiente:
Append Method (Indexes)
Adds a new Index object to the Indexes collection.
Syntax
Indexes.Append Index [, Columns]
Parameters
Index
The Index object to append or the name of the index to create and append.
Columns
Optional. A Variant value that specifies the name(s) of the column(s) to be indexed. The Columns parameter corresponds to the value(s) of the Name property of a Column object or objects.
Remarks
The Columns parameter can take either the name of a column or an array of column names.
An error will occur if the provider does not support creating indexes.
See Also
Indexes Append Method Example (VB)
The following code demonstrates how to create a new index. The index is on two columns in the table.
Attribute VB_Name = "IndexesAppend"
Option Explicit
' BeignCreateIndexVB
Sub Main()
On Error GoTo CreateIndexError
Dim tbl As New Table
Dim idx As New ADOX.Index
Dim cat As New ADOX.Catalog
'Open the catalog.
' Open the Catalog.
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Define the table and append it to the catalog
tbl.Name = "MyTable"
Tbl. Columns. Append "Column1", adInteger
Tbl. Columns. Append "Column2", adInteger
Tbl. Columns. Append "Column3", adVarWChar, 50
Cat. Tables. Append tbl
Debug.Print "Table 'MyTable' is added."
' Define a multi-column index
idx.Name = "multicolidx"
Idx. Columns. Append "Column1"
Idx. Columns. Append "Column2"
' Append the index to the table
Tbl. Indexes. Append idx
Debug. Print "The index is appended to table 'MyTable'."
'Delete the table as this is a demonstration
cat.Tables.Delete tbl.Name
Debug.Print "Table 'MyTable' is deleted."
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
Exit Sub
CreateIndexError:
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateIndexVB
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscattributespropertyexamplex.asp
Append Method (Indexes)
Adds a new Index object to the Indexes collection.
Syntax
Indexes.Append Index [, Columns]
Parameters
Index
The Index object to append or the name of the index to create and append.
Columns
Optional. A Variant value that specifies the name(s) of the column(s) to be indexed. The Columns parameter corresponds to the value(s) of the Name property of a Column object or objects.
Remarks
The Columns parameter can take either the name of a column or an array of column names.
An error will occur if the provider does not support creating indexes.
See Also
Indexes Append Method Example (VB)
The following code demonstrates how to create a new index. The index is on two columns in the table.
Attribute VB_Name = "IndexesAppend"
Option Explicit
' BeignCreateIndexVB
Sub Main()
On Error GoTo CreateIndexError
Dim tbl As New Table
Dim idx As New ADOX.Index
Dim cat As New ADOX.Catalog
'Open the catalog.
' Open the Catalog.
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
' Define the table and append it to the catalog
tbl.Name = "MyTable"
Tbl. Columns. Append "Column1", adInteger
Tbl. Columns. Append "Column2", adInteger
Tbl. Columns. Append "Column3", adVarWChar, 50
Cat. Tables. Append tbl
Debug.Print "Table 'MyTable' is added."
' Define a multi-column index
idx.Name = "multicolidx"
Idx. Columns. Append "Column1"
Idx. Columns. Append "Column2"
' Append the index to the table
Tbl. Indexes. Append idx
Debug. Print "The index is appended to table 'MyTable'."
'Delete the table as this is a demonstration
cat.Tables.Delete tbl.Name
Debug.Print "Table 'MyTable' is deleted."
'Clean up
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
Exit Sub
CreateIndexError:
Set cat = Nothing
Set tbl = Nothing
Set idx = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateIndexVB
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/admscattributespropertyexamplex.asp
