VB .NET - Cara Input Data Kedalam Database

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Kembali di Tutorial Visual Basic .Net, kali ini kami akan membahas tentang Cara Input atau Insert Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008.

Berikut langkahnya :
Buka Komputer anda
Silahkan masuk ke Microsoft SQL Server Management Studio
Buatlah Database dengan nama : DBJNM
Kemudian buatlah Tabel dengan nama : TBL_PEGAWAI
Design TBL_PEGAWAI adalah seperti gambar dibawah ini :

Jika sudah silahkan Save kemudian anda bisa mengisi data seperti gambar dibawah ini ( Optional )

Jika sudah mari kita lanjut ke Aplikasi VB .Net anda
Buka Visual Basic .Net anda
Kemudian Buatlah Design Form Seperti gambar dibawah ini :

Pada gambar diatas, saya membuat form dengan nama Form1, kemudian terdapat DatagridView, TextBox1, TextBox2, TextBox3, TextBox4, Label, Button1 dan Button2

Jika sudah membuat form1 seperti gambar diatas, silahkan masukan koding dibawah ini :

 
Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim CMD As SqlCommand
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=DBJNM;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        da = New SqlDataAdapter("Select * from TBL_PEGAWAI", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_PEGAWAI")
        DataGridView1.DataSource = (ds.Tables("TBL_PEGAWAI"))

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan NIP 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into TBL_PEGAWAI values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            CMD = New SqlCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    End Sub
End Class

Jika sudah, silahkan Running atau jalankan Project anda

Note :
Silahkan samakan kode yang berwarna kuning dengan nama komputer anda

Demikian Cara Input atau Insert Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008 Semoga bermanfaat untuk anda :)

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel VB .NET - Cara Input Data Kedalam Database, Diterbitkan oleh scodeaplikasi pada Selasa, 26 Januari 2016. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.