coba kopikan saja semua rumus dibawah ini, dan lagsung lihat
hasilnya:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User
ID=sa;pwd=rm;Initial Catalog=Northwind;Data Source=HAMMET"
cn.CursorLocation = adUseClient
End Sub
Private Sub Command1_Click()
Dim Var As String
cn.Execute "if exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[Gaji]') and OBJECTPROPERTY(id, N'IsUserTable') =
1) drop table [dbo].[Gaji] " & _
"CREATE TABLE [dbo].[Gaji] ([Nama] [varchar] (30)
COLLATE SQL_Latin1_General_CP1_CI_AS NULL ,[Bulan] [tinyint] NULL ,
[Gaji] [float] NULL) ON [PRIMARY]"
cn.Execute "INSERT INTO gaji VALUES ('Crasher', 1, 100000)"
cn.Execute "INSERT INTO gaji VALUES ('Crasher', 2, 200000)"
cn.Execute "INSERT INTO gaji VALUES ('Crasher', 3, 300000)"
cn.Execute "INSERT INTO gaji VALUES ('Crasher', 4, 400000)"
cn.Execute "INSERT INTO gaji VALUES ('Untidy', 1, 100000)"
cn.Execute "INSERT INTO gaji VALUES ('Untidy', 2, 200000)"
cn.Execute "INSERT INTO gaji VALUES ('Untidy', 3, 300000)"
cn.Execute "INSERT INTO gaji VALUES ('Untidy', 4, 400000)"
If rs.State = 1 Then rs.Close
rs.Open "select Bulan from Gaji group by Bulan", cn,
adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If rs.AbsolutePosition < rs.RecordCount Then
Var = Var + "sum(CASE bulan WHEN " & rs![Bulan] & "
THEN gaji ELSE 0 END) AS Bulan_" & rs![Bulan] & ","
Else
Var = Var + "sum(CASE bulan WHEN " & rs![Bulan] & "
THEN gaji ELSE 0 END) AS Bulan_" & rs![Bulan]
End If
rs.MoveNext
Loop
End If
If rs.State = 1 Then rs.Close
rs.Open "select Nama," + Var + " from Gaji group by Nama", cn,
adOpenStatic, adLockOptimistic
Set dg.DataSource = rs
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
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
