Baiklah, sebelum anda bisa membuat Form Input Database SQL Server dengan VB 2008, anda harus membuat database dan Tabel terlebih dahulu.
#1. Membuat Database dan Tabel
Buatlah Database dengan Nama : DB_APLIKASI
Buatlah Tabel dengan Nama : TBL_SISWA
Berikut Design tabelnya :
#2. Membuat Form pada VB 2008 dan Kodingnya
Buka aplikasi VB .Net 2008 anda
kemudian buatlah design Form1 seperti gambar 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=TMEDIA003;initial catalog=DB_APLIKASI;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_SISWA", CONN)
DS = New DataSet
DS.Clear()
DA.Fill(DS, "TBL_SISWA")
DataGridView1.DataSource = (DS.Tables("TBL_SISWA"))
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
TextBox1.MaxLength = 10
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 Semua form terisi")
Exit Sub
Else
Call Koneksi()
Dim edit As String = "update TBL_SISWA set Nama_SISWA='" & TextBox2.Text & "',ALAMAT_SISWA='" & TextBox3.Text & "',TELP_SISWA='" & TextBox4.Text & "' where NIS='" & TextBox1.Text & "'"
CMD = New SqlCommand(edit, CONN)
CMD.ExecuteNonQuery()
MsgBox("Data berhasil di Edit", MsgBoxStyle.Information, "Information")
Call KondisiAwal()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentDoubleClick
Call Koneksi()
End Sub
Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Chr(13) Then
Call Koneksi()
CMD = New SqlCommand("Select * from TBL_SISWA where NIS='" & TextBox1.Text & "'", CONN)
RD = CMD.ExecuteReader
RD.Read()
If Not RD.HasRows Then
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox2.Focus()
Else
TextBox2.Text = RD.Item("Nama_SISWA")
TextBox3.Text = RD.Item("Alamat_SISWA")
TextBox4.Text = RD.Item("Telp_SISWA")
TextBox2.Focus()
End If
End If
End Sub
End Class
Kemudian silahkan Run Project Aplikasi VB 2008 anda dan untuk koding yang berwarna kuning, silahkan ganti dengan nama komputer anda
Baca Juga : Step by Step Membuat Aplikasi Apotek Database SQL Server
Kemudian akan muncul data SISWA, kemudian anda Edit dan KLIK SAVE
Maka data akan berhasil anda Edit ke Tabel : TBL_SISWA
Mohon diperhatikan untuk anda :
Anda boleh merepost Tutorial kami diatas, asalkan anda mencantumkan sumbernya
Semoga bermanfaat untuk anda, salam Pemograman Visual Basic .Net...........................................
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
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 :
