Gabung di Jejaring Sosial Statusbook Sekarang!

Gabung di Jejaring Sosial Statusbook Sekarang!: Some description

Mengatasi Kompleksitas

Lirik Lagu

http://www.ziddu.com/download/18817067/liriklagumaddijanepricetag.docx.html

RuMuS CinT@

Benci x benci = suka
Suka + suka = Cinta
Cinta - Suka = Pudar
Cinta : 2 = SelinGkuh
Rayuan + Cinta = ashekk
Selingkuh x 2 =  ketahuan
Ketahuan x 2 =  putus
Putus x 1 = ST12(cari Pacar Lagi)
hahahhahhahha.
:-D

Backup dan Restore Database Access

Object yang diperlukan :

* 1 Buah Form
* 2 Buah CommandButton
Name : Command1, Caption : Backup
Name : Command2, Caption : Restore
* 1 Buah CommonDialog, Name : CommonDialog
Keterangan : Untuk menambahkan komponen CommonDialog pada toolbox, silahkan masuk ke menu Project – Components… Pada dialog Component dan pada tab Control, pilih Microsoft Common Dialog Control 6.0 (SP3) kemudian klik tombol OK.

Tambahan :

* Buah sebuah database dengan menggunakan Ms. Access 2003 dan beri nama dtbs.
* Buah sebuah folder dengan nama _Backup dan letakkan folder tersebut ke dalam folder aplikasi anda.

Private Declare Function copyfile Lib "Kernel32.dll" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Dim FFILE As String
Dim mPath As String

Private Sub Command1_Click()
    FFILE = "BckupDtbs " & Format(Date, "dd-mm-yyyy") & " " & Format(Time, "hhnnss") & ".dtbs"
    copyfile App.Path & "\dtbs.mdb", App.Path & "\_Backup\" & FFILE, 0
            MsgBox "Berhasil, Database telah di backup" & vbCrLf _
             & "Path : " & App.Path & "\_Backup\" & FFILE, vbInformation
End Sub

Private Sub Command2_Click()
    CommonDialog.DialogTitle = "Restore Databse"
    CommonDialog.Filter = "DtbsProgramDJo (*.dtbs)|*.dtbs"
    CommonDialog.ShowOpen
    mPath = CommonDialog.FileName
    If mPath <> "" Then
    '[Tambahkan kode dibawah ini untuk memutuskan koneksi database yang sedang terbuka]
    ' Rec.Close
    ' Set Rec = Nothing
    'Db.Close
    'Set Db = Nothing
    copyfile mPath, App.Path & "\dtbs.mdb", 0
    MsgBox "Berhasil, anda telah melakukan Restore Database", vbInformation
    End If
End Sub

Cara Membuat MySQLConnectionKami.dll yang sederhana dengan VB 6.0

