Cara / Script / Code / Syntax Delete di Visual Studio 2008 / VB Net Dengan Database Access

Cara / Script / Code / Syntax Delete di Visual Studio 2008 / VB Net Dengan Database  Access

Hallo All, Selamat malam, kembali bersama ane., :D .......  Ane...?  bahasa mana tu.
Sebelum nya maaf ya, jika judul "Cara / Script / Code / Syntax Delete di Visual Studio 2008 / VB Net Dengan Database  Access" nya terlalu panjang, and ribet., :D
lumayan buat Trafix, and search engine.


Baik lah langsung aja dech, sebenernya ini adalah sambungan dari postingan ane yang kemarin, yaitu Cara Insert / Koneksi ke Database Access di VB net / Visual Studio 2008.
Jika di postingan kemarin, hanya ada Button Simpan, dan Exit, maka tambahin aja Button Delete.

Ok lanjut aja,,,  Buat desain pastinya menjadi seperti ini..  ( Sudah ada Button Delete ).

tapi sebelum itu, Ubah dulu Data Type yang ada di Database.
Jika sebelum nya Data Type dari Nip_Dosen adalah Number, maka rubah menjadi Text.
kalau bingung, lihat image aja ya.,., :D

Ane sampai sekarang juga belum taw, soalnya ma tutor ane suruh nyari sendiri, kemarin aja ne syntax suruh nyobain beberapa x.,., :D  ( Tutuor di Dunia Maya )


Kemudian Double klik Button Delete,
Masukkan script berikut :

 If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        cmd.Connection = con

        TextBox1.Text = dgv.Item(0, dgv.CurrentRow.Index).Value

        cmd.CommandText = "Delete from latihan WHERE Nip_Dosen = '" & Val(TextBox1.Text) &"'"
        cmd.ExecuteNonQuery()
        TextBox1.Text = ""
        Me.RefresData()
        con.Close()

Penjelasan :

latihan  adalah nama tabel dari database acces yang di buat.

Nip_Dosen adalah Primary key yang ada di tabel tersebut.

 capture image nya.,.,


Demikian aja ya,,, hee
 Semoga bermanfaat.


Salam Twikkel
Growing With Innovation

Read more

Cara Insert / Koneksi ke Database Access di VB net / Visual Studio 2008

Cara Insert / Koneksi ke Database Access di VB net / Visual Studio 2008

Hallo sahabat blogger semua, udah lama ne ane gak posting., hehe
maklum sibuk.,

Kali ini maw berbagi tentang VB Net, Semua ini berawal dari pengalaman saya, udah 2-3 minggu coding VB. Tapi gak connect juga ke Database Access.
 Ok, langsung aja ya, check it out.

langkah-langkah nya yaitu :
1. Buat design terlebih dahulu di VB Net / Visual Studio 2008 seperti di gambar ini.

Buatlah 7 TextBox  seperti di desain.  
                                       1. Name : TextBoxt1.Text
                                       2. Name : TextBoxt2.Text
                                       3. Name : TextBoxt3.Text
                                       4. Name : TextBoxt4.Text
                                       5. Name : TextBoxt5.Text
                                       6. Name : TextBoxt6.Text

                                       7. Name : TextBoxt7.Text

Buatlah 1 Buah DataGridView dengan properties Name nya : dgv
Buatlah 2 Buah Button ( Simpan dan Exit )
Buatlah 7 Buah Label ( Nip Dosen, Nama, Alamat, jenis Kelamin, Golongan, Jabatan, Usia )
tambah 1 Label lagi untuk Title ( LATIHAN DATABASE ).



Selanjutnya jangan lupa buat Database Access, Soalnya kalau database gak di buat, percuma donk.,., !   hahahhahah
  Lanjuuuttttttttt...........

Di latihan kali ini ane pakai Access 2007, tapi save file access nya dirubah ke 2003. Sehingga menjadi .mdb  bukan .accdb.

Buat desain di database access nya, seperti gambar di bawah ini....
Ingat, jangan sepelekan nama Database dan nama Tabel, Ingat baik2 ya friends.,.,.,.  :D  :D

Disini nama Database ane ( latihan ) dan nama Tabel ane  juga ( latihan ).
Ingaaaaaat lagi, huruf besar di nama database dan tabel berpengaruh...  Hati - hati ...!






jangan salah juga ya di Data Type nya... sesuaikan..

Lanjutt.

