遇到个问题,一家企业有消防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
当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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货