Bagi banyak programmer VB 6 yang sudah mahir, mungkin membuat DLL koneksi database sudah hal yang lumrah dan biasa saja. Namun apakah hal itu juga berlaku pada pemula VB 6 ? hemmm tentu jawabannya relatif juga, ada yang bisa dan ada yang tidak, nah… bagi yang sudah bisa jangan menghina kesederhanaan coding DLL ini oke hehehehe, karena tujuan penulis membuat tulisan ini untuk membantu para pemula yang kesulitan dalam membuat koneksi database menggunakan DLL. Oke, dari pada penulis berkata panjang lebar, lebih baik penulis langsung saja membahas bagaimana membuat MySQLConnectionKami.dll dengan VB 6 Langkah pertama kita buat dll-nya terlebih dahulu 1. Buka VB6 2. Buat Project DLL baru (File - ActiveX DLL - OK) 3. Beri nama Class1 dengan nama clsMySQLConnection 4. Ketik listing program berikut pada clsMySQLConnection Option Explicit Private strServer As String Private strDatabase As String Private strUID As String Private strPWD As String Private strPort As String Private cnOpen As Boolean Private cn As ADODB.Connection Private DGError Private cnString As String ‘open connection Public Sub Open_Cn(ByVal nstrServer As String, ByVal nstrDatabase As String, ByVal nstrUID As String, ByVal nstrPWD As String, ByVal nstrPort As String) On Error GoTo errhandler strServer = nstrServer strDatabase = nstrDatabase strUID = nstrUID strPWD = nstrPWD strPort = nstrPort Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cnString = “Driver=MySQL ODBC 3.51 Driver;Server=” & strServer & “;UID=” & strUID & “;PWD=” & strPWD & “;Database=” & strDatabase & “;port=” & strPort cn.Open cnString cnOpen = True Exit Sub errhandler: Call MsgBox(”Connection Error.”, vbOKOnly, “Error”) strServer = “” cnOpen = False End Sub ‘re open connection Public Sub Re_Open_Cn() Call Close_Cn Call Open_Cn(strServer, strDatabase, strUID, strPWD, strPort) End Sub ‘close connection Public Sub Close_Cn() If cnOpen = True Then cn.Close Set cn = Nothing cnOpen = False End If End Sub ‘ambil nama server Public Property Get myStrServer() As String myStrServer = strServer End Property ‘memberi nama server Public Property Let myStrServer(ByVal nstrServer As String) strServer = nstrServer End Property ‘ambil nama database Public Property Get myStrDatabase() As String myStrDatabase = strDatabase End Property ‘memberi nama database Public Property Let myStrDatabase(ByVal nstrDatabase As String) strDatabase = nstrDatabase End Property ‘ambil nama user Public Property Get myStrUID() As String myStrUID = strUID End Property ‘memberi nama user Public Property Let myStrUID(ByVal nstrUID As String) strUID = nstrUID End Property ‘memberi password Public Property Let myStrWD(ByVal nstrPWD As String) strPWD = nstrPWD End Property ‘ambil port Public Property Get myStrPort() As String myStrPort = strPort End Property ‘memberi port Public Property Let myStrPort(ByVal nstrPort As String) strPort = nstrPort End Property ‘ambil connection Public Property Get myStrConnection() As ADODB.Connection Set myStrConnection = cn End Property 5. Save Project dengan nama MySQLConnectionKami di foleder (Project MySQLConnection) 6. Make MySQLConnectionKami.dll dan simpan di folder (Project MySQLConnection\DLL) 7. Buat Form pemanggil, dengan mebuka VB 6 (File - New Project - VB Enterprise Edition Controls - OK) 8. Beri nama Form dengan frm_CobaMySQLConnection 9. Tambahkan 1 buah Listview dan Button 10. Beri nama Listview1 dengan lvAmbilData 11. Beri nama Button1 dengan nama cmd_AmbilData 12. Rekomendasikan MySQLConnectionKami.dll (Project - Reference - Browse File MySQLConnection.dll - OK) 13. Pada lvAmbilData rubah view-nya pada Properties dengan 3-lvwReport 14. Ketik listing program berikut ini pada Form frm_CobaMySQLConnection Private ambilConnection As MySQLConnectionKami.clsMySQLConnection Private rs As ADODB.Recordset Private Sub cmd_AmbilData_Click() On Error Resume Next Dim i As Double Dim j As Double Dim k As Double Set rs = New ADODB.Recordset Set ambilConnection = New MySQLConnectionKami.clsMySQLConnection ambilConnection.Open_cn “localhost”, “MySQL”, “root”, “badboyfuck”, “8080″ rs.Open “SELECT * FROM help_category h;”, ambilConnection.myStrConnection, adOpenDynamic jmlhRecord = rs.RecordCount If jmlhRecord > 0 Then For i = 0 To rs.Fields.Count - 1 lvAmbilData.ColumnHeaders.Add , , rs.Fields(i).Name, 2000 Next i For k = 0 To rs.RecordCount - 1 If IsNull(rs.Fields(0).Value) Then _ lvAmbilData.ListItems.Add , , “” Else lvAmbilData.ListItems.Add , , rs.Fields(0).Value For j = 1 To rs.Fields.Count - 1 If IsNull(rs.Fields(1).Value) Then _ lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , “” Else lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , rs.Fields(j).Value Next j rs.MoveNext Next k End If rs.Close ambilConnection.Close_cn Set rs = Nothing End Sub 15. Jalankan program, semoga berhasil dan bermanfaat.

