Re: [Programmer-VB] Text1.text = Total harga pada field tabel.

Tue, 18 Apr 2006 19:57:47 -0700

dim rs as new adodb.recordset

if rs.state =1 adstateopen then re.close
rs.open "SELECT SUM(Harga) AS TotalHarga FROM NamaTabel",con,adOpenDynamic, adLockReadOnly
text1.text = rs!TotalHarga


On 4/19/06, Frengki Bunga <[EMAIL PROTECTED]> wrote:
Halo rekan-rekan.
 
Misalkan didalam database Access ada tabel yang seperti dibawah ini:
 
NamaBarang  |Harga
--------------------
Buku         2500
Pensil       1000
Map          
Spidol       5000
------------------
 
Pertanyaan:
 
Bagaimana code agar text1.text = total harga yang ada pada field Harga di tabel database.
 
Terima kasih.
           
 

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS





--
best regards,
LiveDeviL

There's no teacher who can teach us anything new...
They just help us to remember the things we always knew...

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer


YAHOO! GROUPS LINKS



Kirim email ke