Deskripsi Singkat:
Cara mendefinisikan nilai default bidang
pertanyaan:
Bagaimana cara mengatur nilai default bidang tertentu dalam tabel?
Metode 1:
Gunakan jetsql untuk menyelesaikan
AltertableTableNeMealTerColumnFieldNeText (40) Nilai default
Harap dicatat bahwa pernyataan di atas harus dieksekusi menggunakan ADODB.Connection.Execute dan metode lainnya. Jika Anda secara langsung menggunakan kode di atas untuk membuat kueri yang tidak dapat disimpan atau dijalankan, Anda akan mendapatkan pesan kesalahan akses.
Metode 2:
Adox baik -baik saja.
Functionchengtablefieldpro_ado ()
Dimmytablenameasstring
Dimmyfieldnameasstring
DIMGETFIELDDESC_ADO
DimetFieldDescription
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 ("deskripsi")
Dimproasadodb.property
Foreachproinmytable.columns (myfieldName) .properties
Debug.printpro.name & ":" & Pro.Value & "---- Jenis:" & Pro.Type
Berikutnya
Withmytable.columns (myfieldname)
'.Properties ("nullable") = True'equired
'Kode di atas tidak dapat diatur, pesan kesalahannya adalah:
'Operasi OLEDB multi-langkah menghasilkan kesalahan. Jika memungkinkan, periksa setiap nilai status OLEDB. Tidak ada pekerjaan yang dilakukan.
'Saat ini, dapat diatur dengan pernyataan berikut:
'Currentdb.tableDefs ("ke_hu"). Fields ("dw_name"). Properties ("wajib") = false
.Properties ("jetoledb: allowzerolength") = true'vailable ofsmel
.Properties ("default") = "nilai default diam -diam" 'nilai default