Brève description:
Comment définir les valeurs par défaut du champ
question:
Comment définir la valeur par défaut d'un certain champ dans un tableau?
Méthode 1:
Utilisez JetsQL pour terminer
AlterTableTableNamealterColumnFieldNameText (40) Valeur par défaut par défaut
Veuillez noter que les instructions ci-dessus doivent être exécutées à l'aide d'Adodb.Connection.Exécute et d'autres méthodes. Si vous utilisez directement le code ci-dessus pour créer une requête qui ne peut pas être enregistrée ou exécutée, vous obtiendrez un message d'erreur d'accès.
Méthode 2:
Adox est OK.
FunctionchengTableFieldPro_ado ()
Dimmytablenameassstring
DimmyfieldnameSsString
DIMGETFIELDDESC_ADO
DIMGETFIELDDESCRIPTION
Mytablename = "ke_hu"
MyFieldname = "dw_name"
Dimmydbasnewadox.catalog
Dimmytableasadox.able
Dimmyfieldasadox.column
Onerrorgotoerr_getfieldDescription
Mydb.activeConnection = currentProject.connection
SetMyTable = MyDB.Tables (MyTableName)
GetFieldDesc_ado = myTable.Columns (MyFieldName) .Properties ("Description")
Dimproasadodb.property
Foreachproinmytable.columns (MyFieldName) .properties
Debug.printpro.name & ":" & pro.value & "---- Type:" & pro.type
Suivant
Withmytable.columns (myFieldname)
'.Properties ("nullable") = True'Required
«Le code ci-dessus ne peut pas être défini, le message d'erreur est:
«L'opération OLEDB en plusieurs étapes génère une erreur. Si possible, vérifiez chaque valeur d'état OLEDB. Aucun travail n'a été effectué.
«Actuellement, il peut être défini avec l'énoncé suivant:
'Currentdb.Tablededs ("ke_hu"). Fields ("dw_name"). Propriétés ("requise") = false
.Properties ("Jetoledb: allatZerolength") = true 'accumable vide
.Properties ("par défaut") = "Reconnaissance par défaut silencieuse" 'Valeur par défaut