Selasa, 03 April 2018

CONNECTED

Posted on Selasa, April 03, 2018 by Erica | No comments

PUNYA JINJIN


Imports System.Data.OracleClient
Public Class Form1
    Dim xconn As New OracleConnection
    Dim xcomm As New OracleCommand
    Dim dr As OracleDataReader
    Dim npm, nama, alamat As String

    'KONEKSI
    Sub konek()
        xconn.Close()
        xconn = New OracleConnection("data source=ORCL; user id=jinjin; password=jinjin;")
        xconn.Open()
    End Sub

    'TAMPILAN LISTVIEW
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        konek()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("SELECT npm, nama, alamat from mhs ", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub

    'SIMPAN
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        xcomm = New OracleCommand("insert into mhs values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & RichTextBox1.Text & "')", xconn)
        xcomm.ExecuteNonQuery()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("select * from mhs", xconn)
        dr = xcomm.ExecuteReader()
        TextBox1.Text = ""
        TextBox2.Text = ""
        RichTextBox1.Text = ""
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub

    'CARI
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        xcomm = New OracleCommand("select * from mhs where npm = '" & TextBox1.Text & "'", xconn)
        dr = xcomm.ExecuteReader
        If dr.HasRows Then
            While dr.Read
                TextBox1.Text = dr.Item(0)
                TextBox2.Text = dr.Item(1)
                RichTextBox1.Text = dr.Item(2)
            End While
        End If
    End Sub

    'UPDATE
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        xcomm = New OracleCommand("update mhs set nama='" & TextBox2.Text & "',alamat='" & RichTextBox1.Text & "' where npm = '" & TextBox1.Text & "'", xconn)
        xcomm.ExecuteNonQuery()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("select * from mhs", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub

    'DELETE
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        xcomm = New OracleCommand("delete mhs where npm='" & TextBox1.Text & "'", xconn)
        xcomm.ExecuteNonQuery()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("select * from mhs", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub
End Class









PUNYA GEJROT



Imports System.Data.OracleClient
Public Class Form1
    Dim xconn As New OracleConnection
    Dim xcomm As New OracleCommand
    Dim dr As OracleDataReader
    Dim da As New OracleDataAdapter
    Dim ds As New DataSet
    Dim ctr As Control

    Sub koneksi()
        xconn.Close()
        xconn.ConnectionString = "Data Source=ORCL;User ID=tantra;password=tantra;Unicode=True"
        xconn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("SELECT kode_barang, nama_barang, jenis, satuan, harga_beli, harga_jual, stock from tblbarang ", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(3))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(4))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(5))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(6))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub



    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub btnbr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnbr.Click
        '''''sintak untuk membersihkan textbox dan NumericUpDown
        For Each ctr In Me.Controls
            If TypeOf ctr Is TextBox Then
                ctr.Text = ""
            End If
            If TypeOf ctr Is NumericUpDown Then
                ctr.Text = "0"
            End If
        Next

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        '''''digunakan untuk sintak DML, untuk button ini digunakan untuk insert data
        xcomm = New OracleCommand("insert into tblbarang values ('" & kdbrg.Text & "','" & nmbrg.Text & "'," & "'" & jns.Text & "','" & satuan.Text & "'," & HB.Value & "," & HJ.Value & "," & STK.Value & ")", xconn)
        xcomm.ExecuteNonQuery()
        '''' digunakan untuk menampilkan data ke listview setelah memasukkan data
        ListView1.Items.Clear()
        xcomm = New OracleCommand("SELECT kode_barang, nama_barang, jenis, satuan, harga_beli, harga_jual, stock from tblbarang", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(3))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(4))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(5))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(6))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub

 
End Class

Imports System.Data.OracleClient
Public Class Form1
    Dim xconn As New OracleConnection
    Dim xcomm As New OracleCommand
    Dim dr As OracleDataReader
    Dim da As New OracleDataAdapter
    Dim ds As New DataSet
    Dim ctr As Control

    Sub koneksi()
        xconn.Close()
        xconn.ConnectionString = "Data Source=ORCL;User ID=tantra;password=tantra;Unicode=True"
        xconn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi()
        ListView1.Items.Clear()
        xcomm = New OracleCommand("SELECT kode_barang, nama_barang, jenis, satuan, harga_beli, harga_jual, stock from tblbarang ", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(3))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(4))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(5))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(6))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub



    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbrg.TextChanged

    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub btnbr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnbr.Click
        '''''sintak untuk membersihkan textbox dan NumericUpDown
        For Each ctr In Me.Controls
            If TypeOf ctr Is TextBox Then
                ctr.Text = ""
            End If
            If TypeOf ctr Is NumericUpDown Then
                ctr.Text = "0"
            End If
        Next

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        '''''digunakan untuk sintak DML, untuk button ini digunakan untuk insert data
        xcomm = New OracleCommand("insert into tblbarang values ('" & kdbrg.Text & "','" & nmbrg.Text & "'," & "'" & jns.Text & "','" & satuan.Text & "'," & HB.Value & "," & HJ.Value & "," & STK.Value & ")", xconn)
        xcomm.ExecuteNonQuery()
        '''' digunakan untuk menampilkan data ke listview setelah memasukkan data
        ListView1.Items.Clear()
        xcomm = New OracleCommand("SELECT kode_barang, nama_barang, jenis, satuan, harga_beli, harga_jual, stock from tblbarang", xconn)
        dr = xcomm.ExecuteReader()
        If dr.HasRows Then
            While dr.Read()
                ListView1.Items.Add(dr.Item(0))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(1))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(2))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(3))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(4))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(5))
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(dr.Item(6))
            End While
            dr.Close()
        End If
        dr.Close()
        xcomm.Dispose()
    End Sub

 
End Class


0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)