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
ONERRORGOTOERR_GETFIELDDESCRIPTION
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
ต่อไป
withmytable.columns (myfieldname)
'.properties ("nullable") = true'required
'รหัสข้างต้นไม่สามารถตั้งค่าข้อความแสดงข้อผิดพลาดคือ:
'การดำเนินการ OLEDB แบบหลายขั้นตอนสร้างข้อผิดพลาด หากเป็นไปได้ให้ตรวจสอบค่าสถานะ OLEDB แต่ละตัว ไม่มีงานทำ
'ปัจจุบันสามารถตั้งค่าด้วยคำสั่งต่อไปนี้:
'currentdb.tabledefs ("ke_hu") ฟิลด์ ("dw_name") คุณสมบัติ ("จำเป็น") = false
.properties ("Jetoledb: lewlowzerolength") = true'available uspty
.Properties ("default") = "ค่าเริ่มต้นอย่างเงียบ ๆ " 'ค่าเริ่มต้น
จบลงด้วย
setMydb = ไม่มีอะไร
bye_getfielddescription:
exitfunction
err_getfielddescription:
เสียงบี๊บ
debug.printerr.description
msgboxerr.description, vbexclamation
getFieldDescription = null
resumebye_getfielddescription
endfunction
การอ้างอิงบางอย่างเกี่ยวกับ "ข้อผิดพลาดหลายขั้นตอน":
Subchangeunicode ()
dimtdfastabledef
dimfldasfield
dimdbasdatabase
dimproasproperty
setDB = currentDb
foreachtdfindb.tabledefs
foreachfldintdf.fields
ifffld.type = dbtextthen
ifdbengine.errors (0) .number = 3270 จากนั้น
setPro = fld.createProperty ("unicodecompression", 1,0)
fld.properties.appendp
endif
fld.properties ("unicodecompression") = true
endif
nextfld
Nexttdf
enddub
ข้างต้นเป็นบทช่วยสอนโดยละเอียดเกี่ยวกับการตั้งค่าค่าการเข้าถึงเริ่มต้นของ SQL ฉันเชื่อว่าคุณได้เรียนรู้แล้ว สำหรับเนื้อหาที่เกี่ยวข้องเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องทางเทคโนโลยีใหม่ที่ไม่ถูกต้อง