Cara Menyimpan Gambar/Image ke Database SQL Server menggunakan VB 2008

Dalam contoh kode program berikut ini, akan mengupdate data categories pada database northwind. Maka sebelumnya harus dibuat dulu stored procedure untuk mengupdate tabel categories, seperti berikut ini:

create proc upCategories (@categoryId int,
@CategoryName  nvarchar(15),
@Description  ntext,
@Picture  image)  as
UPDATE [Northwind].[dbo].[Categories]
SET [CategoryName] = @CategoryName,
[Description] = @Description,
[Picture] = @Picture
WHERE categoryId=@categoryId

 

Beberapa Penjelasan Pernyataan “DIM” pada Visual Basic

Beberapa pernyataan / statement yang bisa digunakan bersamaan deklarasi “DIM” yaitu : friend, private, protected, protected friend, public, read only, shadows, shared, dan witheven. Disini saya akan sedikit memberikan informasi akan penjelasan tentang pernyataan Dim tersebut.

Koneksi Database dengan VB

Untuk dapat mengakses suatu database dari visual basic, Anda harus membuat koneksi  ke database tersebut. Visual basic dapat menangani berbagai database, teks bakan worksheet excel. Terdapat beberapa cara yang tersedia untuk itu sesuai dengan database yang digunakan

Cara 1. Menggunakan Object ADO

Anda dapat menggunakan icon Adodc (Microsoft ActiveX Data Objects Data Control) pada toolbox. Jika pada toolbox tidak terdapat icon Adodc, Anda dapat menambahkannya dengan memilih menu Project, Components (Ctrl+T) lalu beri tanda pilih pada Microsoft ADO Data Control (OLEDB) dan klik Apply. Sekarang kita akan mencoba mengaitkan database Ms. Acess yang diberi nama Pembelian.mdb. Untuk itu, lakukan langkah-langkah sebagai berikut:

1. Pilih menu File lalu New.
2. Pilih VB Enterprise (Professional) Edition Controls.
3. Klik OK.
4. Klik ganda pada folder Forms pada jendela proyek lalu klik ganda pada Form 1 sampai muncul tampilan form.
5. Klik icon Adodc pada toolbox.
6. Klik dan seret pada jendela form, sehingga muncul tampilan seperti Gb. Objek yang tergambar dalam form disebut objek data.
7. Tentukan properti data sebagai berikut:
   1. Name db         Pembelian
   2. Caption           Data Barang
   3. EOFAcction    2
8. Tentukan properti ConnectionString dengan cara mengklik tombol … pada kolom ConnectionString sehingga muncul tam pilan seperti pada Gb
9. Pilih OptionButton pada Use Connection String lalu klik Build sehingga muncul tampilan seperti pada Gb
10. Pilih Microsoft Jet 4.0 OLEDB Provider lalu klik Next.
11. Pilih (dengan mengklik tombol …) atau ketik nama database yang dipakai pada kolom Select or enter a database name.
12. Klik Test Connection jika perlu, lalu kllk OK dua kali sampai tampilan kembali ke jendela Form.
13. Tentukan properti RecordSource dengan cara mengklik tombol pada kolom RecordSource sehingga muncul tampilan seperti pada Gb
14. Pada kolom Command Type pilih 2-adCmdTable. Setelah kolom ini diisi, maka Anda akan dapat mengisi kolom Table or Stored Procedure Name. lsilah dengan memilib tabel Barang seperti pada Gb
15. Klik OK.
16. Simpan form dan proyek dengan nama VB-Lat-01