Upload Photo Dan kemudian Menyimpannya ke acces pada VB 6

Assalamualaikum

Pagi ini cerah, sesuai dengan moodku. Saya harap teman-teman juga merasakan hal yang sama. Soalnya tanpa mood yang bagus dijamin belajar siang malam juga ndag bakal masuk apalagi paham.

Progam yang nanti saya bikin, sesuai permintaan kakak saya harus ada browse photo. Dan saya hanya jawab " OKE, ndag masalah". Padahal pass dikasih tahu mengenai hal itu saya pun belum pernah belajar cara browse poto sebelumnya.

sebelum ingin upload photo,

• Langkah Pertama : Buat terlebih dahulu database  dengan nama sesuai yang diinginkan, untuk database yang bikin   namanya Pegawai.mdb menggunakan Microsoft acces 2007. Untuk nama tabelnya adalah tbGambar. Hasilnya seperti ini

gambar: Tabel Database

• Langkah Kedua : Buat Rancangan Form vb 6.0seperti  dibawah iniada satu label, satu textbox dengan nama txtnama, dua command button satu dengan nama cmdsimpan satunya lagi dengan nama cmdupload, satu frame, satu image dengan nama image1 atur properti stretch jadi true, satu commondialog dengan nama cdi. Commondialog didapat dengan cara : Pilih project, pilih Component, Kemudian centang pilihan Microsoft Common Dialog 6.0 lalu tambahkan pada form

         

Gambar : Rancangan Form 

• Langkah Ketiga:  Kita buat listing kodenya sebelumnya kita buat modul terlebih dahulu dengan isi sebagai berikut:

Public koneksi As New ADODB.Connection

Public recordset As New ADODB.recordset

Public Function konekin()

strkonek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database\database_pegawai.mdb"

If koneksi.State = adStateOpen Then

koneksi.Close

Set koneksi = New ADODB.Connection

koneksi.Open strkonek

Else

koneksi.Open strkonek

End If

End Function

Kemudian klik ganda pada form kemudian ketikkan listing

Private Sub Form_Load()

konekin

koneksi.CursorLocation = adUseClient

End Sub

 Klik ganda pada command Button Upload Photo lalu ketikkan koding dibawah ini:

'untuk menampilkan photo di form

Private Sub cmdupload_Click()

cdi.Filter = "Picture FileS(*.jpg;*.bmp;)|*.jpg;*.bmp;"

cdi.ShowOpen

Image1.Picture = LoadPicture(cdi.FileName)

Image1.Visible = True

End Sub

Klik ganda pada commnad button simpan lalu ketikkan koding :

Private Sub cmdsimpan_Click()

Set recordset = koneksi.Execute("insert into tbGambar values('" & txtnama.Text & "','" & cdi.FileName & "')")

End Sub

dan hasilnya seperti dibawah ini:

Selamat berkarya. Hope you like that and I am happy if you would like to try it:)

Cara Berkerudung Yang Benar

Ajaran islam menganjurkan pada semua wanita baik anak yang masih kecil namun sudah baligh untuk menutupi aurat. Anjuran ini tentu bersumber dari kitab suci yang jelas sekali mewajibkan semua wanita untuk menutupi auratnya yang boleh terlihat hanya telapak tangan dan muka. Saya menyadari bahwa dalam memakai kerudung masih banyak kekurangan, Namun ini lho yang sebenarnya harus dan wajib dilakukan ketika kita memutuskan untuk berhijab. Kita perlu membenahi apa yang kurang. Mudah-mudahan kita cepat berhijab yang benar-benar berhijab. Amin saling mendoakan yah
Ini saya ambil dari Lihat disini

Gambar: Cara yang benar dan sesuai ajaran islam

Sang Pemilik Hati

Wahai sang Pemilik banyak hati,
Sampai detik ini, hatiku masih terpaut padanya
Aku tahu ini pun atas seijinMU,

Wahai sang Pemilik banyak hati,
Betapa aku harus bersabar, ketika bukan hatiku yang ia pilih
Betapa aku harus bersabar, ketika bukan aku lagi tempat ia  bersandar

Wahai sang Pemilik banyak hati,
Hati terasa teriris, hati terasa tersayat
Hati terasa cemburu melihatnya

Wahai sang Pemilik banyak hati,
Mengapakah, ketika aku dan ia telah engkau pisahkan
Engkau seolah mengabariku, Engkau seolah memberiku firasat
Dan firasatku selalu benar adanya

Wahai sang pemilik hai,
Mengapakah engkau pilihkan ia bertugas disini, ditempat yang sama
Bukan di tempat lain

Wahai sang pemilik hati,
apakah ini adalah caraMu mengajariku untuk tetap bersabar
Apakah ini adalah caraMu agar aku melupakkannya

Wahai sang pemilik hati,
Banyak cara yang telah aku lakukan
Banyak hal yang telah aku jalani
Termasuk menjadi seorang yang tega dan terkesan kejam

Wahai sang pemilik hati,
Kadang aku merasa lelah,
Hari ini aku putuskan untuk menjauh drinya
semata-mata untuk menjaga hatiku sendiri
bkan karena aku jahat

Wahai sang pemilik hati,
sementarakanlah perasaan ini jika memang bukan ia jodoh saya

Perjalanan Ke Ibukota yang Menyenangkan