Rabu, 11 Mei 2016

Command Line Select

Assalamu'alaikum...

Kali ini saya akan berbagi salah satu perintah query pada DML yaitu SELECT.
Sebelum menuju ke penjelasan command line SELECT alangkah baiknya kita mengetahui terlebih dahulu apa itu DML.

DML(Data Manipulation Language)

DML yaitu kumpulan perintah query yang di gunakan untuk memanipulasi data pada Tabel, seperti menambah, merubah, atau menghapus data pada Tabel.

Berikut beberapa perintah untuk memanipulasi Data:

  • Insert : untuk memasukkan Data pada Tabel
  • Update : perintah yang berfungsi untuk merubah atau memperbarui Data
  • Select : perintah yang berfungsi untuk menampilkan Data pada DataBase
  • Delete : perintah yang berfungsi untuk menghapus Data pada DataBase

karena tujuan penulisan artikel saya kali ini adalah untuk penjelasan dan cara penggunaan command line select, maka untuk perintah Insert, Update dan Delete akan saya jelaskan di penulisan artikel saya yang selanjutnya.

Berikut beberapa contoh penggunaan perintah SELECT

1. SELECT *FROM (nama tabel);

Perintah ini berfungsi untuk menampilkan tabel yang telah di buat, kita hanya perlu mengganti kata yang ada di dalam kurung dengan tabel yang telah dibuat, "jangan pakai tanda kurung nya".

contoh penulisan :

select *from anggota


perintah ini berfungsi untuk menampilkan semua data pada tabel, jika kita hanya ingin menampilkan beberapa field yang sudah kita tulis maka perintah yang harus ditulis adalah sbb.

select Id_Anggota, Nama from anggota;

dari penulisan perintah di atas maka field yang akan di tampilkan adalah Id_Anggota dan Nama.

2. Penggunaan klausa Where dan Like

Di dalam instruksi SELECT, dapat ditambahkan klausa WHERE, Sehingga data yang muncul adalah hanya data yang sesuai dengan kriteria yang diberikan di dalam klausa where tersebut.

contoh penulisan:

select Id_Anggota, Nama, Alamat, No_Telpon from anggota where alamat="Sudirman";

instruksi di atas akan menampilkan data Id_Anggota, Nama, Alamat, No_Telpon dari tabel anggota dengan alamat Sudirman.

Untuk pencarian data dengan kriteria pencarian yang tidak harus tepat dengan kriteria yang di inginkan, atau dengan kata lain data yang menyerupai kriteria, maka dapat ditambahkan operator LIKE di dalam klausa WHERE. 
Pada nilai kriteria yang menggunakan operator LIKE umumnya ditambahan tanda ‘%’ yang
artinya mengabaikan karakter apapun dan baik di awal atapun di akhir kriteria.

Berikut adalah contoh penulisan klausa where yang di gabungkan dengan klausa like :

select *from anggota where nama like 'Rizqi%' ;

menampilkan data anggota dengan kata yang berawalan Rizqi, jika tanda persen berada di depan berarti kata yang di tuliskan berada di belakang, dan apabila kata yang di tuliskan diapit tanda persen maka kata tersebut berada di tengah-tengah kalimat.

3. select * from anggota where left (no_telpon,2)=”08″;




left (no_telpon,2)="08"; 
no_telpon adalah nama field yang di cari sedangkan angka dua adalah jumlah digit yang di cari dari kiri sedangkan angka 08 adalah data dari field yang akan di cari.

4. select * from tarif > 2000 AND tarif <=17500;


5. select * form tarif > 10000 AND tahun_terbit = ‘2009’;


6. select count(nama) from anggota;


7. select sum(tarif) from buku;


8. select avg(tarif) from buku;


9. select min(tarif) from buku;


10. select max(tarif) from buku;


sekian postingan saya, masih banyak kekurangan dalam penulisan saya, mohon maaf yang sebesar-besarnya...

Wassalamu'alaikum...

Kritik & Saran

Selasa, 24 November 2015

Membuat Data Siswa menggunakan Adodc dan DataGrid

Datagrid dan Adodc




Assalamu'alaikum. teman...

