Menyimpan dan mengambil gambar pada Visual Basic - SQL Server

Memanfaatkan ADO Stream Object Pada Visual Basic Untuk Akses Data Bertipe BLOB Pada
SQL Server

Stream object mulai diperkenalkan pada ADO (ActiveX Data Objects) versi 2.5 dan ini sangat
membantu dalam penyerhanaan code untuk meng-akses maupun menyimpan BLOB (Binary
Large Object) pada SQL Server. Sebelumnya pada ADO versi 2.0 - 2.1 Anda harus
menggunakan method GetChunks dan AppendChunk yang terdapat pada Field object untuk
melakukan operasi dengan tipe data BLOB.

Melalui tulisan ini akan disajikan contoh dari:
1. Menyimpan isi dari file .gif ke suatu field dengan tipe data Image pada SQL Server
2. Mengambil data BLOB dari SQL Server (tipe data Image) dan menyimpannya ke file di
hardisk

OK, sebelum kita mulai ke Visual Basic kita persiapkan dulu tabel-nya di SQL Server. Buatlah
table yang didalamnya berisi suatu field dengan tipe Image. Penulis akan membuat table tbl_test pada database Northwind dengan dua buah field yaitu img_id yang bertipe Integer dan img_data yang bertipe Image. Field img_id digunakan sebagai ID dari image. Script SQL nya
adalah sebagai berikut (Anda bisa gunakan SQL Query Analyzer):

use Northwind
go
create table tbl_test (img_id int,img_data image)

Buatlah form interface-nya seperti diatas :
Menyimpan isi dari file .gif ke suatu field dengan tipe data Image pada SQL Server,
Sekarang kita akan mulai dulu dengan demo yang pertama yaitu menyimpan suatu file image ke dalam suatu tabel SQL Server yang mempunyai field yang bertipe Image. Sebelumnya kita harus mempunyai sampel file image yang akan kita simpan. Disini penulis menggunakan file Contoh1.jpg yang penulis letakkan pada root C:¥.

Ketik atau paste code di bawah pada bagian deklarasi umum dari Form1:

Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream
Kode di atas adalah deklarasi beberapa instance object yang akan kita buat yaitu class Connection, Recordset dan Stream.

Sekarang ketik atau paste code di bawah ini pada bagian deklarasi umum dari Form1:
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;" & _
"Data Source=;" & _
"Initial Catalog=;" & _
"User Id=;Password="
Set rs = New ADODB.Recordset
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:¥Contoh1.jpg"
cn.BeginTrans
rs.Open "select img_id from tbl_test", _
cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("img_id").Value = 111
rs.Update
rs.Close
rs.Open "select * from tbl_test where img_id=111", _
cn, adOpenKeyset, adLockOptimistic
rs.Fields("img_data").Value = mstream.Read
rs.Update
cn.CommitTrans
rs.Close
cn.Close
End Sub

Kode di atas merupakan kode event Click dari Command1 yang fungsinya untuk menyimpan
file image ke dalam database. Pada method cn.Open Anda harus mengganti nilai connection string sesuai dengan database server Anda. Kemudian dibuat instance dari Recordset dan Stream. Tipe stream kemudian diganti menjadi adTypeBinary dan kemudian stream mengambil data file image dengan memanggil method LoadFromFile. Setelah itu kita menyimpan id untuk image yang penulis beri kode 111. Kemudian kita select lagi row yang image id nya 111 dan kemudian dilakukan pemasukan data stream tadi ke field img_data dengan method stream Read dan kemudian data di update. Nah sampai disini data image Anda akan tersimpan dalam database. Silakan Anda check dengan select * from Northwind..tbl_test.

SELAMAT MENCOBA...

Software Untuk Akademik

SOFTWARE UNTUK MENGELOLA CIVITAS AKADEMIKA, BAIK DI SEKOLAH ATAUPUN PERGURUAN TINGGI, DAN BERBAGAI ORGANISASI LAINNYA YANG MEMILIKI SISTEM AKADEMIK. Anda akan mendapatkan panduan lengkap instalasi dan penggunaan software yang disertai dengan gambar, mudah dipahami dan dimengerti oleh orang awam sekalipun.

SOFTWARE DIJAMIN 100% FULL VERSION, Artinya anda cukup 1x membayar saja kepada kami dan Software bisa digunakan terus selamanya sesuai kebutuhan anda. Menu dan fungsi lengkap yang serba otomatis yang disediakan software ini adalah :

PENGOLAHAN DATA AKADEMIK

* Pengolahan Data Heregistrasi Mahasiswa
* Pengolahan Data Mahasiswa
* Pengolahan Data Perwalian, Data KSM (Kartu Studi Mahasiswa),Data Jurusan, data Mata Kuliah, Data Dosen,Data Kalender Akademik, Data Jadwal Ujian


PENGOLAHAN DATA KEUANGAN
* Pengolahan Data Pembayaran Uang Kuliah
* Pengolahn Data Penggajian Dosen dan Karyawan
* Pengolahan Data Penerimaan Kas

PENGOLAHAN DATA NILAI
* Pengolahan Data Indek Prestasi Mahasiswa (IP)
* Pengolahan Data Indek Prestasi Mahasiswa (IPK)
* Pengolahan Data Transkript Akademik

