Membuat Form Entri Database Dengan Visual Basic .Net 2008

Membuat Form Entri Database Dengan Visual Basic .Net 2008

Ini merupakan rujukan menciptakan sebuah aktivitas entri sederhana dengan memakai Visual Basic .Net 2008. Adapun perkara yang diterapkan ialah Entri Data Dosen, dengan memakai sebuah form yang diberi Nama frmDosen. Pertama-tama siapkan database di SQL Server (saya memakai SQL Server 2000) dengan tabel berjulukan tbDosen dengan field-field menyerupai dibawah ini:

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita - Langkah berikut ialah mempersiapkan form frmDosen dengan tampilan menyerupai dibawah ini:

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita -

Java Media Kita - adapun kontrol-kontrol yang diharapkan adalah:

Java Media Kita - name kontrol


txtbidangkeahlian textbox


txtJabatanFungsional textbox


txtIdentitas textbox


txtNamaDosen textbox


txts1 textbox


txts2 textbox


txts3 textbox


txttempatlahir textbox


rdtetap radio button


rdlb radio button


dttgllahir dtpicker


cmdsimpan command button


cmdbersih command button


cmdhapus command button


cmdtutup command button

Java Media Kita - Setelah keduanya disiapkan, saatnya untuk melanjutkan dengan coding program. pertama-tema kita harus mempersiapkan koneksi ke database dengan memakai perintah Import pada level form yakni:

Java Media Kita - Imports System

Java Media Kita - Imports System.Data

Java Media Kita - Imports System.Data.SqlClient

Java Media Kita - letakkan perintah ini diatas public class frmDosen (yang muncul bila kita mendouble click salah satu dari control dari form).

Java Media Kita - Public Class frmDosen

Java Media Kita - Private Sub cmdTutup_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTutup.Click

Java Media Kita - Me .Close()

Java Media Kita - End Sub

Java Media Kita - Private Sub cmdBersih_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBersih.Click

Java Media Kita - txtKodeDosen.Text = ""

Java Media Kita - txtKodeDosen.Focus()

Java Media Kita - End Sub

Java Media Kita - Private Sub bersihForm()

Java Media Kita - txtBidangKeahlian.Text = ""

Java Media Kita - txtIdentitas.Text = ""

Java Media Kita - txtJabatanFungsional.Text = ""

Java Media Kita - txtNamaDosen.Text = ""

Java Media Kita - txtS1.Text = ""

Java Media Kita - txtS2.Text = ""

Java Media Kita - txtS3.Text = ""

Java Media Kita - txtTempatLahir.Text = ""

Java Media Kita - rdTetap.Checked = True

Java Media Kita - rdLB.Checked = Not rdTetap.Checked

Java Media Kita - dtTglLahir.Value = Date .Today

Java Media Kita - End Sub

Java Media Kita - Private Sub cmdHapus_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click

Java Media Kita - Dim con As SqlConnection

Java Media Kita - Dim cmdDosen As SqlCommand

Java Media Kita - Dim strSQL As String

