Saya menggunakan Adodb,saya menginginkan nilai terkecil dari r itu
bagaimana ya
saya,hanya bisa menampilkan Nilai berdasarkan fieldnya,dan
recordsource terkecil
rs.MoveFirst
Do While Not rs.EOF
If rs!umur = "muda" Then
usia = 1
ElseIf rs!umur = "paruh baya" Then
usia = 2
Else
usia = 3
End If
If rs!kegemukan = "gemuk" Then
fat = 1
ElseIf rs!kegemukan = "sangat gemuk" Then
fat = 2
Else
fat = 3
End If
If rs!hipertensi = "Yes" Then
tensi = 1
hub = "yes"
Else
tensi = 2
hub = "no"
End If
o = Age - usia
u = (berat - fat)
q = 2
r(i) = Sqr(Hasilpangkat( o, q) + Hasilpangkat( u, q))
rmin = r(1)
If r(i) < rmin Then rmin = r(i)
rs.MoveNext
List1.AddItem r(i) ' menampilkan semua nilai berhasil
Loop
List1.AddItem "Nilai Minimum= " & rmin ' bagaimana yang menampilkan
nilai terkecil serta
record sourcenya
' Label1.Caption = r(1)
End Sub
saya punya contoh seperti ini berhasil tapi tidak menggunakan database
jualMin = jual(1)
For i = 2 To n
If jual(i) < jualMin Then jualMin = jual(i)
Next
List1.AddItem ""
List1.AddItem "Penjualan min = " & jualMin
Saya Minta banyuan kasih trik dan tipsnya
