遇到个问题,一家企业有消防A和可燃气B两种报警.
当A报警时候数据库中的表con_receive第4列is_warn列置1, ssr.Fields(3).Value = 1;
当B报警时候数据库中的表con_receive第4列is_warn列置2, ssr.Fields(3).Value = 2;
当正常不报警为0,ssr.Fields(3).Value = 0.
共8家企业,数据库中共8条,现在问题:
想把每家企业报警在数据库中分开,当第一家企业消防和可燃气都报警的时候,数据库表con_receive中第一行为这家企业的消防报警ssr.Fields(3).Value = 1,可燃气报警为表中的第二行或者第九行ssr.Fields(3).Value = 1.这样表中共有16条报警,请问如果这样改的话,在vb程序和数据库连接中如何修改程序呢?   vb中相关程序如下:
    sss = "select * from con_receive"   '------sql连接
    
    Adodc1.RecordSource = sss
    
    Adodc1.Refresh
    
    Set ssr = Adodc1.Recordset
 
        If (din1 And 1) = 1 Then         '----------A报警
            
            ssr.Fields(3).Value = 0
            Check3(I).ForeColor = vbBlack
        Else
           Check3(I).ForeColor = vbRed
           
            If Check3(I).Value = 0 Then
                Alame = Check3(I).Caption
                boom = True
                ssr.Fields(3).Value = 1
            Else
                ssr.Fields(3).Value = 0
            End If
       End If        If (din2 And 1) = 1 Then                 '-------------B报警
            ssr.Fields(3).Value = 0
            Check4(I1).ForeColor = vbBlack
        Else
            Check4(I1).ForeColor = vbRed
            If Check4(I1).Value = 0 Then
                Alame = Check3(I1).Caption
                boom1 = True
                ssr.Fields(3).Value = 2
            Else
                ssr.Fields(3).Value = 0
            End If
        End If