Data Report Harian,Bulanan,Tahunan Menggunakan Visual Basic

Download Disini

Private Sub Command1_Click()
Set DataReport1.DataSource = Adodc1
DataReport1.Refresh
DataReport1.Show
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()

sql = "SELECT * FROM target WHERE tanggal>=#" & Format(DTPicker1.Value, "YYYY-mm-DD") & "# AND tanggal <=#" & Format(DTPicker2.Value, "YYYY-mm-DD") & "# "

Adodc1.RecordSource = sql
Adodc1.Refresh
DataGrid1.Refresh

End Sub

Private Sub Command4_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Adodc1.RecordSource = "target"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
DataGrid1.TabStop = False
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Adodc1.RecordSource = "target"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.AllowUpdate = False
DataGrid1.TabStop = False
DataGrid1.Refresh
End Sub