Form 2 Aplikasi SMS
Private Sub Command1_Click()
Set rEk = Nothing
rEk.Open "SELECT DISTINCT pesan, count(INBOX.PESAN) AS banyak From INBOX GROUP BY INBOX.PESAN;", kOnEkSi
List1.Clear
While Not rEk.EOF
List1.AddItem rEk.Fields(0).Value & " " & rEk.Fields(1).Value
rEk.MoveNext
Wend
End Sub
0 comments:
Post a Comment
sabar ya, komentar anda akan kami moderasi terlebih dahulu. laporkan kepada kami apabila ada post yang masih berbentuk kiri ke kanan. nuhun