Program Tambah Record Di Visual Basic Net 2008

Senin, 18 Februari 2013 | 03:02 WIB | Dibaca : 4939 kali | Kategori : Prog VB.NET
Program Tambah Record Di Visual Basic Net 2008

Sekalian coba baca artikel mengenai Program Tambah Record Di Visual Basic Net 2008.

Silahkan buat dahulu database access :
Nama Database : SmartSolution.Mdb
Nama Table : Buku
Field
1. Kode type Text
2. Judul type Text
3. Pengarang type Text
4. Penerbit type Text

Design form Program Tambah Record Di Visual Basic Net 2008



Berikut listing Program Tambah Record Di Visual Basic Net 2008

Imports System.Data.OleDb
Public Class Form1
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DS As New DataSet

    Public Sub OpenDB()
        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseSmartSolution.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub TampilBuku()
          ' Pada perintah SELEC tambahkan huruf T
        ADP = New OleDbDataAdapter("SELEC * FROM Buku", DB)
        DS = New DataSet
        ADP.Fill(DS, "Buku")
        DataGridView1.DataSource = DS.Tables("Buku")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OpenDB()
        Call btnBaru_Click(sender, e)
        Call TampilBuku()
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim SQL As String
        SQL = "INSERT INTO Buku (Kode, Judul, Pengarang, Penerbit)" & _
                      " VALUES('" & Kode.Text & "','" & _
                                    Judul.Text & "','" & _
                                    Pengarang.Text & "','" & _
                                    Penerbit.Text & "')"

        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call TampilBuku()
    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Kode.Text = ""
        Judul.Text = ""
        Pengarang.Text = ""
        Penerbit.Text = ""
    End Sub
End Class


Demikianlah Program Tambah Record Di Visual Basic Net 2008 , semoga bermanfaat dan membuat anda semakin suka untuk belajar bahasa pemrograman,

Yuk Belajar Bahasa Pemrograman Visual Basic dot Net .

Selamat Malam.
Selamat Pagi

Tag : Program Tambah Record Di Visual Basic Net 2008, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic net, tempat download program, program vb net


Bila berita ini bermanfaat silahkan share Program Tambah Record Di Visual Basic Net 2008 ini dengan teman anda, Terima kasih sebelumnya

Berikan Komentar Anda Pada Berita Program Tambah Record Di Visual Basic Net 2008

Anda berada di halaman Program Tambah Record Di Visual Basic Net 2008, dan telah membaca artikel Program Tambah Record Di Visual Basic Net 2008. Artikel Program Tambah Record Di Visual Basic Net 2008 bisa anda peroleh pada halaman http://www.mesran.web.id/berita-561-program-tambah-record-di-visual-basic-net-2008.html . Anda bisa meng-COPY/PASTE artikel ini dengan meletakkan link Program Tambah Record Di Visual Basic Net 2008 sebagai sumbernya.
Web Rekomendasi
Publikasi Ilmiah
 Copyright (c) 2011 - 2018 mesran.web.id