Java Media Kita - If MsgBox( "Apakah anda yakin akan menghapus data ini?" , MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi hapus data " & Me .Text) = MsgBoxResult.Yes Then

Java Media Kita - Try

Java Media Kita - con = New SqlConnection(mdlUtama.cnString)

Java Media Kita - con.Open()

Java Media Kita - strSQL = "delete FROM tbdosen WHERE kodedosen='" & txtKodeDosen.Text & "'"

Java Media Kita - cmdDosen = New SqlCommand(strSQL, con)

Java Media Kita - cmdDosen.ExecuteScalar()

Java Media Kita - Catch x As Exception

Java Media Kita - MsgBox( "Terjadi kesalahan pada hapus di " & Me .Text & " dengan pesan:" & Chr(13) & x.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

Java Media Kita - End Try

Java Media Kita - End If

Java Media Kita - End Sub

Java Media Kita - Private Sub frmDosen_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me .KeyPress

Java Media Kita - If Asc(e.KeyChar) = 13 Then

Java Media Kita - SendKeys.Send( "{tab}" )

Java Media Kita - End If

Java Media Kita - End Sub

Java Media Kita - Private Sub frmDosen_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load

Java Media Kita - End Sub

Java Media Kita - Private Sub txtKodeDosen_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtKodeDosen.KeyPress

Java Media Kita - e.KeyChar = Chr(Asc(UCase(e.KeyChar)))

Java Media Kita - End Sub

Java Media Kita - Private Sub txtKodeDosen_TextChanged( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKodeDosen.TextChanged

Java Media Kita - Dim conDosen As SqlConnection

Java Media Kita - Dim comDosen As SqlCommand

Java Media Kita - Dim rsDosen As SqlDataReader

Java Media Kita - Dim strSQL As String

Java Media Kita - If txtKodeDosen.Text = "" Then

Java Media Kita - bersihForm()

Java Media Kita - Else

Java Media Kita - Try

Java Media Kita - conDosen = New SqlConnection(mdlUtama.cnString)

Java Media Kita - conDosen.Open()

Java Media Kita - strSQL = "SELECT * FROM tbdosen WHERE kodedosen='" & txtKodeDosen.Text & "'"

Java Media Kita - comDosen = New SqlCommand(strSQL, conDosen)

Java Media Kita - rsDosen = comDosen.ExecuteReader

Java Media Kita - If rsDosen.Read Then

Java Media Kita - txtNamaDosen.Text = rsDosen( "nama" ).ToString

Java Media Kita - txtTempatLahir.Text = rsDosen( "tempatlahir" ).ToString

Java Media Kita - dtTglLahir.Value = Format(rsDosen( "tgllahir" ), "yyyy-MM-dd" )

Java Media Kita - txtIdentitas.Text = rsDosen( "identitas" ).ToString

Java Media Kita - txtS1.Text = rsDosen( "pendidikans1" ).ToString

Java Media Kita - txtS2.Text = rsDosen( "pendidikans2" ).ToString

Java Media Kita - txtS3.Text = rsDosen( "pendidikans3" ).ToString

Java Media Kita - txtJabatanFungsional.Text = rsDosen( "jabfungsional" ).ToString

Java Media Kita - txtBidangKeahlian.Text = rsDosen( "bidangkeahlian" ).ToString

Java Media Kita - rdTetap.Checked = IIf(rsDosen( "dosentetap" ).ToString = 0, True , False )

Java Media Kita - rdLB.Checked = Not rdTetap.Checked

Java Media Kita - Else

Java Media Kita - bersihForm()

Java Media Kita - End If

Java Media Kita - Catch ex As Exception

Java Media Kita - MsgBox( "Terjadi kesalahan pada pembacaan di " & Me .Text & " dengan pesan:" & Chr(13) & ex.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

Java Media Kita - End Try

Java Media Kita - End If

Java Media Kita - End Sub

Java Media Kita - Private Sub cmdSimpan_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click

Java Media Kita - Dim con As SqlConnection

Java Media Kita - Dim comDosen As SqlCommand

Java Media Kita - Dim rsDosen As SqlDataReader

Java Media Kita - Dim strSQL As String

Java Media Kita - Try

Java Media Kita - con = New SqlConnection(mdlUtama.cnString)

Java Media Kita - strSQL = "SELECT * FROM tbdosen WHERE kodeDosen='" & txtKodeDosen.Text & "'"

Java Media Kita - con.Open()

Java Media Kita - comDosen = New SqlCommand(strSQL, con)

Java Media Kita - rsDosen = comDosen.ExecuteReader

Java Media Kita - If rsDosen.Read Then

Java Media Kita - If MsgBox( "Data ini sudah ada, mau diperbaiki?" , MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Konfirmasi edit data" ) = MsgBoxResult.Yes Then

Java Media Kita - strSQL = "UPDATE tbdosen set nama='" & txtNamaDosen.Text & "',tempatlahir='" & txtTempatLahir.Text & "',tgllahir='" & Format(dtTglLahir.Value, "yyyy-MM-dd" ) & "',identitas='" & txtIdentitas.Text & "',pendidikans1='" & txtS1.Text & "',pendidikans2='" & txtS2.Text & "',pendidikans3='" & txtS3.Text & "',jabfungsional='" & txtJabatanFungsional.Text & "',bidangkeahlian='" & txtBidangKeahlian.Text & "',dosentetap=" & IIf(rdTetap.Checked = True , 0, 1) & " WHERE kodedosen='" & txtKodeDosen.Text & "'"

Java Media Kita - Else

Java Media Kita - strSQL = ""

Java Media Kita - End If

Java Media Kita - Else

Java Media Kita - strSQL = "INSERT INTO tbdosen(kodedosen,nama,tempatlahir,tgllahir,identitas,pendidikans1,pendidikans2,pendidikans3,jabfungsional,bidangkeahlian,dosentetap) VALUES('" & txtKodeDosen.Text & "','" & txtNamaDosen.Text & "','" & txtTempatLahir.Text & "','" & Format(dtTglLahir.Value, "yyyy-MM-dd" ) & "','" & txtIdentitas.Text & "','" & txtS1.Text & "','" & txtS2.Text & "','" & txtS3.Text & "','" & txtJabatanFungsional.Text & "','" & txtBidangKeahlian.Text & "'," & IIf(rdTetap.Checked = True , 0, 1) & ")"

Java Media Kita - End If

Java Media Kita - rsDosen.Close()

Java Media Kita - If strSQL <> "" Then

Java Media Kita - comDosen = New SqlCommand(strSQL, con)

Java Media Kita - comDosen.ExecuteScalar()

Java Media Kita - End If

Java Media Kita - con.Close()

Java Media Kita - comDosen = Nothing

Java Media Kita - con = Nothing

Java Media Kita - txtKodeDosen.Text = ""

Java Media Kita - Catch x As Exception

Java Media Kita - MsgBox( "Terjadi kesalahan pada hapus di " & Me .Text & " dengan pesan:" & Chr(13) & x.Message, MsgBoxStyle.Critical, "Kesalahan pada:" & Me .Text)

Java Media Kita - End Try

Java Media Kita - End Sub

Java Media Kita - End Class