SQL - это язык программирования с особой целью. Ниже приведено подробное руководство по установке значения по умолчанию SQL -доступа, которое редактор поделился с вами. Заинтересованные друзья, давайте узнаем об этом с редактором!
Краткое описание:
Как определить значения по умолчанию в поле
вопрос:
Как установить значение по умолчанию определенного поля в таблице?
Метод 1:
Используйте jetsql для завершения
AltertableTableNamealterColumnfieldNametext (40) значение по умолчанию по умолчанию
Обратите внимание, что приведенные выше операторы должны быть выполнены с использованием adodb.connection.execute и других методов. Если вы напрямую используете приведенный выше код для создания запроса, который нельзя сохранить или запустить, вы получите сообщение об ошибке доступа.
Метод 2:
Adox в порядке.
Functionchengtablefieldpro_ado ()
DimmytablenameasString
DimmyfieldnameasString
Dimgetfielddesc_ado
DimgetfieldDescription
Mytablename = "ke_hu"
Myfieldname = "dw_name"
Dimmydbasnewadox.catalog
Dimmytableasadox.table
Dimmyfieldasadox.column
OnerRorROTOERR_GETFIELDDESCRICE
Mydb.activeconnection = currentProject.connection
SetMyTable = myDb.tables (myTabLename)
Getfielddesc_ado = mytable.columns (myfieldname) .properties ("Описание")
Dimproasadodb.property
Foreachproinmytable.columns (myfieldname) .properties
Debug.printpro.name & ":" & pro.value & "----- Тип:" & pro.type
Следующий
С mytable.columns (myfieldname)
'.Properties ("Nullable") = true'Required
'Приведенный выше код не может быть установлен, сообщение об ошибке:
«Многоэтапная операция OLEDB» генерирует ошибку. Если возможно, проверьте каждое значение статуса OLEDB. Не было выполнено.
'В настоящее время это может быть установлено со следующим оператором:
'Currentdb.tabledefs ("ke_hu"). Fields ("dw_name"). Properties ("требуется") = false
.Properties ("jetoledb: AllzeroLength") = true'Avialable пусто
.Properties ("default") = "молча по умолчанию" Значение по умолчанию "
Энд
SetMyDB = ничего
Bye_getfielddescription:
Выходная функция
Err_getfielddescription:
Звуковой сигнал
Debug.printerr.description
Msgboxerr.description, vbexclamation
Getfielddescription = null
Resumebye_getfielddescription
Конечная функция
Некоторые ссылки на "многоэтапную ошибку":
SubchangeUnicode ()
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
Эндиф
fld.properties ("Unicodecompression") = true
Эндиф
NextFld
Nexttdf
Заканчивая
Выше приведено подробное руководство по настройке значения доступа по умолчанию SQL. Я считаю, что вы это узнали. Для получения более связанного контента, пожалуйста, продолжайте обращать внимание на неправильный новый канал технологий.