pengetahuan: Perancangan Basis Data

Assalamu'alaikum teman-teman :D

kali ini saya akan membuat Perancangan Basis Data menggunakan Visual studio (ASP.Net) menggunakan database dari SQL Server 2008 R2

cekidot untuk tutorialnya...

Langkah Pertama adalah buka software SQL Server 2008 R2 lalu klik Connect
Note : Server namenya biasanya menggunakan nama PC masing2

Lalu klik kanan pada Database dan pilih New Database
disini saya membuat database dengan nama "Struk Belanja"

Setelah membuat database, klik tanda (+) pada database yang sudah di buat. lalu klik kanan pada table untuk membuat table

disini saya membuat table pembayaran, lalu isi kolom namanya dan data tipenya sesuai yang di inginkan

Setelah pembuatan Tabel pada SQL Server selesai, lalu buka visual studionya.
Pilih New > Web Site

Lalu pilih ASP.NET Empty Web Site karena kita akan menampilkan table dari SQL kedalam web browser

Lalu setelah selesai membuat halaman web, buatlah form untuk webnya dengan cara :

Add > Web Form

Lalu buatlah Design sebagai berikut menggunakan toolbox

ini adalah source code untuk design tersebut :

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient

Module Module1
    Public sqlCon As New SqlConnection
    Public Sub dbConn()
        Dim server As String
        server = "Data Source=WAWANZ;Database=StrukBelanja;Integrated Security=true"
        sqlCon = New SqlConnection(server)
        sqlCon.Open()
    End Sub
End Module

Public Class struk
    Inherits System.Web.UI.Page

    Sub tampil_data()
        clear()
        dbConn()
        sql = "Select * From pembayaran"
        Dim da = New SqlDataAdapter(sql, sqlCon)
        Dim ds = New Data.DataSet
        ds.Reset()
        da.Fill(ds)
        GridView1.DataSource = ds.Tables(0)
    End Sub

    Dim sql As String
    Dim da As SqlDataAdapter
    Dim ds As DataSet
    Dim dt As DataTable
    Dim xReader As SqlDataReader

    Sub clear()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""

        TextBox6.Text = ""
    End Sub



    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        clear()
    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dbConn()
        Dim query As New SqlCommand("Insert Into pembayaran values('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox6.Text & "')", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal Disimpan", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()
        Response.Redirect("struk.aspx")

    End Sub

    Protected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        dbConn()
        Dim query As New SqlCommand("Delete pembayaran where No_Nota = '" & TextBox1.Text & "'", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil di Hapus", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal di Hapus", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()
        Response.Redirect("struk.aspx")
    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        dbConn()
        Dim query As New SqlCommand("Update pembayaran set nama_barang='" & TextBox2.Text & "',Qty='" & TextBox3.Text &
                                    "', harga_satuan='" & TextBox4.Text & "', total='" & TextBox6.Text & "', Where No_Nota='" & TextBox1.Text & "'", sqlCon)
        Dim x = query.ExecuteNonQuery()
        If x = 1 Then
            MsgBox("Data Berhasil di Edit", MsgBoxStyle.Information, "Sukses")
            tampil_data()
        Else
            MsgBox("Data Gagal di Edit", MsgBoxStyle.Critical, "Gagal")
        End If
        sqlCon.Close()
        Response.Redirect("struk.aspx")

    End Sub


    Protected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        TextBox6.Text = TextBox3.Text * TextBox4.Text
    End Sub


End Class

lalu kita coba :D

pertama saya mencoba untuk memasukan data kedalam database SQL tersebut :