Ini proses dan listing program dari postingan sebelumnya.
dan ini screenshoot setelah di run.
Selesai.
dan ini screenshoot setelah di run.
Selesai.
Hello sobat bloggers, gimana kabar kalian? masih pada puasa dong? semoga dilancarkan deh puasanya sampai akhir yoo. Amiin.
Sambil nunggu sahur nih, ane bakal posting lagi tugas SoftSkill ane di kampus. Postingan kali ini isinya memperkenalkan diri ane dan juga partner kelompok ane di mata kuliah ini. Tugas ini sebagai pelengkap tugas sebelumnya, jadi selain harus bisa bikin program, kita juga harus bisa dong memperkenalkan diri kita.
Nama ane Angga Prasetya Perdana, ane lahir di sebuah kota di Jawa Tengah sana, tepatnya di Ajibarang, Kabupaten Banyumas. Tentu tau dong gimana manisnya orang jawa :D
Ane lahir tanggal 13 September tahun 1994 sesudah Masehi. Ane ini anak pertama dan anak paling ganteng di keluarga ane haha, secara gitu, ane cuma punya 1 adik dan itupun perempuan :D pacar ane 1 dan masih membuka lowongan bagi yang berminat huwehehe.
Hobby ane bisa dibilang banyak, intinya ane tuh ga bisa diem, ane hobby olahraga terutama futsal dan badminton, trus ane juga paling hobby yang namanya ngoprek haha semua hal selalu aja pingin di oprek, ane lulusan SMA tapi Alhamdulillah paham keahlian-keahlian lulusan SMK, dari mulai otomotif, elektronika, kelistrikan, dan tentu saja bidang IT. Coba sobat blogger bayangin, saat kelas 3 SD ane pernah bikin meledak listrik rumah ane cuma karena penasaran ngoprek mainan tamiya ane hahaha #curhatdikit
Ane saat ini tinggal di Cikampek di tempat kedua orang tua ane, dan juga ane ngekos di Depok selama masa perkuliahan. Sebenernya masih banyak sih yang pingin ane jabarin tentang diri ane, tapi kayanya bakal panjang banget, jadi kalo yang tertarik ingin kenal ane lebih jauh, bisa lah kontak langsung ke ane hehehe.
Sedangkan temen kelompok ane punya nama Fikri Nur Muhammmad. Doi ini orangnya konsisten, dari lahir sampe sekarang betah aja di kota Bogor hahaha. Ga terlalu banyak yang ane tau tentang doi, doi ini anaknya pendiem coy, kadang-kadang suka bau dah abis diem gitu hahaha #bercandacoybiargabete Ane sih beruntung sekelompok sama doi, jujur ane ini orangnya pemales dan cuek, tapi doi tuh ga pernah bosen ngehubungin ane buat ngerjain tugas-tugas kelompok kami. Kayanya segitu dulu yang bisa ane deskripsiin tentang doi. Kalo pingin tau lebih jauh tentang doi, langsung aja di klik nih blognya doi.
Udeeeh abis.
Sambil nunggu sahur nih, ane bakal posting lagi tugas SoftSkill ane di kampus. Postingan kali ini isinya memperkenalkan diri ane dan juga partner kelompok ane di mata kuliah ini. Tugas ini sebagai pelengkap tugas sebelumnya, jadi selain harus bisa bikin program, kita juga harus bisa dong memperkenalkan diri kita.
Nama ane Angga Prasetya Perdana, ane lahir di sebuah kota di Jawa Tengah sana, tepatnya di Ajibarang, Kabupaten Banyumas. Tentu tau dong gimana manisnya orang jawa :D
Ane lahir tanggal 13 September tahun 1994 sesudah Masehi. Ane ini anak pertama dan anak paling ganteng di keluarga ane haha, secara gitu, ane cuma punya 1 adik dan itupun perempuan :D pacar ane 1 dan masih membuka lowongan bagi yang berminat huwehehe.
Hobby ane bisa dibilang banyak, intinya ane tuh ga bisa diem, ane hobby olahraga terutama futsal dan badminton, trus ane juga paling hobby yang namanya ngoprek haha semua hal selalu aja pingin di oprek, ane lulusan SMA tapi Alhamdulillah paham keahlian-keahlian lulusan SMK, dari mulai otomotif, elektronika, kelistrikan, dan tentu saja bidang IT. Coba sobat blogger bayangin, saat kelas 3 SD ane pernah bikin meledak listrik rumah ane cuma karena penasaran ngoprek mainan tamiya ane hahaha #curhatdikit
Ane saat ini tinggal di Cikampek di tempat kedua orang tua ane, dan juga ane ngekos di Depok selama masa perkuliahan. Sebenernya masih banyak sih yang pingin ane jabarin tentang diri ane, tapi kayanya bakal panjang banget, jadi kalo yang tertarik ingin kenal ane lebih jauh, bisa lah kontak langsung ke ane hehehe.
Sedangkan temen kelompok ane punya nama Fikri Nur Muhammmad. Doi ini orangnya konsisten, dari lahir sampe sekarang betah aja di kota Bogor hahaha. Ga terlalu banyak yang ane tau tentang doi, doi ini anaknya pendiem coy, kadang-kadang suka bau dah abis diem gitu hahaha #bercandacoybiargabete Ane sih beruntung sekelompok sama doi, jujur ane ini orangnya pemales dan cuek, tapi doi tuh ga pernah bosen ngehubungin ane buat ngerjain tugas-tugas kelompok kami. Kayanya segitu dulu yang bisa ane deskripsiin tentang doi. Kalo pingin tau lebih jauh tentang doi, langsung aja di klik nih blognya doi.
Udeeeh abis.
Program yang kita buat adalah program yang bisa memunculkan atau menyambungkan program database yang sudah dibuat sebelumnya pada MS Access dengan project pada VB. Pertama buat dahulu sebuah database di MS Access.
Klik MS Access, klik New Blank Database, klik Create. Lalu masukkan data yang ingin dibuat, misalnya data alamat mahasiswa.
Jika sudah selesai buka MS Visual Basic 6.0, pilih Standard EXE.
Klik menu Project lalu klik Add MDI Form untuk membuat menu show dan hide.
Klik Menu Editor untuk membuat menu FILE, kemudian buat pilihan FORM2 dan EXIT didalam menu FILE.
Setelah itu klik add form dan buat project pada form seperti ini. Klik tool Add Form, klik Label kemudian ketikkan DATA MAHASISWA, NPM, NAMA, dan ALAMAT. Klik TextBox lalu kosongkan TextBox tersebut. Buat tombol TAMBAH, HAPUS, CARI, dan SIMPAN dengan cara klik CommandButton yang ada di menu toolbox samping kiri.
Untuk menambahkan editor pada toolbox, klik Project à klik Components à tandai bagian Microsoft ADO Data Control dan Microsoft DataGrid Control à klik OK.
Jangan lupa masukkan/klik DataGrid dan Adodc sebagai connector yang akan dipakai dengan MS Access database.
Setelah itu masukkan kodingan di bawah ini pada masing-masing Form dan MDI Form.
MDI Form
Private Sub DATA_Click()
Form2.Show
End Sub
Private Sub EXIT_Click()
Form2.Hide
End Sub
Form
Public conn As New ADODB.Connection
Public Sub Koneksi()
On Error GoTo KonekErr
If conn.State = 1 Then conn.Close , jika koneksi = 1 maka koneksi akan tertutup.
conn.Open “provider=Microsoft.jet.OLEDB.4.0;Data Source=” + App.Path + “\mahasiswa2.mdb;persist Security info=False” , berfungsi untuk membuka koneksi dan akan tersambung menggunakan Microsoft.jet.OLEDB.4.0 untuk bisa tersambung dengan data mahasiswa2.mdb dan data mahasiswa.mdb akan muncul di datagrid pada formyang sudah dibuat.
Exit Sub
KonekErr:
MsgBox “gagal menghubungkan ke database!kesalahan pada:” & Err.Description, vbCritical, “peringatan” , jika sambungan dengan database gagal akan muncul pesan seperti di samping.
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew , berfungsi agar bisa menambahkan data pada database saat program sudah dijalankan ketika kita mengklik button TAMBAH.
Me.Text1.Text = “”
Me.Text2.Text = “”
Me.Text3.Text = “”
Me.Text1.Text sampai Me.Text3.Text dikosongkan supaya bisa menambahkan data pada database.
End Sub
Private Sub Command2_Click()
If MsgBox(“yakin ingin menghapus data??”, vbQuestion + vbOKCancel, “konfirmasi”) = vbOK Then , jika kita klik button2 atau HAPUS maka akan muncul pesan “yakin ingin menghapus data?” seperti yang tertulis serta pilihan “OK” dan “Cancel”
Adodc1.Recordset.Delete , kemudian jika kita sudah mengkonfirmasi dan mengklik “Cancel” maka akan batal melakukan penghapusan. Jika diklik konfirmasi “OK” maka satu data pada program database yang ditampilkan pada Form akan terhapus.
Me.DataGrid1.Refresh
End If
End Sub
Private Sub Command3_Click()
Dim snpm As String , mendeklarasikan npm sebagai variabel string.
snpm = InputBox(“nama:”)
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find “NAMA=’” & snpm & “‘”
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Fields(“NPM”) = Me.Text1.Text
Adodc1.Recordset.Fields(“NAMA”) = Me.Text2.Text
Adodc1.Recordset.Fields(“ALAMAT”) = Me.Text3.Text
Tiga perintah diatas adalah untuk menyimpan semua data NPM, NAMA, dan, ALAMAT pada databse ketika kita klik button SIMPAN atau button4.
MsgBox “Data Berhasil Disimpan..!!”, vbOKOnly + vbInformation, “Konfirmas”
Me.DataGrid1.Refresh , selanjutnya jika sudah menekan button simpan maka pada program akan muncul pesan “Data Berhasil Disimpan..!!” lalu tekan konfirmasi “OK”
End Sub
Private Sub form_load()
Koneksi
Adodc1.ConnectionString = conn.ConnectionString
Adodc1.RecordSource = “select*from mahasiswa”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Setelah program dijalankan, maka outputnya adalah seperti ini
Klik MS Access, klik New Blank Database, klik Create. Lalu masukkan data yang ingin dibuat, misalnya data alamat mahasiswa.
Jika sudah selesai buka MS Visual Basic 6.0, pilih Standard EXE.
Klik menu Project lalu klik Add MDI Form untuk membuat menu show dan hide.
Klik Menu Editor untuk membuat menu FILE, kemudian buat pilihan FORM2 dan EXIT didalam menu FILE.
Setelah itu klik add form dan buat project pada form seperti ini. Klik tool Add Form, klik Label kemudian ketikkan DATA MAHASISWA, NPM, NAMA, dan ALAMAT. Klik TextBox lalu kosongkan TextBox tersebut. Buat tombol TAMBAH, HAPUS, CARI, dan SIMPAN dengan cara klik CommandButton yang ada di menu toolbox samping kiri.
Untuk menambahkan editor pada toolbox, klik Project à klik Components à tandai bagian Microsoft ADO Data Control dan Microsoft DataGrid Control à klik OK.
Jangan lupa masukkan/klik DataGrid dan Adodc sebagai connector yang akan dipakai dengan MS Access database.
Setelah itu masukkan kodingan di bawah ini pada masing-masing Form dan MDI Form.
MDI Form
Private Sub DATA_Click()
Form2.Show
End Sub
Private Sub EXIT_Click()
Form2.Hide
End Sub
Form
Public conn As New ADODB.Connection
Public Sub Koneksi()
On Error GoTo KonekErr
If conn.State = 1 Then conn.Close , jika koneksi = 1 maka koneksi akan tertutup.
conn.Open “provider=Microsoft.jet.OLEDB.4.0;Data Source=” + App.Path + “\mahasiswa2.mdb;persist Security info=False” , berfungsi untuk membuka koneksi dan akan tersambung menggunakan Microsoft.jet.OLEDB.4.0 untuk bisa tersambung dengan data mahasiswa2.mdb dan data mahasiswa.mdb akan muncul di datagrid pada formyang sudah dibuat.
Exit Sub
KonekErr:
MsgBox “gagal menghubungkan ke database!kesalahan pada:” & Err.Description, vbCritical, “peringatan” , jika sambungan dengan database gagal akan muncul pesan seperti di samping.
End Sub
Private Sub Command1_Click()
Adodc1.Recordset.AddNew , berfungsi agar bisa menambahkan data pada database saat program sudah dijalankan ketika kita mengklik button TAMBAH.
Me.Text1.Text = “”
Me.Text2.Text = “”
Me.Text3.Text = “”
Me.Text1.Text sampai Me.Text3.Text dikosongkan supaya bisa menambahkan data pada database.
End Sub
Private Sub Command2_Click()
If MsgBox(“yakin ingin menghapus data??”, vbQuestion + vbOKCancel, “konfirmasi”) = vbOK Then , jika kita klik button2 atau HAPUS maka akan muncul pesan “yakin ingin menghapus data?” seperti yang tertulis serta pilihan “OK” dan “Cancel”
Adodc1.Recordset.Delete , kemudian jika kita sudah mengkonfirmasi dan mengklik “Cancel” maka akan batal melakukan penghapusan. Jika diklik konfirmasi “OK” maka satu data pada program database yang ditampilkan pada Form akan terhapus.
Me.DataGrid1.Refresh
End If
End Sub
Private Sub Command3_Click()
Dim snpm As String , mendeklarasikan npm sebagai variabel string.
snpm = InputBox(“nama:”)
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find “NAMA=’” & snpm & “‘”
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Fields(“NPM”) = Me.Text1.Text
Adodc1.Recordset.Fields(“NAMA”) = Me.Text2.Text
Adodc1.Recordset.Fields(“ALAMAT”) = Me.Text3.Text
Tiga perintah diatas adalah untuk menyimpan semua data NPM, NAMA, dan, ALAMAT pada databse ketika kita klik button SIMPAN atau button4.
MsgBox “Data Berhasil Disimpan..!!”, vbOKOnly + vbInformation, “Konfirmas”
Me.DataGrid1.Refresh , selanjutnya jika sudah menekan button simpan maka pada program akan muncul pesan “Data Berhasil Disimpan..!!” lalu tekan konfirmasi “OK”
End Sub
Private Sub form_load()
Koneksi
Adodc1.ConnectionString = conn.ConnectionString
Adodc1.RecordSource = “select*from mahasiswa”
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Setelah program dijalankan, maka outputnya adalah seperti ini
