Tanpa basa-basi.
Langkah pertama.
Buat table di database oracle. Bisa pake sql*plus bisa pake toad end pake apa aja boleh yg penting bisa bikin table.
CREATE TABLE DOK_ANGKAT_ANAK
(
ANAK_NO VARCHAR2(25 CHAR),
FOTO BLOB,
TGL_INPUT DATE,
ID VARCHAR2(24 CHAR) NOT NULL,
BANTU INTEGER DEFAULT 1
);
Langkah kedua
buat form baru di project loe, tools yang dipake diantaranya : picturebox, dua buah button, empat buah textbox. Setting sendiri terserah gimana bagusnya tampilannya. masuk ke view code.
Kurang lebih begini syntaxnya:
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class FrmInputAngkatAnak
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
Try
Dim cnn As New OleDb.OleDbConnection("Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=usermu;Password=passwordmu;Data Source=dbmu;")
Dim cmnd As New OleDb.OleDbCommand
cmnd.Connection = cnn
Dim imgf As FileStream
imgf = New FileStream(Pbox.ImageLocation, IO.FileMode.Open, IO.FileAccess.Read)
Dim ImageData As Byte()
ReDim ImageData(imgf.Length)
'Read block of bytes from stream into th
'// e byte array
imgf.Read(ImageData, 0, System.Convert.ToInt32(imgf.Length))
'// 'Close the File Stream
imgf.Close()
cmnd.Connection = cnn
cmnd.CommandText = "INSERT INTO DOK_ANGKAT_ANAK VALUES (" & txtNoReg.Text & ",:BLOBDB,:TGL_INPUT,:ID,:BANTU)"
cmnd.CommandType = CommandType.Text
Dim param As New OleDb.OleDbParameter
param.Direction = ParameterDirection.Input
cmnd.Parameters.AddWithValue("BLOBDB", ImageData)
cmnd.Parameters.Add("TGL_INPUT", OleDb.OleDbType.Date).Value = txtTglInput.Text
cmnd.Parameters.AddWithValue("ID", txtOperator.Text)
cmnd.Parameters.AddWithValue("BANTU", lblBantu.Text)
param.Value = ImageData
cnn.Open()
Try
cmnd.ExecuteNonQuery()
MessageBox.Show("Data Baru telah disimpan..!!", _
"Penyimpanan Sukses", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
cnn.Close()
Catch ex As Exception
End Try
End Sub
Private Sub btnUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
Try
Dim cnn As New OleDb.OleDbConnection("Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=usermu;Password=passwordmu;Data Source=dbmu;")
Dim cmnd As New OleDb.OleDbCommand
Dim param As New OleDb.OleDbParameter
cmnd.Connection = cnn
Dim imgf As FileStream
imgf = New FileStream(Pbox.ImageLocation, IO.FileMode.Open, IO.FileAccess.Read)
Dim ImageData As Byte()
ReDim ImageData(imgf.Length)
'Read block of bytes from stream into th
'// e byte array
imgf.Read(ImageData, 0, System.Convert.ToInt32(imgf.Length))
'// 'Close the File Stream
imgf.Close()
cmnd.Connection = cnn
cmnd.CommandText = "UPDATE DOK_ANGKAT_ANAK SET FOTO=:BLOBDB WHERE ANAK_NO='" & txtNoReg.Text & "'"
cmnd.CommandType = CommandType.Text
cmnd.Parameters.AddWithValue("BLOBDB", ImageData)
param.Direction = ParameterDirection.Input
param.Value = ImageData
cnn.Open()
Try
cmnd.ExecuteNonQuery()
MessageBox.Show("Data File telah diperbaharui..!!", _
"Penyimpanan Sukses", _
MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MsgBox(ex.Message)
End Try
cnn.Close()
Status = True
Call Pengaturan()
Call Kosongkan()
Catch ex As Exception
End Try
End Sub
Private Sub btnLiat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLiat.Click
Try
Dim cnn As New OleDb.OleDbConnection("Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=usermu;Password=passwordmu;Data Source=dbmu;")
Dim cmnd As New OleDb.OleDbCommand
cmnd.Connection = cnn
Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM DOK_ANGKAT_ANAK WHERE ANAK_NO=" & txtNoReg.Text, cnn)
Dim ds As New DataSet("DOK_ANGKAT_ANAK")
da.Fill(ds, "DOK_ANGKAT_ANAK")
If ds.Tables(0).Rows.Count > 0 Then
txtNoReg.Text = ds.Tables(0).Rows(0).Item(0)
Dim bytBLOBData() As Byte = ds.Tables(0).Rows(0)("FOTO")
Dim stmBLOBData As New System.IO.MemoryStream(bytBLOBData)
Pbox.Image = System.Drawing.Image.FromStream(stmBLOBData)
stmBLOBData.Close()
End If
cnn.Close()
Catch ex As Exception
End Try
Set_Gambar.Enabled = True
End Sub
End Class
Selamat Mencoba