Sekarang Kita buka program Visual Studio lagi.
Kita akan mulai konfigurasi script nya, 
Setelah di Buka.
Double klik form yang sudah di desain tadi.
kemudian masukkan script berikut ini
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand

 di bagian paling atas, di bawah kalimat  Public Class Form1
seperti gambar dibawah ini.. yang di dalam kotak merah.






Lanjut lagi Brother or sis...

Double Klik lagi form yang sudah di buat tadi.

Kemudian di bagian form_load kalau gak salah nama nya, Pokok nya, masukkan aja dech script di bawah ini..

  con.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source= " & Application.StartupPath & "\latihan.mdb"

        Me.RefresData()

        TextBox1.Focus()
    End Sub
    Public Sub RefresData()
        If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM latihan ORDER BY Nip_Dosen", con)
        Dim dt As New DataTable

        da.Fill(dt)
        Me.dgv.DataSource = dt

        con.Close()

    End Sub

Lihat Image ya....  :)

Penjelasan.

Kata latihan.mdb adalah nama database yang sudah anda buat tadi.
kemudian kata FROM latihan  adalah nama tabel.
Lanjuttt...

Double KLik Button Simpan. Maka akan masuk ke bagian script.
Kemudian masukkan script di bawah ini.



If Not con.State = ConnectionState.Open Then
            con.Open()
        End If

        cmd.Connection = con

        cmd.CommandText = "INSERT INTO latihan(Nip_Dosen , Nama , Alamat , Jenis_Kelamin , Golongan , Jabatan , Usia)" & _
        "VALUES('" & Me.TextBox1.Text & "','" & Me.TextBox2.Text & "','" & Me.TextBox3.Text & "','" & Me.TextBox4.Text & "','" & Me.TextBox5.Text & "','" & Me.TextBox6.Text & "','" & Me.TextBox7.Text & "')"

        cmd.ExecuteNonQuery()
        Me.RefresData()

        con.Close()
    End Sub

Lihat Image ya...

Penjelasan .

kata latihan adalah nama tabel.
Kata ( Nip_Dosen, Nama, alamat, Jenis_ Kelamin, Golongan, jabatan, Usia)  adalah kata yang sama dan sesuai seperti yang ada di database.
Ingat huruf kecil dan besar memepengaruhi. Jangan Sampai Salah.


Lanjut, Double Klik Button Exit, yang sudah di buat tadi. Maka akan masuk ke bagian script.
Masukkan code   Me.Close ( )  atau End

Lanjut lagi ya, capek ne, kan ane ntar juga maw istirahat and mkn bro.,., :D
masih banyak lagi yang maw di tulis. :D
Tapi gak susah kox, Sekarang semua script sudah selesai.. Kita tinggal Connect ke database aja lgi.. :D

Siaaap... Mulai..

Nah, dibagian Menu menu yang ada di Program Visual Studio 2008 kan ada menu Data tu,
Klik Data, pilih Add New Data Source...

Lihat Image aja dech..
 

Maka Akan tampil gambar di bawah ini...


Pilih Database, Klik Next


Nah, Kemudian, akan tampil gambar di bawah ini...

Klik New Connection.

maka akan tampil gambar berikut ini...

Klik Browse, Pilih Databse dimana tempat anda menyimpan nya tadi...... Jika Sudah, Klik Test Connection, Klik OK, Klik OK lagi.



nah, Kemudian di Bagian di bawah ini...  Klik aja Cancel..
Gak pa2 kox... :D




Selesai dech...
Sekarang anda tinggal menjalankan Program nya, gak perlu kan ane tampilkan gambar cara Debug Program nya...,., :D   Gak lah ya.,.,   :D

Bukti...

InsyaAllah, jika anda hati2, dan mengikuti tutorial dengan benar Program akan Jalan..
Selamat Belajar, siap2 buat UTS besok...

Salam Blogger...!  Twikkel
Growing With Innovation

Read more

DataBase Managemen System ( DBMS )

DataBase Managemen Sistem ( DBMS )

            Pengertian  DataBase Managemen System yaitu software atau perangkat lunak yang di desain untuk menyimpan dan mengatur basis data.
Sedangkan Basis Data adalah  suatu kumpulan dari berbagai tipe record yang mempunyai hubungan terhadap suatu object tertentu.

