Foto-Foto SBD 6

gambar 1. plang pesantren Al Wutsqo

gambar 2. hmmm…foto ge hehehe kebetulan gw kebagean job jadi MC

gambar 3. ini di posko SBD 6 yaitu di kedai Rubend dimana kita lagi ngedengerin pengarahan dari sang ketua SBD 6

gambar 4. ketika sudah sampe tujuan langsung kita menurunkan barang barang bawaan kita

gambar 5. nasi kotak buat makan sahur sudah diagikan

gambar 6. selain pembagian makan sahur kita juga ngebagiin bingkisan ato paket

gambar 7. ade ade santri

gambar 8. ade ade santri

Hari terakhir kerja sebelum lebaran

Hari ini adalah hari jum’at, trus emang ada apaan dengan hari jum’at sehh..??hmmm…nga ada yang terlalu istimewa seh, cuman hari ini hari terakhir gawe, soalnya mulai besok ampe tanggal 8 novenber gw dapat liur buad lebaran…lumayan khaan ada seminggu lebih buat liburan en refresing hehhhe

oh ya kemungkinan gw mudik ke bandung hari sabtu sore besok, soalnya ntar melem dini hari gw musti ngadirin acara sahur bersama dhuafa (SBD) ke -6 di pesantren al-wutsqo yang merupakan program rutin tahunan gw ma temen-temen yang dulunya suka nongkrong di warnet iPark Margonda, ato kita-kita sering nyebutnya komunitas iPark Margonda.

Nah kalo gw dah pulkam alias pulang kampung berarti ntar gw bakalan jaran online internet lagih soalnya tempat bokap, nyokap trus nenek lumayan jauh dari warnet, trus kenapah kagak pake dial-up saja? wadoh kumaha yah….ditempat gw jalur telponnya belom nyampe bozzz…trus kalo mau pake hp wadoh wadoh biayanya kagak keuberrr hiks hiks sedih bangeettt

Libur jadinya tanggal 31

Asyiikkk…liburan buat lebaran jadinya tanggal 31 euy aliah hari senin.
Pengumumannya seh baru tadi, yang sebelumnya yang setau gw kalo libur lebaran tahun ini tanggal 2 November ato hari rabu alis sehari sebelum lebaran.
Tapi nga tau kenapa ko jadi di majuin, mungkin kerena beberapa pertimbangan tertentu jadinyaseperti ini. Kalo gw sehh asik asik aje…enak lagiihh liburnya jadi agak panjangan dikid heheheh

Tampilan Website Kakang.NET

Achhhh…..lama-lam gw pusing juga, perasaan dan beberapakali deh gw gonta ganti tempalte situs gw hiks hiks, mungkin karena gw nga gitu nguasain masalah web kali yee pha lagih masalah design bisa gw cuman ngambil templaate dari oswd.org doang by the way thanks yah oswd yang nyediain tempat buad template2 website, tp kenapa sekarang oswd-nya mokad yah? lagi maintenance ato kenapa yah ?

Mudah mudah nga ganti gati lagi de, soalnya cape juga keteak ketiknya :D, tapi….perlu juga sih ya sesekali di ganti templatenya bia ada refresihnya heheh

Sahur Bersama Dhuafa (SBD) 6

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

Cara Nampilin Crystal Report 9 dan 10 di vb 6.0

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 Reports\Visual Basic 6.0\SQL Server\Test_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 Reports\Visual Basic 6.0\SQL Server\Test_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

Olah Raga Malem :D

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

Absen dah Merah 4

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

Koneksi ke db di asp

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:\inetpub\dbroot\snitz_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:\inetpub\dbroot\snitz_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

Lemezzz dan Ngantuk

Hai ini gw ngerasa lemeeess banget and nguantuukkk sekuali, mungkin salah satu penyebab kenapah hal tersebut bisa terjadi karena malem tadi gw maen badminton tuh ampe malem terus dilanjutin ma maen ps trus gw tidur agak kemaleman terus bangun agak kesiangan jadi nga ikotan sahur dahhh hihahaaia…..

Kata orang seh masa nga sahur ajah bikin lemes, tapi kalo gw kalo nga sahur yah lemezz juga bro, yah tapi apah daya tangan gw cuan dua dan kaki gw nga nyampe 3, gw musti betahan mempertahankan kekokohan puasa gw jangan sampe ada yg bocor heheh