kali ini saya akan membuat Database Penjualan . oke disini saya akan Membuat Data Base Acces penjualan Yang teroneksi/terhubung ke Visual Studio (VB) . Judul program saya adalah "Toko Apotik" atau Daftar menu Obat .
Disini saya membuat program tersebut berhubung dengan Tugas kuliah saya . Dan untuk memenuhi Nilai Uas saya maka disini saya akan membuat sebuah program data base yang terkoneksi dengan vb.
Kita Mulai saja,
Pertama dan yang paling utama kita harus menyediakan software :
- Microsof Accses
- Visual Studio
Jadi kita mulai saja ya
- Langkah Pertama kita akan membuka Microsof acces terlebih dahulu
Nah Kita Buat dulu database nya , Pilih Blank Database Lalu Create
Kemudian Klik Kanan pada Table
Klik Desing View
Kemudian Buat Nama "apa yang kalian ingin buat"
Klik Oke
- Setelah Mebuat Nama Kita akan membuat apa saja ikon dalam Daftar Obat Apotik
nah ini hasil saya buat database apotik , Seperti gambar di Atas saya sudah membuat Kode Obat ,Nama Obat ,Jenis Obat,Tipe Obat Harga dan Stock
Kemudian Kita klik tanda (x)
Setelah membuat tabel daftar obat apotik dan simpan lalu kita pindah ke sofware Visual Studio
Disini saya menggunakan software Visual Studio 2012 Ultimate
Oke lanjut
Pertama Klik New project
Lalu pilih ASP.NET Empety web Aplication
Ketik nama dan Klik Oke
Kemudian Klik Kanan daftar toko obat apotik
Pilih Add
Pilih Web From
Ketik Nama
jpg
Setelah ituk ketik di search Toolbox
Cari GridView
Tarik ke from
jpg
Pilih No 2
Setelah Itu Pilih DatabasSQL dan pilih ok
Next
Klik di New Connection
Klik Di Broser File yng telah Kita simpan Terlebih Dahulu.
kemudian browser file data base anda
lalu test connection untuk menguji apakah berhasil
Kemudian Klik Next
Next lagi
Setelah itu kita memilik ikon mana saja yang ingin di tampilkan
distu saya inginkan semua ikon, maka saya centang yang pertama seprti gambar di bawah ini
Klik Next
Setela itu Kita akan tesQuary. jika berhasil maka gambarnya seperi di bawah ini
Kemudian Finish
Jika kalian ingin mengedit template / background warna kotak / kolom, pilih saja auto format
Kemudian Klik kanan di Toko Obat Apotik
Pilih View In Browser
Jika berhasil Maka tampilannya Seperti Gambar di bawah ini
dan langkah selanjutnya
Sekarang saya akan menjelas kan bagai mna menambah daftar menu yang telah kita buat sebelumnya
- Pertama kita membuat from web baru lagi
Buat Nama From web Baru
-Sekarang Kita akan Mebuat Label,TextBox,Dan Button Seperti gambar di bawah
Lalu Kita Open di Browser dan tampilan seperti gambar di bawah ini
Kemudian Kita akan Membuat Kodingan di "Tambah","Simpan",dan "Tamplkan"
- di bawah ini adalah kodngan untuk "Tambah" dan untuk mengosongkan kembali
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox1.Focus()
- Selanjunya Kita akan Membuat Kodingan di "Simpan"
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Kode Obat values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
- Selanjutnya Kita Akan Membuat Kodingan Di "Tampilkan"
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Response.Redirect("Daftar Obat Apotik.aspx")
Eits sampai situ kita belum selesai yah hehe.
nah saya akan menambahkan Codingannya lagi Agar Lebih Jelas Saya Akan membuat kodingan saya yang sudah jadi
Imports System.Data
Imports System.Data.OleDb
Public Class FromTambahData
Inherits System.Web.UI.Page
Dim Koneksi As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""D:\User\Daftar Toko Apotik.mdb"
Dim objekKoneksi As New OleDb.OleDbConnection(Koneksi)
Private xReader As OleDbDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox1.Focus()
End Sub
Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Response.Redirect("Daftar Obat Apotik.aspx")
End Sub
Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
objekKoneksi.Open()
Dim tambah As String = "INSERT INTO Kode Obat values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
Dim oCmd = New OleDbCommand(tambah, objekKoneksi)
oCmd.ExecuteNonQuery()
objekKoneksi.Close()
MsgBox("Sukses")
End Sub
End Class
Ingat Selalu Simpan Codingan
Nah di atas adalah Kodingan sudah jadi
0 Komentar untuk "Cara Membuat Data Base Acces Penjualan Yang terhubung ke Visual Studio (VB)"