SQL es un lenguaje de programación con un propósito especial. A continuación se muestra un tutorial detallado sobre la configuración del valor predeterminado del acceso SQL que el editor ha compartido con usted. Amigos interesados, ¡aprendamos al respecto con el editor!
Breve descripción:
Cómo definir los valores predeterminados del campo
pregunta:
¿Cómo establecer el valor predeterminado de un cierto campo en una tabla?
Método 1:
Use JETSQL para completar
AltertableTableNameLterColumnFieldNamEtextExtExt (40) Valor predeterminado predeterminado
Tenga en cuenta que las declaraciones anteriores deben ejecutarse utilizando ADODB.Connection.ExCute y otros métodos. Si usa directamente el código anterior para crear una consulta que no se puede guardar o ejecutar, recibirá un mensaje de error de acceso.
Método 2:
Adox está bien.
FunctionchengtableFieldPro_ado ()
DimmytablenameString
DimmyfieldNameasstring
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 ("descripción")
Dimproasadodb.Property
Foreachproinmytable.columns (myfieldname) .properties
Debug.printpro.name & ":" & pro.value & "----- Tipo:" & Pro.Type
Próximo
WithMytable.Columns (MyFieldName)
'.Properties ("anulable") = true' requirido
'El código anterior no se puede establecer, el mensaje de error es:
'La operación OLEDB de múltiples pasos genera un error. Si es posible, verifique cada valor de estado de OLEDB. No se realizó ningún trabajo.
'Actualmente, se puede configurar con la siguiente declaración:
'CurrentDb.tableFs ("ke_hu"). Fields ("dw_name"). Properties ("requerido") = falso
.Properties ("jetoledb: nowerolength") = true'avelable vacío
.Properties ("predeterminado") = "reconocimiento predeterminado en silencio" 'Valor predeterminado
Fin
Setmydb = nada
Bye_getfieldDescription:
Extinción
Err_getfieldDescription:
Bip
Debug.printerR.Description
Msgboxerr.Description, VBExClamation
GetFieldDescription = nulo
Resumye_getfieldDescription
Función final
Algunas referencias sobre "error de múltiples pasos":
SubchangeUnicode ()
DimtdfastableFef
Dimfldasfield
Dimdbasdatabase
Dimproasproperty
Setdb = currentDB
Foreachtdfindb.tablefs
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
NextFld
Nexttdf
Endsub
El anterior es un tutorial detallado sobre la configuración del valor de acceso predeterminado de SQL. Creo que lo has aprendido. Para obtener más contenido relacionado, continúe prestando atención al nuevo canal de tecnología incorrecto.