Penerapan SQL ke VB.net

hello, selamat malam, saya malam ini akan memposting penerapan SQL ke VB.net.

dengan bermodal Script SQL "INSERT INTO tbpenjualan value ('110','ahmadnasir','pria');" saya akan mencoba menerapkan Sqript sql tersebut ke Vb.net dengan value yang berbeda.

1. Buka microsoft visual studio 2005.

2. Buat database dengan nama table tbpenjualan dan  label : ( Kode, ,  nama_barang, jumlah, nama, total, diskon, harga, jenis_barang ). dan masukan database ke debug program.

3. Seting seperti di gambar di bwah ini : (untuk pembuat Cari simpan update delete keluar jangan dibuat karna kita hanya membuat penerapan sql yang dibuat hanya button simpan. )

4. Masukan value item combobox di properti ( Snack, Minuman, Perkakas ).

masukan kode :

Imports System.Data.OleDb
Public Class Form3
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Dim SQL As String
    Dim a As String
    Dim b As String


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

    Sub Tampilcari()
        ADP = New OleDbDataAdapter("SELECT * FROM tbpenjualan where kode = '" & TextBox1.Text & "'", DB)
        DS = New DataSet
        ADP.Fill(DS, "tbpenjualan")
        DataGridView1.DataSource = DS.Tables("tbpenjualan")
        Try
            If DataGridView1.RowCount > 0 Then
                Dim baris As Integer
                With DataGridView1
                    baris = .CurrentRow.Index
                    TextBox1.Text = .Item(0, baris).Value
                    ComboBox1.Text = .Item(1, baris).Value
                    TextBox3.Text = .Item(2, baris).Value
                    TextBox4.Text = .Item(3, baris).Value
                    TextBox2.Text = .Item(4, baris).Value
                    TextBox7.Text = .Item(5, baris).Value
                    TextBox6.Text = .Item(6, baris).Value
                    TextBox5.Text = .Item(7, baris).Value

                End With
            End If
        Catch ex As Exception
            MsgBox("Data Tidak di Temukan", MsgBoxStyle.Information, )
        End Try


    End Sub

    Sub TampilRecordalfa()
        ADP = New OleDbDataAdapter("SELECT * FROM tbpenjualan", DB)
        DS = New DataSet
        ADP.Fill(DS, "tbpenjualan")
        DataGridView1.DataSource = DS.Tables("tbpenjualan")
    End Sub
    Sub HapusText()
        TextBox1.Text = ""
        ComboBox1.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""
        TextBox8.Clear()
        TextBox2.Clear()

    End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SQL = "INSERT INTO tbpenjualan" & _
                " values('" & TextBox1.Text & "','" & _
                              ComboBox1.Text & "','" & _
                              TextBox3.Text & "','" & _
                              TextBox4.Text & "','" & _
                              TextBox2.Text & "','" & _
                              TextBox7.Text & "','" & _
                              TextBox6.Text & "','" & _
                              TextBox5.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call TampilRecordalfa()

masukan script di textbox 8 :

        If TextBox8.Text = "" Then
            a = "0"
        Else
            a = TextBox8.Text
        End If

        On Error Resume Next



        If TextBox8.Text > 500000 Then
            TextBox7.Text = 0.1 * a

        Else
            TextBox7.Text = "Tidak Mendapat Diskon"
        End If
        If TextBox8.Text = "0" Then
            TextBox7.Text = "0"
        End If

masukan script di textbox 4 :

        If TextBox2.Text = "" Then
            a = "0"
        Else
            a = TextBox2.Text
        End If
        If TextBox4.Text = "" Then
            b = "0"
        Else
            b = TextBox4.Text
        End If
        TextBox8.Text = a * b

masukan script di textbox 2:

        If TextBox2.Text = "" Then
            a = "0"
        Else
            a = TextBox2.Text
        End If
        If TextBox4.Text = "" Then
            b = "0"
        Else
            b = TextBox4.Text
        End If
        TextBox8.Text = a * b

SELESAI. Program SQL sudah dapat di terapkan di VB.net, mungkin sql juga dapat di terapkan di program Delphi. :)