Adapun Operasi-Operasi dasar pada Basis Data adalah sebagai berikut :
      1. Create Database

      2. Drop database

      3. Create Table

      4. Drop table

      5. Insert

      6. Retrieve atau Search

      7. Update

      8. Delete.

Adapun Komponen Sistem Basis Data adalah sebagai berikut :

     1. Hardware  ( Perangkat keras )

     2. Sistem Operasi

     3. Basis Data
     4. Sistem pengelola Basis Data ( DBMS )

     5. Pemakai ( Programmer, user mahir, user umum, user khusus )

Dan dibawah ini adalah Hirarki dari Sistem Basis Data 

Penjelasan 

Bit : Merupakan bilangan biner yang terdiri dari 0 dan 1.

Byte : Merupakan bagian terkecil yang dapat berupa karakter, numerik huruf dll.

Data Item / Field : Meruapakan kolom item, atau atribut dari suatu record.

Record :  Record disebut juga dengan Tupel, yang artinya suatu kumpulan dari sejumlah elemen data yang saling terkait.

File : Merupakan kumpulan dari record yang menggambarkan satu kesatuan data yang sejenis.

Basis Data : kumpulan dari berbagai tipe record yang mempunyai hubungan terhadap suatu object tertentu.
Sistem Basis Data : Sekumpulan dari beberapa Basis Data.