pada kesempatan kali ini saya akan membagikan hasil program yang telah saya buat, beserta kodenya.

Di bawah ini adalah gambar program yang telah jadi






















Di sana ada tombol "Cetak" ,  berfungsi untuk print data siswa yang telah tersimpan

lalu di bawah ini adalah kodenya

1. Kode untuk tombol Simpan

Me.Adodc1.Recordset.AddNew
Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Berhasil di Simpan", vbInformation, "Penyimpanan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus

Keterangan: kode ini berfungsi untuk menambahkan data siswa ke DataGrid, ketika kita input pada textbox dan combo lalu kita klik tombol "simpan"

2. kode untuk tombol Batal

kode ini berfungsi untuk mengosongi semua textbox dan combo ketika terdapat input.
Dibawah ini adalah kodenya

Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = ""
Me.Text1.SetFocus

3. Kode untuk tombol Hapus

Kode ini berfungsi untuk menghapus data yang telah tersimpan di DataGrid, penulisan kodenya sangat singkat...

Me.Adodc1.Recordset.Delete

4. Kode untuk tombol Edit

Ketika kita akan melakukan perubahan pada data siswa yang telah tersimpan kita bisa melakukan cara ini
Tuliskan kode di bawah ini pada tombol Edit

Me.Adodc1.Recordset!nis = Text1.Text
Me.Adodc1.Recordset!nama = Text2.Text
Me.Adodc1.Recordset!program = Me.Combo1.Text
Me.Adodc1.Recordset.Update

MsgBox "Data Telah Dirubah", vbInformation, "Perubahan Data"
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Combo1.Text = "Pilih Jurusan Anda"
Me.Text1.SetFocus

sebenarnya kode ini sama dengan kode pada tombol simpan, tetapi perbedaannya adalah tidak ada kode Me.Adodc1.Recordset.Addnew
Karena kita tidak menambahkan record baru ke dalam DataGrid maka kita tidak perlu menuliskan kode tersebut.

5. Untuk menampilkan isi dari record ke textbox tuliskan kode ini pada DataGrid

Me.Text1.Text = Adodc1.Recordset!nis
Me.Text2.Text = Adodc1.Recordset!nama
Me.Combo1.Text = Adodc1.Recordset!program

6. Agar tidak terjadi eror ketika kita menggeser data ke bagian paling bawah dan ke bagian atas, ketik kode berikut pada Adodc1

If (Me.Adodc1.Recordset.EOF Or Me.Adodc1.Recordset.BOF) Then
End If

Cara koneksikan Adodc dengan Access

1. Klik Kanan pada Adodc, lalu pilih Adodc Propertis, lihat gambar di bawah ini untuk lebih jelasnya


2. Lalu akan muncul jendela seperti ini


3. pilih Use Connection String, dan Klik Build

Klik tab Provider lalu pilih Microsoft Jet 3.51 OLE DB Provider, biasanya terletak di urutan paling atas. Lalu klik next, secara otomatis kita berada pada tab connection.
ikuti langkah pada gambar di bawah ini



Jika sudah di klik maka kita harus mencari dimana letak kita menyimpan database yang di buat menggunakan Microsoft Access, jika sudah klik Open...
Sekarang kita otomatis kembali ke tab connection lagi, setelah kita memilih database tadi.
Lalu kita coba tes connection nya dulu, apakah berhasil atau tidak...
ikuti gambar di bawah ini


jika sudah berhasil kita klik OK, jangan kita keluarkan dulu Adodc Propertis nya, sekarang kita menuju ke tab Record Source....

Pada Command Type pilih yang 2-adCmdTable, dan pada bagian Table or Stored Procedure Name, kita pilih nama tabel yang telah kita buat pada database...Jika semua sudah Kita Klik OK

Sekarang Pada DataGrid pada propertis di bagian DataSource pilih Adodc1

Semoga Ilmu ini bisa bermanfaat bagi kita semua

Selasa, 03 November 2015

Fungsi Percabangan IF...Then...Else di VB.6.0

IF...Then...Else



Assalamu'alaikum ....
Nah di sini saya akan berbagi ilmu tentang Fungsi IF...Then...Else

