Vb .Net - Cara Input Data Kedalam Database

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 ialah menyerupai gambar dibawah ini :

Jika sudah silahkan Save lalu anda sanggup mengisi data menyerupai 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, aku menciptakan form dengan nama Form1, lalu terdapat DatagridView, TextBox1, TextBox2, TextBox3, TextBox4, Label, Button1 dan Button2

Jika sudah menciptakan form1 menyerupai 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 isyarat yang berwarna kuning dengan nama komputer anda

Tutorial diatas ialah memakai Visual Basic .NET database SQL Server. Dengan Tutorial diatas anda juga sanggup memakai database MySQL maupun Access.
Silahkan KLIK DISINI Untuk mendownload Source Code Project diatas
Silahakn KLIK DISINI Untuk mengetaui panduan atau cara downloadnya

Demikian Cara Input atau Insert Data Kedalam Database Dengan Menggunakan VB .Net 2010 dan Database SQL Server 2008 Semoga bermanfaat untuk anda. Anda sanggup Klik Link Ini untuk mendapat index tutorial VB .NET dari JNM.