DISCONNECTED

PUNYA ERICA


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

    'KONEKSI

    Sub koneksi()

        xconn.ConnectionString() = "Data Source=ORCL;User ID=erica;Password=erica;Unicode=True"

        xconn.Open()

    End Sub

    'RELOAD

    Sub reload()

        ds.Clear()

        da = New OracleDataAdapter("Select * from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

        TextBox1.Text = ds.Tables("mhs").Rows(0).Item(0).ToString

    End Sub

    'RESET

    Sub reset()

        TextBox1.Text = ""

        TextBox2.Text = ""

        RichTextBox1.Text = ""

        TextBox1.ReadOnly = False

    End Sub

    'MENAMPILKAN DI DATA GRID VIEW

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        koneksi()

        da = New OracleDataAdapter("select * from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'TOMBOL SIMPAN (TAMBAH)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        xcomm.Connection = xconn

        xcomm.CommandText = "insert into mhs values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & RichTextBox1.Text & "')"

        xcomm.ExecuteNonQuery()

        MessageBox.Show("data tersimpan")

        TextBox1.Text = ""

        TextBox2.Text = ""

        RichTextBox1.Text = ""

        da = New OracleDataAdapter("select * from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'TOMBOL CARI

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        xcomm.Connection = xconn

        xcomm.CommandText = "select * from mhs where npm = '" & TextBox1.Text & "'"

        dr = xcomm.ExecuteReader

        If dr.HasRows Then

            While dr.Read

                TextBox1.ReadOnly = True

                TextBox1.Text = dr.Item(0)

                TextBox2.Text = dr.Item(1)

                RichTextBox1.Text = dr.Item(2)

            End While

        End If

    End Sub

    'TOMBOL UPDATE

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        da = New OracleDataAdapter("update mhs set nama='" & TextBox2.Text & "', alamat='" & RichTextBox1.Text & "' where npm = '" & TextBox1.Text & "'", xconn)

        da.Fill(ds, "mhs")

        MsgBox("data berhasil diubah")

        ds.Clear()

        da = New OracleDataAdapter("select npm, nama, alamat from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'UNTUK MEMILIH BARIS DI DATA GRID VIEW

    Private Sub DataGridView1_RowHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.RowHeaderMouseClick

        TextBox1.ReadOnly = True

        TextBox1.Text = DataGridView1.SelectedRows.Item(0).Cells(0).Value

        TextBox2.Text = DataGridView1.SelectedRows.Item(0).Cells(1).Value

        RichTextBox1.Text = DataGridView1.SelectedRows.Item(0).Cells(2).Value

    End Sub

    'TOMBOL DELETE

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        da = New OracleDataAdapter("delete mhs where npm = '" & TextBox1.Text & "'", xconn)

        da.Fill(ds, "mhs")

        reload()

    End Sub

    'TOMBOL RELOAD (BUAT NGOSONGIN FORM)

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

        reset()

    End Sub

End Class

DISCONNECTED ERICA
DISCONNEDTED JINJIN



PUNYA JINJIN

Imports System.Data.OracleClient

'INISIALISASI

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

    'TAMPIL DATA

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        koneksi()

        da = New OracleDataAdapter("select * from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'KONEK

    Sub koneksi()

        xconn.Close()

        xconn.ConnectionString = "Data Source=ORCL;User ID=jinjin;Password=jinjin;Unicode=True"

        xconn.Open()

    End Sub

    'INSERT

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        xcomm.Connection = xconn

        xcomm.CommandText = "insert into mhs values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & RichTextBox1.Text & "')"

        xcomm.ExecuteNonQuery()

        MessageBox.Show("Data Tersimpan")

        TextBox1.Text = ""

        TextBox2.Text = ""

        RichTextBox1.Text = ""

        da = New OracleDataAdapter("select * from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'CARI

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        xcomm.Connection = xconn

        xcomm.CommandText = "select * from mhs where npm = '" & TextBox1.Text & "'"

        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

        da = New OracleDataAdapter("update mhs set nama='" & TextBox2.Text & "', alamat='" & RichTextBox1.Text & "' where npm = '" & TextBox1.Text & "'", xconn)

        da.Fill(ds, "mhs")

        MessageBox.Show("data berhasil diubah")

        ds.Clear()

        da = New OracleDataAdapter("select npm, nama, alamat from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

    'DELETE

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        da = New OracleDataAdapter("delete mhs where npm='" & TextBox1.Text & "'", xconn)

        da.Fill(ds, "mhs")

        MsgBox("data berhasil dihapus")

        ds.Clear()

        da = New OracleDataAdapter("select npm, nama, alamat from mhs", xconn)

        da.Fill(ds, "mhs")

        DataGridView1.DataSource = ds.Tables("mhs").DefaultView

    End Sub

End Class