September 17, 2010

Add & View Picture (Image Type) Using LINQ


Masih pada ingat dengan postingan saya mengenai insert dan view gambar pada SQL Server untuk field type nya adalah image, (jika belum silahkan baca dulu disini). Untuk tulisan ini saya akan memberikan sebuah tips atau cara bagaimana melakukan hal tersebut dengan menggunakan LINQ to SQL. Jika belum mengerti tentang LINQ bisa membaca artikelnya saya disini. Pada tulisan ini saya akan memberikan contoh bagaimana sintaks untuk melakukan insert dan view gambar untuk field yang bertipe image dengan menggunakan LINQ. Disini saya menggunakan database Northwind dan table Employees dengan field Photo. 
Sintaks Insert Picture
 Dim ms As New System.IO.MemoryStream()  
 PicBox.Image.Save(ms, PicBox.Image.RawFormat)  
 Dim CPic() As Byte = ms.GetBuffer  
 ms.Close()  
  'convert byte ke binary  
 Dim fileBinary As New System.Data.Linq.Binary(CPic)  
 Dim dc As New TestDataContext  
 Dim emp As New Employee With {.LastName = txtFirst.Text, .FirstName = txtLast.Text,   
                           .Photo = fileBinary}  
 dc.Employees.InsertOnSubmit(emp)  
 dc.SubmitChanges()  

Sintaks Insert Picture
 Dim dc As New TestDataContext  
 Dim empid As String  
 empid = InputBox("Masukkan Employee ID")  
 PicBox.Image = Image.FromStream(New IO.MemoryStream(dc.Employees.Single(Function(p) _  
    p.EmployeeID = empid).Photo.ToArray))  

Project dari contoh diatas dapat di download disini
Wassalam

7 comments:

Anonymous said...

mantap bro, berguna bgt buat tugas akhir saya, keep writing ya...

Imam said...

mas, saya sedang membuat project media player mas dengan vb 2010 tapi saya mentok saat pembuatan button "next" untuk melanjut ke file musik atau video selanjutnya. list filenya saya pakai listbox. dan pemutarnya saya pakai AxWindowsMediaPlayer yang sudah default pada vb 2010.
Mohon Penecrahannya mas untuk tombol next

saepudin said...

mas saya sedang membuat program rental cd, saya bingung untuk memberikan denda kalo pas pengembaliannya . . . mohon bantuannya mas jun, maklum masih belajar . . .

Junindar, MVP VB said...

bingung nya dmana??
saya juga bingung klu nanya nya gini..
kan bisa di buat untuk setiap category DVD brapa hari peminjaman nya dan denda per hari nya..
ntr pas pengembalian cek tgl peminjaman ke tgl pengembalian (datediff), klu lebig besar tgl kali kan jumlah hari dengan denda.. :)

saepudin said...

Terimakasih mas, kalo bisa minta code nya.
ini email saya saepudin1010@gmail.com

ancah said...

mas saya mau bertanya mas ,, saya sedang buat aplikasi sederhana mas lewat vb 2010 yang saya mw tanyakan bagaimana cara membuat program yg saya buat agar bisa dibentuk ke dalam .exe jd mksud saya tinggal di install aj mas di komputer saya msi awam soalnya sy mas.. mohon penjelasannya mas jun,, terima ksih sbelumnya..

djie said...

wah.. keren.. sangat bermanfaat sekali artikelnya.. thk!