SQL est un langage de programmation à but spécial. Vous trouverez ci-dessous un tutoriel détaillé sur la définition de la valeur par défaut de l'accès SQL que l'éditeur a partagé avec vous. Amis intéressés, apprenons-le avec l'éditeur!
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
Fin
SetMydb = rien
Bye_getfieldDescription:
Sortie
Err_getfieldDescription:
Bip
Debug.priterr.description
MsgBoxerr.Description, vbexclamation
GetfieldDescription = null
RESUMEBYE_GETFIELDDESCRIPTION
Finition de fin
Quelques références sur "Erreur en plusieurs étapes":
Subchangeunicode ()
Dimtdfastablef
Dimfldasfield
Dimdbasdatabase
Dimproasproperty
SetDB = currentdb
Foreachtdfindb.teableds
ForeachfldIntdf.fields
Ifffld.type = dbtextThen
IfdbEngine.Errors (0) .number = 3270Then
SetPro = fld.createProperty ("Unicodecompression", 1,0)
fld.properties.appendp
Endire
fld.properties ("UnicoDecompression") = true
Endire
NextFld
NextTdf
Fin
Ce qui précède est un tutoriel détaillé sur la définition de la valeur d'accès par défaut de SQL. Je crois que vous l'avez appris. Pour plus de contenu connexe, veuillez continuer à faire attention au mauvais canal de la nouvelle technologie.