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

[dayat]

dim con as new adodb.connection
dim rec as recordset

sub jumlah()
con.open "data"
set rec=con.execute("SELECT SUM(Harga) as Jumlah FROM Table1")
text1.text=rec.fields("Harga").value
end sub






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



   Visit your group "Programmer-VB" on the web. 
   To unsubscribe from this group, send an email to: [EMAIL PROTECTED] 
   Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.