If berfungsi untuk menjalankan pernyataan secara kondisional,  Saya akan berikan contoh kode penulisan IF


If (Kondisi) then
    (Pernyataan 1) ' Pernyataan yang di kerjakan apabila kondisi terpenuhi
elseif
   (Pernyataan 2) 'Pernyataan yang di kerjakan apabila kondisi terpenuhi
else
   (Pernyataan 3) 'Pernyataan yang di kerjakan apabila kondisi tidak terpenuhi
end if


Sebagai contoh saya akan membuat sebuah program sederhana,
Buat design form seperti di bawah ini
Design form nya seperti di atas....
jika sudah selesai men design form, sekarang kita tulis listing programnya

  • klik 2 kali pada command button 1

mengapa?? karena even akan terjadi saat command button 1 di klik
tulis listing programnya di bawah ini

Private Sub Command1_Click()
If Text1.Text > 200000 Then
Text2.Text = Text1 * 0.15
Text3.Text = "Gelas Cantik"
Else
    MsgBox "Tidak Ada Bonus dan Hadiah", vbInformation, "Peringatan"
End If
End Sub
  • Nah sekarang akan saya jelaskan apa tujuan dari listing program tersebut...
jika kita berbelanja sampai dengan 200000 maka kita akan mendapat kan hadiah 15% dari uang kita dan mendapat satu "gelas cantik", seperti gambar di bawah ini

Nah, dari gambar di atas sudah terlihat jelas, jika kita berbelanja lebih dari 200000 maka akan mendapat hadiah dan bonus uang...
jika kita berbelanja kurang dari 200000 maka, akan terlihat seperti gambar di bawah ini

ini adalah fungsi dari msgbox....jika kita berbelanja dengan pengeluaran kurang dari 200000 makan akan muncul kotak pesan / pemberitahuan bahwa "Tidak ada Bonus dan Hadiah"...

Di sini ada satu tombol yang ketinggalan, yaitu tombol command button 2 "Baru"...
tombol ini saya fungsikan untuk membersihkan text1, text2, dan text3, ketika ada input berupa huruf atau angka...

ini kode nya

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

Sekian dari saya, apabila ada kurangnya saya mohon maaf yang sebesar - besarnya...
Semoga ilmu yang saya bagikan bisa bermanfaat bagi kita semua
Wassalamu'alaikum



Kamis, 22 Oktober 2015

SetFocus Textbox di VB.6.0

SetFocus VB 6.0



Assalamu'alaikum...
Sebelumnya saya mau minta maaf kalau blog saya ini masih kurang terlalu bagus... maklum lah saya masih newbie... nah...disini saya akan menuliskan tentang bagaimana cara mengatur SetFocus di text box ketika semua data yang di masukkan di bersihkan.


Sebenarnya ini hanyalah penulisan code sederhana saja...
di bawah ini adalah form yang saya buat untuk contoh penulisan code setfocus

















dan nanti event yang akan terjadi adalah ketika tombol command button dengan caption Reset di klik,
Ketika text1 dan text2 terisi sebuah text dan ketika kita klik reset, kursor akan langsung fokus di text1...

ini adalah penulisan codenya

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub

keterangan code
  1. Text1.Text="" (untuk mengosongkan isi dari text1 ketika terisi oleh suatu text begitu juga dengan code Text2.Text="")
  2. Text1.SetFocus (ini adalah inti dari penulisan blog, karena kode ini berfungsi untuk memfokuskan kursor berada di text1)
kita lihat screnshot nya di bawah ini, tanpa rekayasa :D

Sebelum di klik reset / saat masih text1 dan text2 terisi oleh text
Sesudah di klik reset / ketika semua text yang berada di text1 dan text2 di bersihkan

Apabila di lihat dari gambar yang sesudah di klik reset kursor langsung berada di text1 itu adalah fungsi dari SetFocus...
Tidak hanya di text1, kita juga bisa memindahkannya ke komponen yang lain, sesuai dengan apa yang kita inginkan...

Terimakasih atas kunjungan anda...
Semoga sedikit ilmu yang saya bagikan bisa bermanfaat...
Amin...

Wassalamu'alaikum wr.wb

 

Copyright @ 2015