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