Personal Mind of ASEP

Sahur Bersama Dhuafa ato akrab dipanggil SBD dah engga kerasa udah memesuki usia yang ke-6 dimana yang terakhir acaranya diadain di pesantren yatim piatu Al-Wutsqo Depok, terus di SBD yang ke-6 sekarang rencananya gw ma temen-temen gw mo gadain acaranya di pesantren Al Wutsqo juga.

Memang sih format acaranya kayaknya sama dengan taun lalu, yaitu bagi-bagi makanan, terus sembako, trus alat-alat keperluan sehari-hari trus makan baren deh ma kita-kita, cuman yang jadi perbedaan, yang pada acara pengumpulan dana trus meeting dan laen-laennya pada SBD sebelumnya selalu di adain di tempat gw ma temen-temen gw suka ngumpul yaitu di warnet InterPark ato IPARK tapi untuk SBD yang keenam ini terpaksa kita engga ngumpul lagi di IPARK tapi di tempat baru yaitu di RUBEND alias WARTAS.

Trus kemaren minggu beberapa temen gw jualan pakean didaerah kukusan sanah yang setiap hari minggu biasanya banyak orang-orang yang sengaja olah raga pagi ato cuman nonggkrong doang, pakean-pakean tersebut memang sengaja kita-kita dikumpilin dari beberapa tempat nah pas udah pada ngumpul baru kemaren di jual-jualin dengan bebagai macem harga, tapi lumayan seh bisa dapet duid ratusan ribu juga buad nambah nambah 😀

Yah mudah-mudahan apah-apah yang kita lakuin bisa membuat orang laen bahagia, karena kebahagiaan adalah hak semua mahluk amiin

Ini code gw ambil dari vbcode.com trus code ini di gunain buad munculin crystal report 9 ato 10

Option Explicit

Rem Developed By Byddhika Fernando
Rem Computer Programmer DSV Business Solutions (Pvt) Ltd.
Rem Sri Lanka
Rem charith_c7@yahoo.co.uk , gehan_g7@yahoo.com
Rem 071-4810847
Rem **********************************************
Rem *** Parameter Passing To Crystal Report ***
Rem *** ” For Version 9.0 / 10.0 ” ***
Rem *** Trough Visual Basic 6.0 ***
Rem *** First Report Normal Select Statement ***
Rem *** Second Report Using SQL View ***
Rem *** ************************************ ***
Rem *** Any Suggestions Reply To My E -Mail ***
Rem *** ***
Rem *** Enjoy With Codes ***
Rem *** ************************************ ***

Rem Create New Visual Basic Project [ Standard EXE ]
Rem Select Project Menu Then Add References
Rem Select Crystal Report ActiveX Designer Run Time Library 10.0
Rem Before You Add The Dll You Have To Install
Rem Crystal Report 10.0 Professional Version
Rem Select Project Menu Then Select Components
Rem Crystal ActiveX Report Viewer Library 10.0
Rem Add The Component Into Form
Rem Add Two Labels,Textboxs And Command Buttons
Rem I Used Category And Product Table In Northwind Database
Rem Goto Crystal Report Software And Create Two Reports
Rem Add Two Parameters To The Each Report
Rem Second Report You Have To Create Using SQL View
Rem If You Doesn’t Know How To Create View Use SQL Online Help
Rem After You Creating The Two Reports Come Back To VB
Rem Under Option Option Explicit
Rem Declare The Following Two Statements

Rem Customize Your Report According To Your Style
Rem Use The Following Codes To Complete It.

Private Cry As CRAXDRT.Application
Private Rep As CRAXDRT.Report

Private Sub CmdView_Click()

Rem Set The Screen Mouse Pointer Type
Screen.MousePointer = vbHourglass
Rem Disable The Command Control Until The Report View
CmdView.Enabled = False
CmdView2.Enabled = False
Rem Cry Is Object Variable So You Have To Use
Rem Set Command Before You Use The Cry Object
Rem To Learn More Refer Complete Visual Basic 6.0
Set Cry = New CRAXDRT.Application
Rem Open The Report
Rem You Have To Give Correct Report Path Between Semicolon
Set Rep = Cry.OpenReport _
(“E:Crystal ReportsVisual Basic 6.0SQL ServerTest_Parameter.Rpt”)
Rem Enable The Parameter Switch
Rem This Code Not Compulsory , Some Times You Have To Use This Command
Rep.EnableParameterPrompting = True
Rem Delete Previous Report Data
Rep.DiscardSavedData
Rem Clear The Previous Parameter Values
Rep.ParameterFields(1).ClearCurrentValueAndRange
Rem According To Your Report Parameters Pass The First Parameter Value
Rep.ParameterFields(1).AddCurrentValue Val(Text1.Text)
Rep.ParameterFields(2).ClearCurrentValueAndRange
Rem According To Your Report Parameters Pass The Second Parameter Value
Rep.ParameterFields(2).AddCurrentValue Val(Text2.Text)
Rem You Can Add Any No Of Parameters To Report
Rem When You Are Going To Pass The Valuse You Have Careful The Order Of The
Rem Parametrs And Types
Rem Refresh The Report Component Object
With CRViewer1
.ReportSource = Rep
.RefreshEx True
.Refresh
.ViewReport
End With
Rem Close The Cry Object Variable
Cry.CanClose
Set Cry = Nothing
Rem Set The Screen Mouse Pointer And Command Control To Default
Screen.MousePointer = vbDefault
CmdView.Enabled = False
CmdView2.Enabled = False

End Sub

Private Sub CmdView2_Click()

