?? 38.txt
字號(hào):
VB數(shù)據(jù)庫(kù)編空字段的處理
在往SQL Server數(shù)據(jù)庫(kù)中添加記錄時(shí),每個(gè)字段必須給予明確賦值(即在沒(méi)有給數(shù)據(jù)表設(shè)定缺省規(guī)則或給每個(gè)字段設(shè)定缺省值的情況下),否則便發(fā)生錯(cuò)誤。因此我用VB編寫(xiě)了一個(gè)處理函數(shù),將其放入標(biāo)準(zhǔn)模塊,以供相應(yīng)程序調(diào)用。函數(shù)首先判斷是否給字段賦值,若沒(méi)有,則根據(jù)字段類型的不同賦予不同數(shù)值(數(shù)字賦零,字符賦空格)。程序如下:
′zd變量采用變體類型
Function nonull(zd As Variant) As Variant
If IsNull(zd) Then
′字段沒(méi)有賦值,判斷其類型
If zd.Type = 12 Then
′字符型字段,賦空格
nonull = " "
Else
′數(shù)字型字段,賦0
nonull = 0
End If
Else
nonull = zd
End If
End Function
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -