Pembuatan Data Menggunakan Oracle Form

Imports System.Data.OracleClient Public Class Form1 Dim xCon As New OracleConnection Dim xComm As New OracleCommand Dim dr As OracleDataReader Dim da As OracleDataAdapter Dim ds As New DataSet Sub tampil() xComm.CommandText = "select * from perpustakaan" da = New OracleDataAdapter(xComm.CommandText, xCon) da.Fill(ds, "uci") DataGrid1.DataSource = ds.Tables("uci").DefaultView End Sub Sub baca() xComm.CommandText = "select * from perpustakaan where no like '" & TextBox1.Text & "%'" xComm.Connection = xCon dr = xComm.ExecuteReader If dr.HasRows Then While dr.Read TextBox1.Text = dr.Item(0) TextBox2.Text = dr.Item(1) TextBox3.Text = dr.Item(2) TextBox4.Text = dr.Item(3) TextBox5.Text = dr.Item(4) TextBox6.Text = dr.Item(5) End While dr.Close() End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load xCon.ConnectionString = "Data Source=(DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = Iccuz_Cappiccuz)(PORT = 1521))(CONNECT_DATA =(SERVER = DEDICATED)(SERVICE_NAME = XE))); user id=uci; password=uci" xCon.Open() tampil() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click xComm.CommandText = "insert into perpustakaan values(" & _ "'" & TextBox1.Text & "'" & _ ",'" & TextBox2.Text & "'" & _ ",'" & TextBox3.Text & "'" & _ ",'" & TextBox4.Text & "'" & _ ",'" & TextBox5.Text & "'" & _ ",'" & TextBox6.Text & "')" xComm.Connection = xCon xComm.ExecuteNonQuery() da = New OracleDataAdapter(xComm.CommandText, xCon) da.Fill(ds, "uci") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click xComm.CommandText = " Update perpustakaan SET " & _ "pengarang='" & TextBox4.Text & "'" & _ "WHERE no like'" & TextBox1.Text & "'" xComm.Connection = xCon xComm.ExecuteNonQuery() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click xComm.CommandText = " Delete perpustakaan " & _ "WHERE no like'" & TextBox1.Text & "'" xComm.Connection = xCon xComm.ExecuteNonQuery() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click baca() End Sub End Class

Puisi

Di kala aku ingin mengejarmu… Aku tak tau ada apa denganku… Aku mengerti,,,, Aku bukan pilihan hatimu… Tapi,,,, Perasaan tak dapat dibohongi… Aku menyesal semua ini terjadi… Aku ingin kembali seperti dulu… Owh tuhan,,,,, Aku telah salah menilai dia… Aku hanyalah orang yang ingin mencari cinta… Mencari cinta sejati yang tak kunjung tiba… Aku harap dia tau apa yang aku mau… Tapi,,,,, Semua itu telah terrlambat… Karena kini semua itu telah berakhir… Bukan ini yang aku mau… Tapi aku harus sadar… Dia tercipta bukan untukku… Selamat tinggal cintaku… Aku akan selalu ingat namamu di hatiku… Karena engkau,,,, Terbaik untukku… You’re the best in my heart…