继续请教数据库布尔类型更新问题?

Question

Public Sub Update(ByVal OriRecipe_Id As Integer) 
  Dim SQLstmt As String    '存放SQL语句的字符串 
  '设置UPDATE语句 
  SQLstmt = "Update RecipeData Set N_Id='" + Trim(N_Id) _ 
          + "', Fillin_Time='" + Trim(Fillin_Time) + "', Fillin_Operator='" + Trim(CurUser.UserName) + "', Recipe_Name='" + Trim(Recipe_Name) _ 
          + "', WL1Name='" + Trim(WL1Name) + "', WL1Set='" + Trim(WL1Set) _ 
          + "', WL1Sure='" + Trim(WL1Sure) + "', WL1Stop='" + Trim(WL1Stop) _ 
          + "', WL1Wrong='" + Trim(WL1Wrong) + "', S1BWork = True" + _ 
          + ", WL2Name='" + Trim(WL2Name) + "', WL2Set='" + Trim(WL2Set) _ 
          + "', WL2Sure='" + Trim(WL2Sure) + "', WL2Stop='" + Trim(WL2Stop) _ 
          + "', WL2Wrong='" + Trim(WL2Wrong) _ 
          + "',S2BWork = True WHERE Recipe_Id=" + Trim(OriRecipe_Id)   SQLExt (SQLstmt) 
End Sub 请教大侠+ "', S1BWork = True" + _ 中,如果True用变量来替代,应该如何处理?

Answer 1

S1Bwork="& aa &"
aa的值为1或0

Answer 2

是不是布尔型在写入数据库时要用1或0,不是TRUE和FALSE?

Answer 3

sql server 布什尔取值只能是0或1；access 布什尔值可用true和false，on和off，0或1

Answer 4

Public Sub Update(ByVal OriRecipe_Id As Integer)
  Dim SqlStmt As String    '存放SQL语句的字符串
  '设置UPDATE语句
  SqlStmt = "Update RecipeData Set N_Id='" + Trim(N_Id) _
          + "', Fillin_Time='" + Trim(Fillin_Time) + "', Fillin_Operator='" + Trim(CurUser.UserName) + "', Recipe_Name='" + Trim(Recipe_Name) _
          + "', WL1Name='" + Trim(WL1Name) + "', WL1Set='" + Trim(WL1Set) _
          + "', WL1Sure='" + Trim(WL1Sure) + "', WL1Stop='" + Trim(WL1Stop) _
          + "', WL1Wrong='" + Trim(WL1Wrong) + "', S1BWork = '" + Trim(IIf(S1BWork, -1, 0)) _
          + "', WL2Name='" + Trim(WL2Name) + "', WL2Set='" + Trim(WL2Set) _
          + "', WL2Sure='" + Trim(WL2Sure) + "', WL2Stop='" + Trim(WL2Stop) _
          + "', WL2Wrong='" + Trim(WL2Wrong) + "', S2BWork = '" + Trim(IIf(S2BWork, -1, 0)) _
          + "' WHERE Recipe_Id=" + Trim(OriRecipe_Id)
  SQLExt (SqlStmt)
End Sub
以上修改后测试通过.