Ada 5 Tipe File yang digunakan dalam Sistem Basis Data 

  1. File Induk ( Master File :

           a. File Induk Acuan ( Reference Master File )

               Yaitu file induk yang record nya jarang berubah nilainya atau statis.

           b. File Induk Dinamik (Dynamic Master File )

               Yaitu file induk yang record nya sering berubah atau di update sebagai hasil transaksi.

 2. File Transaksi ( Transaction File )

     Yaitu file yang dugunakan untuk merekam hasil transaksi, atau disebut juga file input.

 3. File Laporan  ( Report File )

     Yaitu file yang berisi informasi sementara yang akan ditampilkan sebagai laporan, atau disebut juga file output.

 4. File Sejarah ( History File )

     Yaitu file arsip atau file yang yang berisi data masa lalu yang sudah tidak aktif lagi, tetapi masih di simpan sebagai arsip.

 5. File Pelindung ( Backup File )

     Yaitu file yang dugunakan untuk cadangan dimana file ini merupakan salinan dari file yang masih aktif dalam basis data.

             Bahasa basis data merupakan bahasa yang digunakan sebagai perantara bagi pemakai dengan basis data, dimana bahasa ini sudah ditetapkan oleh DBMS.
Adapun 2 bahasa yang digunakan dalam Basis Data yaitu :

        1. Data Definion Languange ( DDL )

            Deangan bahasa ini kita dapat membuat tabel, membuat indeks, mengubah tabel, dll. Hasil dari perintah DDL ini dapat berupa Kamus Data. Contoh : Craete , Modify Report, Modify Structure.

        2. Data Manipulation Languange ( DML )

            Digunakan untuk manipulasi dan pengambilan data dapa suatu basis data dengan cara Insert, Update, Delete.

            Cara nya ada 2, 

                    1. Prosedural ( Ditentukan data yang diinginkan dan cara mendapatkan nya )

                    2. Non Prosedural ( Tanpa menyebutkan cara mendapatkan nya )

Aljabar Relational

            Merupakan salah satu dari 2 bahasa query formal yang terkait dengan model relational

Operator- Operator dasar Aljabar Relational :

      1.  Selection

      2.  Project

      3.  Cartesian Product

      4.  Union

      5.  Intersection

      6.  Set Deference

      7.  Natural Join

      8.  Division.

Penjelasan nya besok lagi ya, udah malam ne, capek..

Artikel ini saya tulis bertujuan agar saya dapat mengingat mata kuliah tentang Basis data, karena menghafal merupakan suatu yang sulit, jadi saya pilih belajar dengan cara menulis nya kembali di post blog saya ini. semoga UTS besok pagi lancar. Aamiin.

Salam Twikkel

Semoga Bermanfaat

Read more

Cara Entri / Input Data Dari TextBox ke DataGridView di VB.Net

Cara Entri / Input Data Dari TextBox ke DataGridView

            Baiklah sahabat blogger semua, kali ini saya akan share tentang VB Net, yaitu cara entri atau input data dari textbox ke DataGridView, dan juga merupakan contoh program VB Net atau Visual Studio 2008.

Ok, langsung saja kita mulai.
Buatlah terlebih dahulu desain seperti tampilan seperti ini..

 

Keterangan Desain:

Buatlah 5 Buah Label  >>>>   Edit di Bagian Properties nya, cari kata Text, ubahlah seperti berikut :
                                                 Label 1 =  Contoh Program Menggunakan Data Grid View

                                                 Label 2 =  Kode Barang

                                                 Label 3 =  Nama Barang

                                                 Label 4 =  Kategori

                                                 Label 5 =  Jumlah

                                                 Label 6 =  Harga Jual

Buatlah 5 TextBox >>>>>   Bagian Properties tidak perlu dirubah, kita gunakan default nya.,.,

Buatlah 1 ComboBox >>>>>  Bagian Properties tidak perlu dirubah.
Buatlah DataGridView >>>> Ubah Bagian Properties nya di bagian (Name) menjadi dgv

Kemudian Buatlah 3 Buah Button >>>> Ubah bagian properties nya di bagian Text menjadi seperti   dibawah ini :

                                                 Button 1 = Hasil

                                                 Button 2 = Proses
                                                 Button 3 = Exit

Selanjutnya, kita isi dulu ComboBox nya.
Klik di ComboBox, Kemudian Klik tanda panah kecil diatas , kemudian Klik Edit Items

 

Setelah itu, isi String nya, seperti gambar di bawah ini..

 

Selanjutnya, kita edit bagian DataGrid View nya. seperti gambar di bawah ini.
 Klik terlebih dahulu DataGridView nya, kemudian klik tnda panah kecil, kemudian klik Add Columns

Maka tampilan nya akan seperti ini,

 

Nah, Buatlah sesuai desain diatas, pada bagian Name tidak boleh menggunakan spasi.
                    1. Kode Barang    >>>>    Name            : KodeBarang

                                                               Type             : biarkan saja

                                                               Header Text : Kode Barang, kemudian klik Add

                                                                                                             Isi lagi seperti dibawah ini

                    2. Nama Barang    >>>>    Name           : NamaBarang

                                                               Type             : biarkan saja

                                                               Header Text : Kode Barang, kemudian klik Add

                                                                                                             Isi lagi seperti dibawah ini

                    3. Kategori    >>>>           Name            : Kategori

                                                               Type             : biarkan saja

                                                               Header Text : Kategori, kemudian klik Add

                                                                                                             Isi lagi seperti dibawah ini

                    4. Jumlah    >>>>              Name            : Jumlah

                                                               Type             : biarkan saja

                                                               Header Text : Jumlah, kemudian klik Add

                                                                                                             Isi lagi seperti dibawah ini

                    5. Harga Jual    >>>>         Name            : HargaJual

                                                               Type             : biarkan saja

                                                               Header Text : Harga Jual, kemudian klik Add

                                                                                                             Isi lagi seperti dibawah ini

                    6. Hasil    >>>>                  Name            : Hasil

                                                               Type             : biarkan saja

                                                               Header Text : Hasil, kemudian klik Add

                                                                                                            maka selesai, Klik Cancel.

Maka, jika telah selesai akan tampil dibagian DataGridView nya..

Ok, selanjutnya kita akan masuk ke bagian source nya, kita akan isi source di Button Hasil dulu.
Klik 2x Button Hasil, kemudian isikan kalimat barikut :

   TextBox5.Text = Val(TextBox3.Text) * Val(TextBox4.Text)

Selanjutnya, kita masuk ke Button Proses.
Klik 2x Button Proses, kemudian isikan kalimat berikut :

        dgv.RowCount = dgv.RowCount + 1                            
        dgv(0, dgv.RowCount - 2).Value = TextBox1.Text()    
        dgv(1, dgv.RowCount - 2).Value = TextBox2.Text      
        dgv(2, dgv.RowCount - 2).Value = ComboBox1.Text 
        dgv(3, dgv.RowCount - 2).Value = TextBox3.Text      
        dgv(4, dgv.RowCount - 2).Value = TextBox4.Text      
        dgv(5, dgv.RowCount - 2).Value = TextBox5.Text      
        If TextBox1.Text = "" Then                                          
            MsgBox("data masih kosong brooo")                      
        End If                                                                            

Keterangan : dgv merupakan nama dari DataGridView tadi.

Ok, Selanjutnya isi Button Exit
Klik 2x, isi dengan kata     End


Jika sudah, selesai lah pekerjaan kita, coba Jalankan Program, dengan klik tanda panah berwarna hijau di atas.

Semoga Bermanfaat
Salam Twikkel

Read more

Contoh Program Java Dengan If Else

Contoh Program Java Dengan If Else

            Baiklah teman teman sahabat blogger semua, akhir nya setelah sibuk dengan kuliah, sudah satu bulan lama nya tidak update postingan blog...

Kali ini saya akan sharing kembali, yaitu contoh membuat program menggunakan if else di Netbeans.  Kali ini saya membuat nya dengan menggunakan Java Netbeans 7.3

Jangan kelamaan, Chek it Dot..

1. Silahkan sahabat blogger buka aplikasi netbeans, 

2. Pilih File, New Project,  Kemudian pilih Java >> Java Application
3. Kemudian Klik Next

    Pada Project Name, buatlah nama project yang akan anda buat, nama project tidak boleh  menggunakan spasi.

    Pada Project Location, pilih lokasi penyimpanan program jika telah selesai.

4. Kemudian Klik Finish

5. Ini adalah tampilan pada source pertama kali.

 

6. Maka  Tulis kalimat " import javax.swing.JOptionPane; " di atas kalimat " public class JavaApplication10 { "     Tanpa tanda kutip.

    Ingat, penulisan huruf kecil dan besar berpengaruh, jadi tulislah dengan benar.

    Fungsi dari kalimat "import javax.swing.JOptionPane;" adalah untuk memanggil Panel windows melalui source atau sintax.

7. Kemudian masukkan script di bawah ini di bawah  "public static void main(String[] args) {"

    String input;

        int angka=0;
       input=JOptionPane.showInputDialog("Masukkan Berapa Lama Anda Menuntut Ilmu ( Tahun )");
        angka=Integer.parseInt(input);
        if (angka<=6)
        JOptionPane.showMessageDialog(null,"SD");
        else if (angka<=9)
        JOptionPane.showMessageDialog(null,"SMP");
        else if (angka<=12)
        JOptionPane.showMessageDialog(null,"SMK");
        else if (angka<=15)
        JOptionPane.showMessageDialog(null,"D III");
        else if (angka<=17)
        JOptionPane.showMessageDialog(null,"S1");
        else JOptionPane.showMessageDialog(null,"Anda tidak memenuhisyarat");

Berikut Screen Shoot nya.,.

Selesai,.,.

Note : Penulisan huruf kecil dan besar pada java berpengaruh, jadi tulislah dengan benar..

Screen Shoot hasil program

Semoga bermanfaat.

Salam Twikkel

Read more

Misteri Dibalik Kalimat "The Quick Brown Fox Jumps Over Lazy Dogs"

Misteri Dibalik Kalimat "The Quick Brown Fox Jumps Over Lazy Dogs"

Selamat dini hari semua sahabat blogger.,.,
Malam ini saya akan mengungkap Misteri Dibalik Kalimat "The Quick Brown Fox Jumps Over The Lazy Dog",, pasti penasaran apa sich arti  "The Quick Brown Fox Jumps Over The Lazy Dog"..Sebenarnya, bukan artinya yang ingin saya ungkap disini, tetapi sebuah misteri kehidupan seorang teknisi computer yang sangat simple.

Beberapa alasan kenapa saya mau mengungkap misteri ini, alasan nya yaitu :

1. Saya seorang Teknisi Computer

2. Ingin membantu teman2 atau sahabat blogger dalam proses pengetesan.

      apaa.,,.?

      pengetesan...????

      pengetesan apa sich maksud nya....?

      masih bingung ya.,.,.?
     maka nya baca,,,? tapi jgan lupa comment juga ya.,. :D

     Ku kasih jawaban dech, untuk mengetes keyboard baru. 

Nah, mari kita langsung ungkap misteri di balik kata tersebut.

"The Quick Brown Fox Jumps Over The Lazy Dog", sebenarnya jika di bawa ke dalam bahasa Indonesia Artinya adalah " Seekor Rubah Coklat Yang Melompat Melebihi Anjing Malas ".

Ups, tunggu dulu.,.,  MISTERI yang saya maksud disini adalah apakah sahabat blogger tau bahwa di balik kata "The Quick Brown Fox Jumps Over The Lazy Dog" itu sudah terdapat semua jenis huruf, mulai dari A - Z.

Nah, itu lah misteri malam ini. Sekian terima kasih, semoga bermanfaat dan menambah hiburan.

 

Read more