Rem In Here You Are Going To Same Above Coding
Rem But You Have To Ganearate The Report Using View

Rem Set The Screen Mouse Pointer Type
Screen.MousePointer = vbHourglass
Rem Disable The Command Control Until The Report View
CmdView.Enabled = False
CmdView2.Enabled = False
Rem Cry Is Object Variable So You Have To Use
Rem Set Command Before You Use The Cry Object
Rem To Learn More Refer Complete Visual Basic 6.0
Set Cry = New CRAXDRT.Application
Rem Open The Report
Rem You Have To Give Correct Report Path Between Semicolon
Set Rep = Cry.OpenReport _
(“E:Crystal ReportsVisual Basic 6.0SQL ServerTest_Parameter 02.Rpt”)
Rem Enable The Parameter Switch
Rem This Code Not Compulsory , Some Times You Have To Use This Command
Rep.EnableParameterPrompting = True
Rem Delete Previous Report Data
Rep.DiscardSavedData
Rem Clear The Previous Parameter Values
Rep.ParameterFields(1).ClearCurrentValueAndRange
Rem According To Your Report Parameters Pass The First Parameter Value
Rep.ParameterFields(1).AddCurrentValue Val(Text1.Text)
Rep.ParameterFields(2).ClearCurrentValueAndRange
Rem According To Your Report Parameters Pass The Second Parameter Value
Rep.ParameterFields(2).AddCurrentValue Val(Text2.Text)
Rem You Can Add Any No Of Parameters To Report
Rem When You Are Going To Pass The Valuse You Have Careful The Order Of The
Rem Parametrs And Types
Rem Refresh The Report Component Object
With CRViewer1
.ReportSource = Rep
.RefreshEx True
.Refresh
.ViewReport
End With
Rem Close The Cry Object Variable
Cry.CanClose
Set Cry = Nothing
Rem Set The Screen Mouse Pointer And Command Control To Default
Screen.MousePointer = vbDefault
CmdView.Enabled = False
CmdView2.Enabled = False

End Sub

source : vbcode.com

Huuumm ntar malem gw bakalan olah raga lagih, apaan sih olah raga malem malem? nah ntar malem gw mau olah raga badminton lumayan lah buad ngeluarin cairan-cairan keringan yang jarang banget keluar, maklum deh tiap hari kerjaannya duduk, nga banyak gerak kacuali kalo lagi bangun kesiangan baru dah olah raga pagi lari daeri kosan ampe kantor hehheheh…tapi lumayan lari dikid juga bikin hah heh hoh

Wahh wah wah… ada bahan kena denda dah gw gara-gara raport absen gw warna merahnya lebih dari 3…hiks…hiks…hiks padahal tadi pagi gw dah bangun sekitar jam 7-an en gw dah pegang handung mo siap-siap mandi, eehhh ntah kenapah kok gw malah baringan lagih di kasur dan apakah gerangn yang terjadi ??? ternyata gw ketiduran lagih trus bangun bangun dah jam 8-an lebih buseeett dah kaget gw langsung aje gw mandi pake baju trus ngantor dah ampir2 setengan lari gw jalan kekantor tapi apa hendak dikata sudah takdir dari Tuhan Yang Maha Kuasa pas dah nyampe dikantor jam sudah menunjukan pukul 08.19 dah taukanh apah artinya itu? artinya rapot absen gw buad hari ini jadi warna warni.

Yah kalo sudah begitu gw pasrah deh, lagian khan gw kagak sengaja tuh kesiangannya juga, kalopun didenda ya itung-itung beli cendol tumpah deh :d tapii ya sayang juga seh yah, coba kalo nga kesiangan, berati khan nga bakalan didenda tuh, trus kalo uang yang gw punya sebesar denda ituh gw sumbangin khan jadi amal kali yah…ya sudah lah apa hendak dikata nasi sudah menjadi ketan makanya jadi lengket

ini code berbagai koneksi ke database pake ASP yang gw salin dari snitz_forums_2000 lumayan deh buat kapan2 kalo lupa khan bisa diliad

‘strConnString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(“snitz_forums_2000.mdb”) ‘## MS Access 2000 using virtual path

‘strConnString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & Server.MapPath(“/USERNAME/db/snitz_forums_2000.mdb”) ‘## MS Access 2000 on Brinkster

‘strConnString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:inetpubdbrootsnitz_forums_2000.mdb” ‘## MS Access 2000

‘strConnString = “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“snitz_forums_2000.mdb”)

‘## MS Access 97 using virtual path

‘strConnString = “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=” & Server.MapPath(“/USERNAME/db/snitz_forums_2000.mdb”) ‘## MS Access 97 on Brinkster

‘strConnString = “DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:inetpubdbrootsnitz_forums_2000.mdb” ‘## MS Access 97

‘strConnString = “Provider=SQLOLEDB;Data Source=SERVER_NAME;database=DB_NAME;uid=UID;pwd=PWD;” ‘## MS SQL Server 6.x/7.x/2000 (OLEDB connection)

‘strConnString = “driver={SQL Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME” ‘## MS SQL Server 6.x/7.x/2000 (ODBC connection)

‘strConnString = “driver=MySQL;server=SERVER_IP;uid=UID;pwd=PWD;database=DB_NAME” ‘## MySQL w/ MyODBC v2.50

‘strConnString = “driver={MySQL ODBC 3.51
Driver};option=4;server=SERVER_IP;user=UID;password=PWD;DATABASE=DB_NAME;” ‘##MySQL w/ MyODBC v3.51
‘strConnString = “DSN_NAME” ‘## DSN
source : snitz_forums_2000