SQL adalah bahasa pemrograman dengan tujuan khusus. Di bawah ini adalah tutorial terperinci tentang pengaturan nilai default akses SQL yang telah dibagikan oleh editor dengan Anda. Teman yang tertarik, mari kita pelajari tentang hal itu dengan editor!
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
Endwith
SetMydb = tidak ada
Bye_getfielddescription:
Fungsi keluar
Err_getFieldDescription:
Berbunyi
Debug.printerr.description
Msgboxerr.description, vbexclamation
GetFieldDescription = null
Resumebye_getfielddescription
Fungsi endfungsi
Beberapa referensi tentang "kesalahan multi-langkah":
Subchangeunicode ()
DIMTDFastableDef
DIMFLSFIELD
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
Nextfld
Nexttdf
Endsub
Di atas adalah tutorial terperinci tentang pengaturan nilai akses default SQL. Saya yakin Anda telah mempelajarinya. Untuk konten terkait lebih lanjut, silakan terus perhatikan saluran teknologi baru yang salah.