Combo+Check+数据库的问题 达人来 送分
Private Sub Command1_Click()
Adodc1.Recordset.ActiveConnection.Execute "Update Levels Set 设置= ' " & Check1(0).Value & Check1(1).Value & Check1(2).Value & Check1(3).Value & Check1(4).Value & Check1(5).Value & Check1(6).Value & Check1(7).Value & " ' Where 名称= ' " & Combo1.Text & " ' "
End Sub
combo的数值分为高 中 低 3个字段 这3个字段在数据表Levels的“名称”项
以上代码将Combo所选择的“高”or“中”or“低”的Check1(0)-(7).Value的值写入数据表Levels的“设置”项 如选择combo的数值高然后Check1(0)-(7).Value=0则数据表Levels的“名称”项的“高”的“设置”项的数值为00000000
以上代码运行顺利没有问题,现在我遇到的问题是怎么在Combo里选择“高”or“中”or“低”的时候读出在数据库里相应的Check1(0)-(7).Value的值？
[解决办法]
Private Sub Combo1_Click()
Dim v As Variant
Adodc1.RecordSource = "select * from Levels where 名称= ' " & Combo1.Text & " ' "
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
v = Split(Adodc1.Recordset.Fields(1).Value, ", ")
Check1.Value = CInt(v(0))
' ...
End If
End Sub
