Script Penyimpangan

Script Penyimpangan

‘#######################################################################################
‘——- Mulai Buat Perhitungan Penyimpangan Order —
‘——————————————————————–
‘———- Diprogram oleh Armansyah, S.Kom; Sabtu, 09 Agustus 2003 ——
‘——————————————————————–
‘#######################################################################################
‘— Cari Total Penyimpangan —
Dim SQL_TotalSemuaPenyimpangan
SQL_TotalSemuaPenyimpangan = “Select * from Tabel_Penyimpangan2”
RecordSet_OEF.Open SQL_TotalSemuaPenyimpangan, ActiveXDataObject_Connection, adOpenStatic

Dim Total_Semua_Penyimpangan
Total_Semua_Penyimpangan = RecordSet_OEF.recordcount
RecordSet_OEF.Close

‘— Cari Total Penyimpangan Bulan 1 —
Dim SQL_TotalSemuaPenyimpangan1
SQL_TotalSemuaPenyimpangan1 = “Select * from Tabel_Penyimpangan2 ” & _
“Where ((month(JamAsli)= ” & “1” & “) And ” & _
“(Year(JamAsli)= ” &Tahun & “))”
RecordSet_OEF.Open SQL_TotalSemuaPenyimpangan1, ActiveXDataObject_Connection, adOpenStatic

Categories: Classic ASP | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: