Skip to main content

Simple CRUD VB.Net SQL Server

Sore sore gini mendung, gak ada kerjaan dikos....!!!

Dari pada nganggur ane mutusin untuk membuat tutorial CRUD sederhana dengan VB.Net dan Sql Server.

Ok. Langsung aja.....

pertama buat database di SQL Server, disini databasenya saya buat dengan nama TestDB,
setelah itu ane buat table dengan nama tb_Data, struktur tablenya seperti berikut gan. :D


Next, buka visual studionya buat project dengan nama simpleCRUD after that let's design winform like this :D, sok inggris dikit gpp, wkwkwkwkwwk


Next step, let's make Database Connections using module, hehehe sok inggris lagi, :D
tambahkan sebuah module kedalam project, caranya pilih menu project terus pilih add Module.
lalu tambahkan source code berikut :

Imports System.Data.SqlClient
Module Module1
    Public sqlCon As New SqlConnection
    Public Sub dbConn()
        Dim server As String
        server = "Data Source=.\SQLEXPRESS;Database=TestDB;Integrated Security=true"
        sqlCon = New SqlConnection(server)
        sqlCon.Open()
    End Sub
End Module

note : Data Source => nama server sql

selanjutnya kita kembali ke form yang sudah dibuat tadi, 
adapun step step yang harus dilakukan disini : 

1. Deklarasi beberapa variable seperti berikut gan 
    
    Dim sql As String
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim dt As DataTable
2. Buat sub untuk menampilkan data dari database
    untuk subnya ane kasih nama tampil_data seperti berikut :
 
Sub tampil_data()
        clear()
        dbConn()
        sql = "Select * From tb_Data"
        Dim da = New SqlDataAdapter(sql, sqlCon)
        Dim ds = New Data.DataSet
        ds.Reset()
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)

    End Sub

3. tambahkan kode simpan didalam button simpan, double click button simpan dan masukkan source code berikut :

     dbConn()
        Dim query As New SqlCommand("Insert Into tb_Data values('" & TextBox1.Text & "','" & TextBox2.Text & "','" &
                                    ComboBox1.Text & "','" & DateTimePicker1.Text & "')", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()

4. tambahkan kode untuk edit data didalam button edit, source codenya seperti berikut :

     dbConn()
        Dim query As New SqlCommand("Update tb_Data set alamat='" & TextBox2.Text & "', jenis_kelamin='" &
                                    ComboBox1.Text & "', tgl_lahir='" & DateTimePicker1.Text & "' Where nama = '" & TextBox1.Text & "'", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di Edit", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal Di Edit", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()

5. tambahkan kode hapus didalam button hapus, berikut source code pada button hapus :

     dbConn()
        Dim query As New SqlCommand("Delete tb_Data Where nama = '" & TextBox1.Text & "'", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Di hapus", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal Di hapus", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()

6. tambahkan source code berikut pada properti cellclick pada datagridnya, yang fungsinya akan menampilkan data yang di pilih pada datagridview kedalam textbox, combobox, dan datetimepicker.
berikut source codenya :

TextBox1.Text = DataGridView1.SelectedRows(0).Cells(0).Value
TextBox2.Text = DataGridView1.SelectedRows(0).Cells(1).Value
ComboBox1.Text = DataGridView1.SelectedRows(0).Cells(2).Value
DateTimePicker1.Text = DataGridView1.SelectedRows(0).Cells(3).Value

7. tambahkan sebuah sub lagi seperti berikut :

Sub clear()
        TextBox1.Clear()
        TextBox2.Clear()
        ComboBox1.SelectedIndex = 0
        DateTimePicker1.Value = Today
    End Sub


note : jangan lupa tambahkan namespace sqlclient pada bagian paling atas sendiri seperti berikut

Import System.Data.SqlClient


ok. jika sudah silahkan dijalankan programnya
lihat apa yang terjadi....
:D

yang mau download projectnya ada DISINI











Labels:

Comments

Post a Comment

Popular posts from this blog

PHP MySql CRUD Dengan Konsep MVC

Pada postingan kali ini saya akan sharing cara membuat CRUD dengan php menggunakan konsep MVC, ok langsung saja buka code editor (saya menggunakan sublime text) dan buat folder baru dengan nama phpmvc didalam folder htdocs kalian dan tambah folder seperti berikut :  Setelah itu kita siapkan database di mysql, buat database dengan nama phpmvc dan tablenya seperti gambar berikut : tambahkan file config.php didalam folder app/config : <?php define('BASEURL', 'http://localhost:8181/phpmvc/public'); define('DB_HOST', 'localhost'); define('DB_USER', 'root'); define('DB_PASS', ''); define('DB_NAME', 'phpmvc'); kemudian tambahkan 3 file controller didalam folder app/controllers, yaitu Home, About, dan Mahasiswa : Home.php <?php class Home extends Controller { public function index() { $data['nama'] = $this->model('User_model')->getUser()...
22 comments
Read more

Cara Sederhana Multi Insert Data Dengan PHP - MySQL

Pada postingan kali ini saya akan share cara melakukan insert lebih dari satu data dengan menggunaka PHP- Jquery dan MySQL. Pertama buat database di MySQL dan table, disini saya membuat database dengan nama db_latihan dan table dengan nama t_barang dengan struktur table seperti berikut : Setelah membuat database dan table selanjutnya membuat project PHP, project PHP nya saya buat dengan nama multi-insert, lalu didalam folder ini saya membuat dua file yaitu index.php dan insert.php . Source code index.php seperti berikut : <! doctype   html > < html   lang = "en" >    < head >      <!-- Required meta tags -->      < meta   charset = "utf-8" >      < meta   name = "viewport"   content = "width=device-width, initial-scale=1" >      <!-- Bootstrap CSS -->      < link ...
2 comments
Read more

Laravel - Sistem Informasi Perpustakaan Sederhana Laravel

Postingan kali saya akan sharing membuat aplikasi perpustakaan sederhana menggunakan laravel 5.8, dimana terdapan menu Anggota, Kategori Buku, Daftar Buku dan Transaksi (Peminjaman/Pengembalian Buku). ok langsung saja kita buat project laravel dengan nama perpus : composer create-project --prefer-dist laravel/laravel perpus setelah create project laravel-nya selesai kita buat database melalui localhost/phpmyadmin dengan nama db_perpus, lalu kita buka project laravel dengan code editor disini saya menggunakan visual studio code. Setelah project kita buka dengan code editor, pertama kita atur koneksi database yang ada di file .env, kita rubah menjadi seperti berikut : note : untuk db_username dan db_password di sesuiakan dengan configurasi masing-masing. Selanjutnya kita tambahkan 4 buah data migration yaitu : table_anggota, table_kategori, table_buku, table_transaksi, kita buka terminal dan jalankan command berikut :  php artisan make:migration crea...
14 comments
Read more