Cara Input Database SQL Server VB Net 2013

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

bismillaahirrahmaanirrahiim

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

Assalamu'alaikum warahmatullahi wabarakatuh

Berikut dibawah ini akan kami jelaskan cara input atau insert database SQL Server dengan VB Net 2013. Tutorial ini digunakan bagi anda yang sedang belajar VB Net 2013 dengan database SQL Server

Berikut langkah-langkahnya :
Pastikan anda telah bisa koneksi Database SQL Server dengan VB Net 2013.
Jika anda belum bisa anda bisa Buka Link ini untuk mempelajarinya :

Jika sudah tahu cara koneksi Database SQL Server dengan VB  Net 2013, silahkan ikuti langkah dibawah ini :
Buka VB Net 2013 anda
Buatlah Design Form seperti gambar dibawah ini pada Form1

Kemudian pada Form1, masukan koding dibawah ini :

Imports System.Data.SqlClient
Public Class Form1
    Dim CONN As SqlConnection
    Dim CMD As SqlCommand
    Dim DS As New DataSet
    Dim DA As SqlDataAdapter
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=TMEDIA007;initial catalog=DB_TEST;integrated security =true"
        Conn = New SqlConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilGrid()
    End Sub
    Sub TampilGrid()
        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"))
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        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 TampilGrid()
    End Sub
End Class

Kemudian silahkan Run atau Jalankan Project VB Net 2013 anda
Hasilnya adalah seperti gambar dibawah ini :

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 Cara Input Database SQL Server VB Net 2013, Diterbitkan oleh scodeaplikasi pada Rabu, 16 September 2015. 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.