Breve descrição:
Como definir valores padrão de campo
pergunta:
Como definir o valor padrão de um determinado campo em uma tabela?
Método 1:
Use o jetsql para concluir
ATTERTABLETABLENAMEALTERCOLUMNFIFILETAMETEXT (40) Valor padrão
Observe que as instruções acima devem ser executadas usando os métodos adodb.connection.execute e outros. Se você usar diretamente o código acima para criar uma consulta que não possa ser salva ou executada, receberá uma mensagem de erro de acesso.
Método 2:
Adox está ok.
FunctionChengtablefieldpro_ado ()
Dimmytablenameasstring
Dimmyfieldnamasstring
Dimgetfielddesc_ado
DimgetfieldDescription
MytableName = "ke_hu"
Myfieldname = "dw_name"
Dimmydbasnewadox.catalog
Dimmytableasadox.Table
Dimmyfieldasadox.Column
OnErrorgotoerr_getFieldDescription
Mydb.activeConnection = currentProject.Connection
SetMyTable = mydb.tables (mytableName)
Getfielddesc_ado = mytable.columns (myfieldName) .Properties ("Descrição")
DimProasadodb.property
ForeachProinMyTable.Columns (MyFieldName) .Properties
Debug.printpro.name & ":" & pro.value & "---- Type:" & pro.type
Próximo
Withmytable.columns (myfieldname)
'.Properties ("Nullable") = True'Required
'O código acima não pode ser definido, a mensagem de erro é:
'Operação OLEDB em várias etapas gera um erro. Se possível, verifique cada valor de status do OLEDB. Nenhum trabalho foi feito.
'Atualmente, ele pode ser definido com a seguinte declaração:
'CurrentDB.TableDefs ("ke_hu"). Campos ("dw_name"). Propriedades ("necessários") = false
.Properties ("Jetoledb: allowzerol comprimento") = True'available vazio
.Properties ("padrão") = "Reconhecimento silenciosamente padrão" 'Valor padrão