PEMBUATAN LAPORAN-LAPORAN
* Laporan Data Mahasiswa
* Laporan Data Keuangan
* Laporan Data Nilai
* Ekspor Data ke Excel

PENANGANAN KEAMANA SISTEM
* Staf admin dapat(Menambah, menghapus dan menentukan otorisasi Password)sesuai dengan otoritas-nya masing-masing yang telah ditentukan
* Disediakan Login Password untuk bagian akademik, bagian keuangan,administrasi, maupun untuk mahasiswa.

Layanan Analisa dan Perancangan Perangkat Lunak (Software)

Menggunakan Metode
a. Analisa dan perancangan Terstruktur
Ciri khas dari analisa dan perancangan terstruktur adalah penggunaan kakas (tool) DFD (Data Flow Diagram).

b. Analisa dan Perancangan berbasis Objek (OOD)
Dengan menggunakan UML kita dapat membuat model untuk semua jenis aplikasi piranti lunak,dimana aplikasi tersebut dapat berjalan pada piranti keras, sistem operasi dan jaringan apapun, serta ditulis dalam bahasa pemrograman apapun. Tetapi karena UML juga menggunakan class dan operation dalam konsep dasarnya, maka ia lebih cocok untuk penulisan piranti lunak dalam bahasabahasa berorientasi objek seperti C++, Java, C# atau VB.NET. Walaupun demikian, UML tetap dapat digunakan untuk modeling aplikasi prosedural dalam VB atau C.

Seperti bahasa-bahasa lainnya, UML mendefinisikan notasi dan syntax/semantik. Notasi UML merupakan sekumpulan bentuk khusus untuk menggambarkan berbagai diagram piranti lunak.

Setiap bentuk memiliki makna tertentu, dan UML syntax mendefinisikan bagaimana bentuk-bentuk tersebut dapat dikombinasikan. Notasi UML terutama diturunkan dari 3 notasi yang telah ada sebelumnya: Grady Booch OOD (Object-Oriented Design), Jim Rumbaugh OMT (Object Modeling Technique), dan Ivar Jacobson OOSE (Object-Oriented Software Engineering).

UML mendefinisikan diagram-diagram sebagai berikut:
• use case diagram
• class diagram
• statechart diagram
• activity diagram
• sequence diagram
• collaboration diagram
• component diagram
• deployment diagram

Layanan Pembuatan Program

1. Migrasi Pengolahan Data Excel ke Program Aplikasi yang mudah digunakan
2. Kolaborasi Pengolahan Data Excel dan Program Aplikasi
3. Program Aplikasi Akademik mulai dari SD, SMP, SMU/Sederajat, hingga Perguruan
Tinggi.
4. Program Aplikasi Apotek
5. Program Aplikasi Perpustakaan
6. Program Aplikasi Toko
7. Program Sistem Parkir Kendaraan Roda 2 dan Roda 4
8. Sms Gateway untuk berbagai keperluan
10.Program Pengolahan Data Kependudukan
11. Dll.

Penggunaan Perangkat Lunak

Perangkat lunak dibuat supaya bisa digunakan (oleh pemakai) untuk membantu menyelesaikan masalah/ pekerjaan.

Oleh karena itu, hal pertama yang harus dilakukan saat membuat perangkat lunak adalah memahami masalah/ pekerjaan yang akan dibantu penyelesaiannya.

The first step in solving any problem is to understand it. We often propose solutions to problems that we do not understand and then are surprised when the solutions fail to have the anticipated effect.

Bisnis: pemasaran, produksi, keuangan, HRD
Matematika: SPA, STP, analisis jalur
Grafik, citra: GIS, image processing
AI: sistem pakar, robotic
Komunikasi data: chatting, data exchange
Multimedia: animasi, tools pembelajaran
Real time: system safety, system control
Security: anti virus, security management
dll.


Perangkat lunak digunakan oleh pemakai di lingkungan operasional dengan teknologi tertentu sebagai bagian dari sistem yang lebih besar.
Oleh karena itu, hal kedua yang harus dilakukan saat membuat perangkat lunak adalah memahami lingkungan operasional, teknologi dan sistem yang menjadi tempat dimana perangkat lunak digunakan.

Sekelumit tentang system safety and software Reliability

Perangkat lunak dibuat supaya bisa digunakan (oleh pemakai) untuk membantu menyelesaikan masalah/ pekerjaan.

Oleh karena itu, hal pertama yang harus dilakukan saat membuat perangkat lunak adalah memahami masalah/ pekerjaan yang akan dibantu penyelesaiannya.

The first step in solving any problem is to understand it. We often propose solutions to problems that we do not understand and then are surprised when the solutions fail to have the anticipated effect.

Bisnis: pemasaran, produksi, keuangan, HRD
Matematika: SPA, STP, analisis jalur Grafik, citra: GIS, image processing
AI: sistem pakar, robotic
Komunikasi data: chatting, data exchange
Multimedia: animasi, tools pembelajaran
Real time: system safety, system control
Security: anti virus, security management
dll.


Perangkat lunak digunakan oleh pemakai di lingkungan operasional dengan teknologi tertentu sebagai bagian dari sistem yang lebih besar.
Oleh karena itu, hal kedua yang harus dilakukan saat membuat perangkat lunak adalah memahami lingkungan operasional, teknologi dan sistem yang menjadi tempat dimana perangkat lunak digunakan.