Cara Simpan Data Textbook VB.NET ke SQL Server

Simpan Data ke sql serverJika aplikasi yang kita buat bisa terkoneksi dan ter simpan ke dalam Database, tentu membuat aplikasi tersebut menjadi lebih mudah digunakan karena terdapat data yang bisa diambil dan dimasukkan kedalamnya. Sebenarnya, di vb.net sendiri telah menyediakan DataBindingNavigator, namun, dengan menggunakan button buatan sendiri, tentu mempermudah pengoperasian sekaligus mempercantik program yang kita buat. Pada tutorial kali ini, saya akan menggunakan SQL Server 2005 dan Visual Studio 2012 dengan bahasa VB.NET. Database yang dijadikan contoh dalam tutorial ini yaitu database Perpustakaan, Berikut penjelasannya :

#1 Buat Database Perpustakaan di SQL Server

  • Buka SQL Server kamu.
  • Klik New Query, ketik :
  • create database perpustakaan

  • lalu buat tabel datadiri :
  • use perpustakaan
    create table datadiri (
    NIM nchar(12) not null primary key,
    Nama varchar(50) null,
    Jurusan varchar(30) null,
    )

  • Execute. Selesai.

#2 Buat Project baru di VB.NET

  • Buat project baru di vb.net dengan nama “Perpustakaan” atau seterah kamu.
  • Koneksikan database SQL Server ke VB.NET dengan cara klik Tools > Connect to Database…
  • Connect to DatabaseMasukkan server name kamu, biasanya ada di saat login SQL Server.

select-database

  • Pilih database perpustakaan yang dibuat tadi.

Add Data Source VB.NET

  • Jika telah selesai, pilih Add data source > Pilih Database perpustakaan > Centang table datadiri

choose-table

#3 Rancang Bentuk Form

  • Drag and Drop “datadiri” di panel Data Source ke Form.
  • Drag and Drop Field ke Form.

Drag and Drop Database

  • Buat 2 button dengan text Simpan dan Baru

#4 Buat Modul Baru

  • Setelah selesai dengan desain aplikasi, maka langkah selanjutnya adalah membuat modul baru dengan cara klik menu Project > Add Module
  • Pada modul baru ketikkan perintah berikut :
  • Imports System.Data.SqlClient

    Module Module1

    Public koneksiSQL As SqlConnection

    Sub konekdatabase()
    Try
    koneksiSQL = New SqlConnection(“Data Source=BAGUSANJARI-PC\SQLEXPRESS;Initial Catalog=perpustakaan;Integrated Security=True”)
    koneksiSQL.Open()
    Catch ex As Exception
    MsgBox(“Tidak dapat tehubung ke Database”, MsgBoxStyle.Critical, “Gagal”)
    End Try
    End Sub

    Public Sub jalankansql(ByVal sql As String)
    Dim SQLCmd As New SqlCommand
    konekdatabase()
    Try
    SQLCmd.Connection = koneksiSQL
    SQLCmd.CommandType = CommandType.Text
    SQLCmd.CommandText = sql
    SQLCmd.ExecuteNonQuery()
    SQLCmd.Dispose()
    koneksiSQL.Close()

    MsgBox(“Data Sudah Disimpan”, vbInformation)
    Catch ex As Exception
    MsgBox(“Tidak Bisa Menyimpan ” _
    + “data ke Server” & ex.Message)
    End Try
    End Sub
    End Module

  • Ganti Data source “BAGUSANJARI-PC\SQLEXPRESS” dengan data source milik kamu.

#5 Pindah ke form1.vb

  • Masukkan “Imports System.Data.SqlClient” dibagian paling atas kode.
  • Pindah ke desain aplikasi tadi, klik ganda pada button “Baru”
  • Masukkan kode berikut :

NIMTextBox.Clear()
NamaTextBox.Clear()
JurusanTextBox.Clear()

  • Sesuaikan dengan nama textboox kamu.
  • Klik ganda pada tombol Simpan.
  • Masukkan kode dibawah ini :

Dim simpan As String

simpan = “INSERT INTO datadiri(NIM,Nama,Jurusan)” + “VALUES (‘” & NIMTextBox.Text & “‘,'” & NamaTextBox.Text & “‘,'” & JurusanTextBox.Text & “‘)”            jalankansql(simpan)

MsgBox(“Data berhasil Disimpan”, MsgBoxStyle.OkOnly, “Berhasil !”)

  • Hati-Hati tehadap Objek simpan, jika terjadi error, biasanya terdapat pada Objek ini.
  • Jalankan aplikasi. Masukkan data kamu dan klik tombol Simpan.
  • Silahkan restart aplikasi untuk mengupdate atau melihat data yang telah dimasukkan.

Database Berhasil di Simpan vb.net

Demikian Tutiorial menyimpan data dari Textbook ke Visual Basic.net. Semoga Bermanfaat.

Terimakasih.

Baca juga :

Cara Mengatasi Error di VB.NET

5 Comments Posted

  1. I have noticed you don’t monetize your website,
    don’t waste your traffic, you can earn additional cash every month because you’ve got hi quality content.
    If you want to know how to make extra $$$, search for: Boorfe’s tips best adsense alternative

  2. I have noticed you don’t monetize your blog, don’t waste your traffic, you can earn additional bucks every
    month because you’ve got hi quality content.
    If you want to know how to make extra money, search for:
    Boorfe’s tips best adsense alternative

Tinggalkan Komentar

Your email address will not be published.