oleh:Muhammad Suchairy
Assalamu’alaikum
ya ikhwah fillah kembali puji syukur ana ucapkan kepada ALLAH AZZA WA JALLA
sebesar-besar nya karunia dan rizky nya serta
masih di berikan kesehatan kepada penulis sehingga penulis dapat
memberikan ilmu dunia yang Inhsaa ALLAH bermanfaat bagi ukhty wa akhi sekalian
Pertama
–tama sebelum membuat sebuah aplikasi untuk insert data nya kita buat dulu
sebuah database nya disini saya menggunakan SQL SERVER 2008 dan buat database
nya caranya
Klik kiri
pada database>New database
Dan buat
sebuah database dan beri nama insert dan klik ok
Maka
database telah dibuat dan tampil pada bagian file database pada sql server
Lalu buat
sebuah table cara nya Klik kanan
pada table pilih new table
Dan buat
data pada table nya sepeti gambar di bawah
-nama
-umur
-cita_cita
-agama
Setelah itu
simpan di sini nama table saya adalah Table_1
Kemudian
buka vb nya disini ana menggunakan vb 2012 dan pilih new project
Pilih
windows forms application dan berinama pada form nya insertdata lalu tekan ok
Masuk pada
tampilan design dan buat lah design form nya seperti gambar di bawah
Kemudian
setelah design form insert nya selesai pilih Project>add windows form karena
kita akan membuat form untuk menampikan data yang telah di insert pada database
Pilih
kembali windows form dan beri nama formnya
tampil
Dan design
form tampil seperti ini Disini saya
hanya menambah kan Tool
bernama datagridview
Setelah itu
double klik pada button simpan data agar masuk pada pembuatan coding
buat lah
script coding nya seperti ini
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim query As String = "insert
into Table_1 VALUES(@nama,@umur,@cita_cita,@agama)"
Dim koneksi As New SqlClient.SqlConnection("Initial
Catalog=insert; Data Source=INTEL-PC; Integrated Security=SSPI;")
Try
koneksi.Open()
Dim da As New SqlClient.SqlDataAdapter(query,
koneksi)
da.SelectCommand.Parameters.AddWithValue("@nama", Me.TextBox1.Text)
da.SelectCommand.Parameters.AddWithValue("@umur", Me.TextBox2.Text)
da.SelectCommand.Parameters.AddWithValue("@cita_cita", Me.TextBox3.Text)
da.SelectCommand.Parameters.AddWithValue("@agama", Me.TextBox4.Text)
If
da.SelectCommand.ExecuteNonQuery() > 0 Then
MessageBox.Show("Data Berhasil disimpan")
End If
Catch ex As Exception
MessageBox.Show("Gagal Disimpan")
End Try
End Sub
---------------------------------------------------
Note:
*agar script dari coding di atas berjalan perlu di ingat
bahwa pada bagian harus di sesuai kan nama database nya
“initial catalog=” isi nama
database anda”
Dim koneksi As New SqlClient.SqlConnection("Initial
Catalog=insert; Data Source=INTEL-PC; Integrated Security=SSPI;")
*dan pada bagian souce=”INTEL-PC” itu adalah nama server
pada sql server saya
Dan itu harus ukhty wa akhi sesuaikan dengan nama server sql
masing masing
Contoh
Server NAME SAYA ADALAH “INTEL PC”
Dan ukhty wa akhi bisa ganti servername nya sesuai dengan
nama server name pada sql server ukhty wa akhi masing2
Contoh
spesifik nya pada button simpan data
Lalu kita
jalan kan program nya dan isikan data
Kemudian
akan muncul massege peringatan bahwa data telah berhasil di simpan
Kemudianm
kita chek pada sql server nya maka data otomatis telah tersimpan pada database
seperti contoh gambar di bawah
Lalu kita
pindah pada form tampil dan kemudian double klik pada form tampil agar masuk
pada pembuatan coding
Kemudian
buat coding nya seperti ini
Imports System.Data.SqlClient
Public Class tampil
Private Sub Tampil()
Dim ConnectionString As String
ConnectionString = "Initial Catalog=insert; Data Source=INTEL-PC;
Integrated Security=SSPI;"
Dim koneksi As New SqlClient.SqlConnection(ConnectionString)
Try
koneksi.Open()
Dim dt As New DataTable
Dim da As New SqlDataAdapter("SELECT * from Table_1", koneksi)
da.Fill(dt)
Me.DataGridView1.DataSource
= dt
Catch ex As Exception
End Try
End Sub
Private Sub tampil_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Tampil()
End Sub
End Class
Berikut ini
contoh yang lebih spesifik dari coding
yang di atas
Kemudian
balik ke form 1 dan double klik pada button tampilkan data
Kemudian
masuk pada pembuatan coding pada button tampil data Ketikan coding
seperti ini
Tampil.show()
Note:
Maksud dari
tampil.show
Ialah
dimana kita memanggil form tampil
Dan untuk
bisa memanggilnya harus sesuai dengan nama form yang akan ditampilkan
Dan jalan
kembali program nya kembali kita isikan data
Dan simpan
data terbaru
Kemudian
tampilkan maka data tersebut akan tampil
Gimana
mudah kan membuat form insert data dan tampil data semoga membentu ukhty wa
akhi sekalian dalam pembuatan tugas kuliah atau pembuatan program nya
Semoga ilmu
dunia yang ana berikan bermanfaat bagi ukhty wa akhi sekalian
Barokallah
Fikkum
Assalamu’alaikum
warahmatullahi wabarokatuh Salam
ukhwah
Muhammad.Suchairy
ConversionConversion EmoticonEmoticon