SQL Server 開發實戰：空值處理與多字段批量插入技巧

技巧一：通用空值處理函數

向 SQL Server 插入記錄時，若表未定義缺省值，每個字段必須顯式賦值，否則報錯。編寫一個 VB 處理函數置於標準模塊，供各程序調用：判斷字段是否賦值，未賦值則按類型賦預設值（數字型賦 0，字符型賦空格）。

Function nonull(zd As Variant) As Variant
    If IsNull(zd) Then
        ' 字段未賦值，判斷類型
        If zd.Type = 12 Then   ' 字符型
            nonull = " "
        Else                   ' 數字型
            nonull = 0
        End If
    Else
        nonull = zd
    End If
End Function

技巧二：利用循環動態構建多字段 INSERT 語句

需向含 30 個字段的表 SJB 錄入數據，字段值存於數組 A(0) 到 A(29)。字符型字段需加引號，並配合 nonull 防空值。用循環拼接 SQL 字符串，避免冗長代碼，提升可讀性。

Dim sqlstr As String, sqlstr1 As String
Dim i As Integer
For i = 0 To 29
    ' rs.rdoColumns(i) 為表中某字段
    If rs.rdoColumns(i).Type = 12 Then  ' 字符型
        sqlstr = sqlstr & "'" & nonull(A(i)) & "',"
    Else                               ' 數字型
        sqlstr = sqlstr & nonull(A(i)) & ","
    End If
Next
' 去掉最後一個逗號
sqlstr = Left(Trim(sqlstr), Len(Trim(sqlstr)) - 1)
sqlstr1 = "insert into sjb values(" & sqlstr & ")"
' 執行插入
cn.Execute sqlstr1

此法異曲同工，代碼簡潔易維護，適合字段較多的批量插入場景。