O SQL é uma linguagem de programação com fins especiais. Abaixo está um tutorial detalhado sobre como definir o valor padrão do acesso SQL que o editor compartilhou com você. Amigos interessados, vamos aprender sobre isso com o editor!
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 & "----- TIPO:" & 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
ENDWITH
Setmydb = nada
Bye_getfieldDescription:
Saída de saída
Err_getfieldDescription:
Bipe
Debug.printerr.description
Msgboxerr.description, vbexclamation
GetFieldDescription = nulo
Retumebye_getfieldDescription
Função final
Algumas referências sobre "Erro de várias etapas":
Subcangeunicode ()
DimtdFastableDef
Dimfldasfield
Dimdbasdatabase
DimProasProperty
SetDB = currentDB
Foreachtdfindb.tableDefs
Foreachfldintdf.fields
Ifffld.type = dbTextThen
Ifdbengine.errors (0) .Number = 3270then
SetPro = fld.CreateProperty ("Unicodecompression", 1,0)
fld.properties.appendp
Endif
fld.properties ("unicodecompression") = true
Endif
Próximofld
Nexttdf
Endsub
O acima é um tutorial detalhado sobre como definir o valor de acesso padrão do SQL. Eu acredito que você aprendeu. Para mais conteúdo relacionado, continue prestando atenção ao novo canal de tecnologia errada.