Kata-KaTa Motivasi

“Ketahuilah,hal2 terindah di dunia ini terkadang tak bs terlihat dlm pandangan atau teraba dgn sentuhan, mereka hny bs terasakan dgn hati”.
“Ketika kekuatan akan cinta melebihi kecintaan akan kekuasaan, maka dunia pun menemukan kedamaian”.
“Jika Anda bisa membuat orang lain tertawa, maka Anda akan mendapatkan semua cinta yg Anda inginkan”.
“Jangan lihat siapa yg berbicara, tapi dengarkan apa yg mereka bicarakan”.
Tiada siapa paling pandai & paling bodoh di dunia ini krn setiap yg pandai itu boleh mjd bodoh & setiap yg bodoh itu boleh mjdi pandai
Pengetahuan ditingkatkan dgn belajar; kepercayaan dgn perdebatan; keahlian dgn latihan & cinta dgn kasih sayang
Proyek besar tak bisa diselesaikan sekaligus, tapi hrs di bagi2 kebagian yg kecil & dapat dikendalikan
Mgkn saja setiap masalah & tantangan yg kita anggap sulit itu masih ada solusinya, namun blom terpikirkan oleh kita
Barangsiapa membawa berita tentang orang lain kepadamu, maka dia akan membawa berita tentang dirimu kepada orang lain
Kualitas dari kehidupan se2orang itu tergantung pada komitmennya utk berhasil, bidang apapun yg dia tempuh
Manusia biasanya lebih menghargai sesuatu yg sukar diperoleh tapi sering melupakan nikmat yg telah tersedia
Orang yg berjaya dalam hidup adalah orang yg nampak tujuannya dengan jelas & menjurus kepadanya tanpa menyimpang
Seseorang dgn wawasan yg cukup untuk mengakui kekurangannya berada paling dekat dgn kesempurnaan
Orang2 berhasil tidak hanya keras hati, mereka juga pekerja keras yg percaya pada kemampuan dirinya
Berfikir itu cahaya, kelalaian itu kegelapan, kejahilan itu kesesatan & manusia yg paling hina ialah orang yg menganiaya orang bawahannya
Bkn mereka yg terkuat & terbesar yg akan dapat mempertahankan eksistensinya. Tapi hanya mereka yg mampu beradaptasi terhadap perubahan
Mimpi mmg sangat perlu utk memelihara gairah hidup & kemajuan, tapi mimpi tanpa disertai tindakan hanyalah seperti pepesan kosong belaka
Kawan sejati ialah orang yg mencintaimu meskipun telah mengenalmu dengan sebenar-benarnya ia itu baik dan burukmu
Kekecewaan mengajar kita arti kehidupan. Teruskan perjuangan kita walau terpaksa utk hadapi rintangan demi rintangan hidup
Barangsiapa yg hari ini sama dgn kemarin, maka tertipulah dia, & barangsiapa hari ini lebih jahat dari kemarin, maka terkutuklah dia
Kita tidak dapat meneruskan hidup dengan baik jika tidak dapat melupakan kegagalan dan sakit hati di masa lalu
Ketakutan-ketakutan akan membatasi Anda untuk melakukan berbagai hal yang sangat berarti bagi Anda
Tak ada rahasia utk menggapai sukses. Sukses itu dpt terjadi krn persiapan, kerja keras & mau belajar dari kegagalan
Lupakan kekecewaan, karena harapan dimasa depan masih terbentang luas dan begitu cerah
Dalam kerendahan hati ada ketinggian budi. Dalam kemiskinan harta ada kekayaan jiwa. Dalam kesempitan hidup ada kekuasaan ilmu
Kita akan belajar lebih banyak mengenai sebuah jalan dengan menempuhnya, daripada dengan mempelajari semua peta yag ada di dunia
Menuliskan tujuan akan sangat membantu dalam menjaga alasan melakukan sesuatu
Sukses dalam hidup tidak ditentukan oleh kartu baik, tapi dengan cara memainkan kartu buruk dengan baik
Yang anda butuhkan untuk meraih cita2 adalah keinginan kuat yg akan membawa anda menjadi pekerja keras
Anda bisa sukses sekalipun tak ada orang yang percaya anda bisa. Tapi anda tak pernah akan sukses jika tidak percaya pada diri sendiri
Sukses dalam hidup tidak ditentukan oleh kartu baik,tapi dengan cara memainkan kartu buruk dengan baik
Kalaulah anda tidak mampu untuk menggembirakan orang lain, janganlah pula anda menambah dukanya
Jangan sekali-kali kita meremehkan sesuatu perbuatan baik walaupun hanya sekadar senyuman
Mimpi tidak hanya membantu Anda berhadapan dengan kegagalan, tetapi mereka juga memotivasi Anda secara konstan
Mustahil itu OPINI. Ketika Anda TIDAK YAKIN dapat mencapai IMPIAN, sesungguhnya Anda sudah GAGAL SEBELUM MEMULAI
Seribu perkataan dan pengetahuan tdk berarti tanpa ada satu tindakan yang nyata. ACTION !!!
KEKUATIRAN tidak pernah memperbaiki hari esok, bahkan hanya melemahkan SUKACITA pada hari ini
Memaafkan memang takan mengubah MASA LALU, tapi pasti akan mempermudah MASA DEPAN
Berapa Besar ukuran CINTA? Sebesar PERJUANGAN kita untk MEMPERTAHANKAN nya
Kata-kata itu tenaga yang luar biasa. Seandainya mulut HItler diplester, Perang Dunia ke 2 tak akan ada.
Jadilah berkat bagi banyak orang. Berbagi itu indah teman :
Memiliki IMPIAN saja belum cukup. Miliki komitmen untuk MERASA HARUS dan BERTEKAD mencapai impian tersebut
Dalam Takut, yg Tampak adlh Hambatan. Dalam YAKIN, yg Tampak adlh KESEMPATAN
WORKING……is to win the WAR to be THE KING
Kesempatan tidak datang dua kali . Just do it !!! Jangan sampai menyesal karena kesempatan tersebut berlalu begitu saja
Hidup tanpa mempunyai TUJUAN sama seperti ” Layang-layang putus” Miliki tujuan dan PERCAYALAH anda dapat mencapainya
BERPIKIR POSITIF dapat menghancurkan semua tembok pemisah antara ‘tidak bisa’ dan ‘bisa’
Do what you LOVE , and LOVE what you do. And you will get what you want
You can’t go back and make new start.. But you can start now to make new end…
“Tidak akan ada langkah ke-2 bila tak ada langkah pertama” , Just Do it !!!
Jangan Merangkak dalam Keraguan, Berlarilah dengan KEYAKINAN
Good night all, syukuri untuk semua apa yg terjadi hari ini dan tidurlah dengan nyenyak.
Friendship doubles your joys, and divides your sorrows
Never tell God that u have a big PROBLEM, but tell ur problem that u have a BIG GOD
orang bijak adalah orang yang selalu belajar dari kegagalannya sedangkan orang yang bodoh adalah orang yang selalu menutupi kegagalannya
orang yang gagah perkasa itu bukan orang yang bertubuh kekar melainkan orang yang mampu mengendalikan emosinya ketika marah
lakukan apa yang dapat anda lakukan, dengan apa yang anda miliki dan di tempat anda berada
Kebanyakan orang gagal adalah orang yang tidak menyadari betapa dekatnya mereka ke titik sukses saat mereka memutuskan untuk menyerah
Jangan biarkan bayangan masa lalu merusak sinar matahari untuk hari esok, Hiduplah untuk hari ini.
Lakukanlah apa yang anda ingin lakukan. selama itu bernilai positif bagi anda.
Terkadang terasa pesimis,namun bangkitkanlah dengan bayangkan euforia yg nanti kalian raih
Jangan pernah berfikir tidak akan pernah bisa mendaptkan dia,meraih cita-cita,dan segala hal yg kau inginkan
Tetap semangat ! Tetap berkontribusi bagi bangsa dan negeri ini
Selamat pagi,awali hari dengan penuh semangat !
Lelah?menyerah? Padahal kesuksesan sudah di depan mata
Berusahalah terus jangan pantang menyerah seakan akan besok kau akan mendapatkan kebahagian tak terkira
Semangatlah karena kau tahu esok akan menjadi kesuksesanmu
Kau takkan pernah tahu kesuksesan itu jikalau tak pernah mencoba dan hanya menyerah
Mimpikan yang kau mau dan kejarlah impianmu itu
Belajar memang melelahkan,namun lebih lelah nanti kelak jikalau saat ini tidak belajar
Hidup ini penuh warna,kitalah yang harus berusaha mengisi tuk hidup penuh warna cerah
Orang sukses takkan pernah mengeluh bagaimana kalau akan gagal,namun berusaha bagaimana untuk berhasil
lakukanlah yang terbaik dan anda akan dapat hasil yang terbaik pula
kesuksesan itu penuh tantangan,gagal sekali dua kali itu biasa,tetaplah konsisten dengan mimpi kita
Hadapi masalah tnpa masalah agar masalah tidak mnjadi risalah kesalahan spanjang perjalanan ini
Genggamlah bumi sblm bumi menggengam anda,pijaklah bumi sblm bumi memijak anda,maka perjuangkanlah hidup ini sblm anda memasuki perut bumi.
berlarilah sekencang mungkin,realisasikan lah target yg telah dicanangkan untuk hidup yg lebih baik
“Hanya seseorang yg bs takut bertindak berani. Tanpa rasa takut itu tidak ada apapun yg bisa disebut berani”.
“Tindakan benar memerlukan kekuatan besar”.
“Tidak ada beban yg berat kalau semua orang mau mengangkatnya”.
“Buka mata kita lebar-lebar sebelum menikah, dan biarkan mata kita setengah terpejam sesudahnya”.
“Berbahagialah mereka yang dapat bertahan di saat menerima keberuntungan dan ketidakberuntungan”.
“Uang tdk akan pernah cukup untuk menyembunyikan perasaan sakit dan kebingungan”.
“Dalam dunia ini, tidak ada kesilapan atau ketidak sengajaan. Semua yg mendatangi kita adalah untuk dipelajari”.
“Ketka kita sedang tdk mengingat-Nya bahkan Ia selalu bsama kita dan menurunkan semua anugerah-Nya. Lalu pantaskah kita merusak semuanya?”.
“Ketika kita berencana maka biarkanlah Tuhan yg menjadi penghapusnya dan menggantinya dengan yg lebih baik”.
“Kejujuran adalah batu penjuru dari segala kesuksesan, Pengakuan adalah motivasi terkuat”.
“Mengucapkan kta2 negatif sprti halnya sseorang menancapkan paku2 di sebatang pohon.Walaupun paku sdh tercabut,tetap aj meninggalkan bekas”.
“Anda tdk pernah merencanakan masa depan dimasa lalu”. (Edmund)
“Ilmu itu di dapat dari lidah yg gemar bertanya dan akal yg suka berpikir”. (Abdullah bin Abbas)
“Tiada shalat yg sempurna tanpa jiwa yg khusyuk.Tiada puasa yg sempurna tanpa mencegah diri drpd pbuatan sia2″.
“Ya Tuhan, jgn engkau tinggalkan kami dlm kesengsaraan,jgn engkau ambil kami dlm kelengahan,dan jgn engkau jdkan kami tmasuk org2 yg lalai”.