1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| sql = " SELECT tbl_list_substance.NameSubstance, tbl_declaration_function_substance.Value, [Value]/[Weight] AS MassRatio" & _
" FROM tbl_list_substance RIGHT JOIN (tbl_declaration RIGHT JOIN tbl_declaration_function_substance ON tbl_declaration.DeclarationFunctionID = tbl_declaration_function_substance.DeclarationFunctionID) ON tbl_list_substance.SubstanceID = tbl_declaration_function_substance.SubstanceID" & _
" WHERE tbl_declaration_function_substance.DeclarationFunctionID=" & DeclarationID
rs.Open sql, conn
lstValue.ListItems.Clear
Do While Not rs.EOF
a = a + 1
Set lstItem = lstValue.ListItems.Add(, , a, 1, 1)
lstItem.SubItems(1) = rs(0).Value
lstItem.SubItems(2) = rs(1).Value
lstItem.SubItems(3) = rs(2).Value
rs.MoveNext
Loop |
Partager