Scribd Logo
Unggah

Selamat datang di Scribd!

  • 72 tayangan

    2013.6 Cara Input Database VB Net 2013 PDF

    Diunggah oleh

    riphh.cool
    Dokumen ini memberikan panduan cara untuk memasukkan data ke dalam database menggunakan VB.NET 2013. Langkah-langkahnya adalah membuat database dan tabel, membuat form visual basic, dan mengkodingkan input data ke database.

    Hak Cipta:

    © All Rights Reserved
    Unduh sebagai PDF, TXT atau baca online dari Scribd

    2013.6 Cara Input Database VB Net 2013 PDF

    Diunggah oleh

    riphh.cool
    72 tayangan4 halaman
    Dokumen ini memberikan panduan cara untuk memasukkan data ke dalam database menggunakan VB.NET 2013. Langkah-langkahnya adalah membuat database dan tabel, membuat form visual basic, dan mengkodingkan input data ke database.

    Judul Asli

    2013.6 Cara Input Database VB Net 2013.pdf

    Hak Cipta

    © © All Rights Reserved

    Format Tersedia

    PDF, TXT atau baca online dari Scribd

    Apakah menurut Anda dokumen ini bermanfaat?

    Apakah konten ini tidak pantas?

    Dokumen ini memberikan panduan cara untuk memasukkan data ke dalam database menggunakan VB.NET 2013. Langkah-langkahnya adalah membuat database dan tabel, membuat form visual basic, dan mengkodingkan input data ke database.

    Hak Cipta:

    © All Rights Reserved
    Unduh sebagai PDF, TXT atau baca online dari Scribd
    Unduh sebagai pdf atau txt
    72 tayangan4 halaman

    2013.6 Cara Input Database VB Net 2013 PDF

    Diunggah oleh

    riphh.cool
    Dokumen ini memberikan panduan cara untuk memasukkan data ke dalam database menggunakan VB.NET 2013. Langkah-langkahnya adalah membuat database dan tabel, membuat form visual basic, dan mengkodingkan input data ke database.

    Hak Cipta:

    © All Rights Reserved
    Unduh sebagai PDF, TXT atau baca online dari Scribd
    Unduh sebagai pdf atau txt
    dari 4

    Belajar VB | Belajar Visual Basic 6.

    0 | VB 2013 | VB 2010 | VB 2008 | VB 2005

    BAB 2013.6
    CARA INPUT DATABASE DENGAN VB Net 2013

    Pada Bab ini akan dibahas cara Input Database Dengan VB Net 2013

    Berikut langkah - langkahnya :


    1. Membuat Database dan Tabel
    2. Membuat Form Visual Basic 2013

    #1
    Buatlah database dengan nama : DBBelajarvb.accdb (Access 2007, 2010 atau 2013)
    Kemudian buatlah Tabel BARANG Dengan Design Table :

    Field Type Lebar Keterangan


    KodeBarang Varchar 6 Primary
    NamaBarang Varchar 50
    HargaBarang Int
    JumlahBarang Int

    Sebagai contoh, masukan data seperti dibawah ini :

    #2
    Buatlah Folder di Drive D Dengan nama : Belajar VB2013
    Buka Aplikasi VB 2013 anda
    Klik File New Project

    Tutorial Lengkap Visual Basic 6.0 dan Visual Basic .Net http://blog.belajarvb.com Powered by www.tunasmedia.com
    Email : [email protected] atau [email protected]
    1
    Belajar VB | Belajar Visual Basic 6.0 | VB 2013 | VB 2010 | VB 2008 | VB 2005

    Pilih Windows Form Application


    Buatlah Nama sesuai dengan pilihan anda, masukan pada Folder yang telah anda buat sebelumnya :
    Klik OK

    Tutorial Lengkap Visual Basic 6.0 dan Visual Basic .Net http://blog.belajarvb.com Powered by www.tunasmedia.com
    Email : [email protected] atau [email protected]
    2
    Belajar VB | Belajar Visual Basic 6.0 | VB 2013 | VB 2010 | VB 2008 | VB 2005

    Masukan Database DBBelajarvb.accdb yang telah anda buat kedalam Folder Bin/Debug

    Kemudian buatlah design Form1 seperti gambar dibawah ini :

    Pada Form1 terdapat : TextBox1, TextBox1, TextBox1, TextBox1, Button1, DatagridView1

    Kemudian masukan Koding dibawah ini :


    Imports System.Data.OleDb
    Public Class Form1
    Dim CONN As OleDbConnection
    Dim CMD As OleDbCommand
    Dim DS As New DataSet
    Dim DA As OleDbDataAdapter
    Dim RD As OleDbDataReader
    Dim LokasiDB As String
    Sub Koneksi()
    LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBBelajarvb.accdb"
    Conn = New OleDbConnection(LokasiDB)
    If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
    Koneksi()
    DA = New OleDbDataAdapter("Select * from barang", CONN)
    DS = New DataSet
    DS.Clear()
    DA.Fill(DS, "Barang")
    DataGridView1.DataSource = (DS.Tables("Barang"))
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
    MyBase.Load

    Tutorial Lengkap Visual Basic 6.0 dan Visual Basic .Net http://blog.belajarvb.com Powered by www.tunasmedia.com
    Email : [email protected] atau [email protected]
    3
    Belajar VB | Belajar Visual Basic 6.0 | VB 2013 | VB 2010 | VB 2008 | VB 2005
    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 = "" Then
    MsgBox("Data belum lengkap, Pastikan Kode Admin 6 Digit dan Semua form terisi")
    Exit Sub
    Else
    Call Koneksi()
    Dim simpan As String = "insert into Barang values ('" & TextBox1.Text & "','" &
    TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
    CMD = New OleDbCommand(simpan, CONN)
    CMD.ExecuteNonQuery()
    MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
    Call KondisiAwal()
    End If
    End Sub

    End Class

    Silahkan Jalankan Aplikasi Anda

    Tutorial Lengkap Visual Basic 6.0 dan Visual Basic .Net http://blog.belajarvb.com Powered by www.tunasmedia.com
    Email : [email protected] atau [email protected]
    4

    Anda mungkin juga menyukai