Menyimpan File Gambar atau Foto ke dalam Database Access

Sudah lama tidak posting artike tentang Visual Basic, sekarang dapat ide untuk membuat program input gambar ke dalam database. Program ini dulu saya pakai saat membuat Program Bantu untuk Pengenalan Objek dengan Gambar dan Suara menggunakan Visual Basic 6.0.
Langsung saja, siapkan form seperti gambar di bawah ini..

Catatan :
1. Tambahkan komponen Common Dialog dan PictureBox
2. Commond dialog diberi nama DGL1
3. PictureBox diberi nama PIC1

Kemudian buat database dengan nama gambar.mdb, dengan nama Tabel, tblSiswa, kemudian buat struktur tabel seperti gambar dibawh ini:

Klik 2 kali form1 atau klik view code untuk mengisi koding berikiut:

Dim CONN As New ADODB.Connection
Dim RSANGGOTA As New ADODB.Recordset
Sub KONEKSi()
Set CONN = New ADODB.Connection
Set RSANGGOTA = New ADODB.Recordset
CONN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path &
"\DBFOTO.MDB"
End Sub
Private Sub cmdcarigambar_Click()
dlg1.ShowOpen
Text3 = dlg1.FileName
End Sub
Private Sub cmdsimpan_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox " DATA BELUM LENGKAP"
Exit Sub
Else
Call KONEKSi
SIMPAN = "INSERT INTO TBLANGGOTA(NIM,NAMA,LOKASI,FOTO) VALUES " & _
"('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Pic1 & "')"
CONN.Execute SIMPAN
Text1 = "": Text2 = "": Text3 = ""
End If
End Sub
Private Sub Form_Load()
Text3.Enabled = False
End Sub
Private Sub Text3_Change()
Pic1.Picture = LoadPicture(Text3)
End Sub

Selamt mencoba...
Untuk melihat tips dan aplikasi visual basic lainnya dapat dilihat disini

»»  READMORE...

Membuat Program Trial Berdasarkan Tanggal

Pengen ngerasain buat program yang bisa expire.. Ikuti langkah2 berikut ini...
1. buatlah database dengan nama DB1.MDB
2. buatlah tabel dengan nama table1
3. buatlah field dengan nama TGLMulai
4. buka VB
5. buatlah form seperti gambar di bawah ini

6. tulislah coding berikut ini
Dim Conn As New ADODB.Connection ‘definisikan koneksi ke database
Dim RS As New ADODB.Recordset ‘ definisikan tabel
Sub Koneksi() ‘membuat koneksi
Set Conn = New ADODB.Connection ‘membuat koneksi ke database
Set RS = New ADODB.Recordset ‘membuat koneksi ke tabel
Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path
& "\db1.mdb" ‘----- buka koneksi database
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text1 = Date + 4 ‘isi text1 adalah tanggal hari ini + 4 hari kedepan
Call Koneksi ‘panggil koneksi ke database
RS.Open "select * from table1", Conn ‘ buka tabel barang
If RS.EOF Then ‘ jika belum ada data maka
Dim simpan As String
‘ simpan tanggal sekarang ke dalam tabel
simpan = "insert into table1 (TglMulai) values ('" & Date & "')"
Conn.Execute simpan
Else
If RS!tglmulai + CDate(5) = Text1 Then ‘jika tanggal dalam tabel
+ 5 hari sama dengan isi text1 maka…
‘munculkan pesan bahwa aplikasi sudah expire
MsgBox "aplikasi anda sudah expire,silakan lakukan
registrasi"
End
End If
End If
End Sub
Sebagai sarana percobaan silakan ganti baris coding yang diberi bold dan italic,
Dan…….
Silakan lakukan modifikasi oleh anda sendiri…
Selamat mencoba!!!!!!

»»  READMORE...

Download Kumpulan Active-X Programming..

Capek cari koleksi Active-X satu per satu????
Nih langsung aja kawan2 download kumpulan Active-X nya.. Siapa tahu ada yang cocok dengan yang kawan cari..
Langsung saja unduh disini!!!!

»»  READMORE...

Cara mengatasi “error unexpected error number 28 has occurred”

1. Buka file CRYSTL32.DEP di posisi C:\windows\system32
2. Ubah coding di bawah ini
[CRPE32.DLL]
Dest=$(WinSysPath)
Uses1=CRPE32.DLL
Uses2=
Menjadi
;[CRPE32.DLL]
;Dest=$(WinSysPath)
;Uses1=CRPE32.DLL
;Uses2=
3. Simpan perubahan tersebut
4. Lalu lakukan lagi pembuatan file SETUP
Catatan : File-file diluar VB (MDB,RPT) harus di ADD pada saat membuat file setup,
atau copas (copy - paste) saja ke folder komputer target secara "manual"

»»  READMORE...

Konversi Database Access Ke Excel

Setelah kita tahu bagaimana mengkonversi data dari excel ke database access sekarang bagaimana kalau kita ingin mengkonversi dari access ke excel???
Ikuti langkah di bawah ini.
1. Buat form seperti gambar disamping.
2. Tambahkan Microsoft excel 12.0 library (untuk excel 2007)
3. Masuk ke coding dan ketik script di bawah ini..

Private Declare Function ShellExecute Lib "Shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal
lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As
String, ByVal FsShowCmd As Long) As Long
Dim Conn As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim FLD As ADODB.Field
Sub KoneksI()
Set Conn = New ADODB.Connection
Set RS = New ADODB.Recordset
Conn.Open "provider=microsoft.jet.oledb.4.0;data source= " & Label1 &
";peRSist security info =false"
End Sub
Private Sub Konversi()
Dim strExcelFile As String
Dim strWorksheet As String
Dim strDB As String
Dim strTable As String
strExcelFile = App.Path + "\" & List1 & ".xls"
strWorksheet = "WorkSheet1"
strDB = MdbFile
strTable = List1
Call KoneksI
If Dir(strExcelFile) <> "" Then
MsgBox "file sedang digunakan (terbuka)"
Exit Sub
End If
Conn.Execute "SELECT * INTO [Excel 8.0;DATABASE=" & strExcelFile &
"].[" & strWorksheet & "] FROM " & "[" & strTable & "]"
Conn.Close
End Sub
Private Sub Command1_Click()
CDialog.Filter = "Access Files (*.mdb)"
CDialog.FilterIndex = 0
CDialog.FileName = "*.mdb"
CDialog.ShowOpen
MdbFile = (CDialog.FileName)
List1.Clear
Label1 = MdbFile
Conn.Open "provider=microsoft.jet.oledb.4.0;data source= " & MdbFile
& ";peRSist security info =false"
Set RS = Conn.OpenSchema(adSchemaTables)
Do Until RS.EOF
If Left(RS.Fields("Table_Name").Value, 4) <> "MSys" And
Left(RS.Fields("Table_Name").Value, 3) <> "sys" Then
List1.AddItem RS.Fields("table_name")
End If
RS.MoveNext
Loop
End Sub
Private Sub Form_Load()
Label1.Visible = False
End Sub
Private Sub list1_click()
Call Konversi
Dim Buka As Long
Dim STR As String
STR = App.Path + "\" & List1 & ".xls"
Buka = OpenDocument(STR)
End Sub
Function OpenDocument(ByVal DocName As String) As Long
Dim Scr_hDC As Long
OpenDocument = ShellExecute(Me.hwnd, "Open", DocName, "", "C:\",
SW_SHOWNORMAL)
End Function

Coba jalankan programnya!!!!!

Selamat Mencoba!!!!!!!!!

»»  READMORE...

Konversi File Excel Ke Access

Mungkin selama ini ada kawan-kawan yang ingin mengkonversi file Excel ke database Accses. Hal ini biasa terjadi saat data tabel di excel yang ingin kita jadikan tabel di database access.. Daripada capek mengetik satu per satu data dalam tabelnya, ada baiknya kawan menggunakan cara berikut.




1. Buatlah file excel dengan data sebagai berikut :

2. Simpan file excel dengan nama sesuka anda
3. Buatlah file database dan simpan dengan nama sesuka anda
4. Buatlah form seperti gambar berikut :

5. Masuk ke bagian coding dan copas script di bawah ini:

Private Sub Command1_Click()
Dim FileExcel As String
CDialog.DialogTitle = "Excel File"
CDialog.Filter = "Excel (*.xls)|*.xls"
CDialog.InitDir = App.Path
CDialog.ShowOpen
FileExcel = CDialog.FileName
Text1 = FileExcel
End Sub
Private Sub Command2_Click()
CDialog.DialogTitle = "Access File"
CDialog.Filter = "Excel (*.mdb)|*.mdb"
CDialog.InitDir = App.Path
CDialog.ShowOpen
FileMDB = CDialog.FileName
Text2 = FileMDB
End Sub
Private Sub Command3_Click()
On Error GoTo salah
If Text1 = "" Then
MsgBox "file excel belum dipilih"
Command1_Click
Exit Sub
ElseIf Text2 = "" Then
MsgBox "file database belum dipilih"
Command2_Click
Exit Sub
ElseIf Text3 = "" Then
MsgBox "nama tabel baru belum diisi"
Text3.SetFocus
Exit Sub
End If
Dim con As New adodb.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & Text2 &
"'"
Dim strSQL As String
strSQL = "SELECT * INTO " & Text3 & " FROM [Sheet1$] IN """ & Text1 &
""" ""Excel 8.0; HDR=Yes;"""
con.Execute strSQL
con.Close
Set con = Nothing
MsgBox "konversi dari excel ke acces telah dilakukan"
On Error GoTo 0
Exit Sub
salah:
MsgBox "Mungkin nama tabel sama, coba gunakan nama tabel yang berbeda"
End Sub

SELAMAT MENCOBA!!!!!!!!

»»  READMORE...

Sistem Pakar

Sistem pakar adalah sebuah perangkat lunak komputer yang memilikibasis pengetahuan untuk domain tertentu dan menggunakan penalaran inferensi menyerupai seorang pakar dalam memecahkan masalah. Sistem Pakar merupakan cabang dari Artificial Intelligent (AI). Tujuan pengembangan sistem pakar sebenarnya bukan untuk menggantikan peran manusia, tetapi untuk mensubstitusikan pengetahuan manusia ke dalam bentuk sistem sehingga dapat digunakan oleh orang banyak.

Ciri-ciri Sistem Pakar

Ciri-ciri Sistem Pakar adalah sebagai berikut :

1) Terbatas pada domain keahlian tertentu.

2) Dapat memberikan penalaran untuk data-data yang tidak pasti.

3) Dapat mengemukan rangkaian alasan-alasan yang diberikannya dengan cara yang dapat dipahami.

4) Berdasarkan pada kaidah/rule tertentu.

5) Dirancang untuk dapat dikembangkan secara bertahap.

6) Keluarannya bersifat anjuran.

Keuntungan Sistem Pakar

Keuntungan-keuntungan dalam menggunakan Sistem Pakar adalah sebagai berikut :

1) Membuat orang awam, bekerja se layaknya seorang pakar.

2) Meningkatkan produktivitas akibat meningkatnya kualitas hasil pekerjaan, peningkatan kualitas disebabkan oleh meningkatnya efisiensi kerja.

3) Menghemat waktu kerja.

4) Menyederhanakan pekerjaan.

5) Merupakan arsip yang terpercaya dari sebuah keahlian, sehingga bagi pemakai sistem pakar akan seolah-olah berkonsultasi langsung dengan sang pakar, meskipun mungkin sang pakar telah meninggal.

6) Memperluas jangkauan, dari keahlian seorang pakar.n Sistem pakar yang telah disahkan, akan sama saja artinya dengan seorang pakar yang tersedia dalam jumlah besar (dapat diperbanyak dengan kemampuan yang persis sama), dapat diperoleh dan dipakai dimana saja

Bagian-bagian Sistem Pakar

Sebuah program sistem pakar terdiri atas komponen-komponen sebagai berikut :

1) Basis Pengetahuan (Knowledge Base)

Basis pengetahuan merupakan inti program system pakar dimana basis pengetahuan ini merupakan representasi pengetahuan (Knowledge Representation) dari seorang pakar. Basis pengetahuan ini tersusun atas fakta yang berupa informasi tentang cara bagaimana membangkitkan fakta baru dari fakta yang sudah diketahui.

2) Basis Data (Data Base)

Basis data adalah bagian yang mengandung semua fakta-fakta, baik fakta awal pada saat sistem mulai beroperasi maupun fakta-fakta yang didapatkan pada saat pengambilan kesimpulan sedang dilaksanakan. Pada kenyataannya, Basis Data berada didalam memori komputer. Secaraumum sistem pakar terdapat Basis Data untuk menyimpan data hasil observasi dan data lainnya yang dibutuhkan selama pengolahan.

3) Mesin Inferensi (Inference Engine)

Mesin Inferensi adalah bagian yang mengandung mekanisme fungsi berpikir dan pola-pola penalaran system yang digunakan oleh seorang pakar. Mekanisme ini akan menganalisa suatu masalah tertentu dan selanjutnya akan mencari jawaban atau kesimpulan yang terbaik. Secara deduktif mesin inferensi memilih pengetahuan yang relevan dalam rangka mencapai kesimpulan. Dengan demikian sistem ini dapat menjawab pertanyaan pemakai meskipun jawaban tersebut tidak tersimpan secara eksplisit didalam basis pengetahuan. Mesin inferensi memulai pelacakannya dengan mencocokkan kaidah kaidah dalam basis pengetahuan dengan fakta-fakta yang ada. Ada dua tipe teknik inferensi :

a. Runut Balik (Backward Chaining)

Runut balik merupakan strategi pencarian yang arahnya kebalikan dari runut maju. Proses pencarian dimulai dari tujuan, yaitu kesimpulan yang menjadi solusi permasalahan yang dihadapi. Mesin inferensi mencari kaidah-kaidah dalam basis pengetahuan yang kesimpulannya merupakan solusi yang ingin dicapai, kemudian dari kaidah-kaidah yang diperoleh, masing-masing kesimpulan dirunut balik jalur yang mengarah ke kesimpulan

tersebut. Jika informasi-informasi atau nilai dari atribut-atribut yang mengarah ke kesimpulan tersebut sesuai dengan data yang diberikan maka kesimpulan tersebut merupakan solusi yang dicari, jika tidak sesuai maka kesimpulan tersebut bukan merupakan solusi yang dicari. Runut balik memulai proses pencarian dengan suatu tujuan sehingga strategi ini disebut juga goal-driven.

b. Runut Maju (Forward Chaining)

Runut maju merupakan strategi pencarian yang memulai proses pencarian dari sekumpulan data atau fakta, dari data-data tersebut dicari suatu kesimpulan yang menjadi solusi dari permasalahan yang dihadapi. Mesin inferensi mencari kaidah-kaidah dalam basis pengetahuan yang premisnya sesuai dengan data-data tersebut, kemudian dari kaidah-kaidah tersebut diperoleh suatu kesimpulan. Runut maju memulai proses pencarian dengan data sehingga strategi ini disebut juga data-driven.

4) Antar muka Pemakai (User Interface)

Antarmuka pemakai adalah bagian penghubung antara program system pakar dengan pemakai. Pada bagian ini akan terjadi dialog antara program dan pemakai. Program akan mengajukan pertanyaan-pertanyaan berbentuk “ya/tidak” (yes or no question) atau berbentuk menu pilihan. Program system pakar akan mengambil kesimpulan berdasarkan jawaban-jawaban dari pemakai tadi.

Selain komponen tersebut, agar sistem pakar lebih baik dalam mengambil keputusan diperlukan komponen-komponen tambahan lain yaitu :

• Kemampuan Belajar

• Kompatibilitas

• Fasilitas Penjelasan

• Kemudahan Memodifikasi

Nah dari keterangan diatas saya ingin berbagi source code sistem pakar untuk sahabat semua untuk dikembangkan agar menjadi lebih baik. Source Code By : Marlon
Silahkan Download Disini


Sumber : vbopensource

»»  READMORE...

Visual Basic 6.0 Portable

Bingung mau jalankan program VB 6.0 dikomputer yang tidak terinstal Visual Basic 6.0?????

Nah, pakai saja VB 6.0 Portable. Ukurannya yang cuman 5 MB-an saya rasa bisa kita copy ke flash dan bisa di bawa ke mana-mana!!!

Tapi ingat, yang namanya portable pasti ada kekurangannya..

Aplikasinya bisa di download disini...

»»  READMORE...

Aplikasi Chatting Menggunakan VB 6.0

Humm... Belajar pemrograman dalam jaringan, kurang lengkap tanpa aplikasi yang satu ini. Aplikasi Chat ini saya unduh dari indo-code.com, yang sampe saat saya posting artikel ini masih off. Aplikasi ini menerapkan dasar pemrograman dalam jaringan. Dimana ada aplikasi untuk Server dan aplikasi untuk Client. So jangan berlama-lama, download filenya disini..

»»  READMORE...

Virus Dengan Visual Basic 6.0

Horrrrrrrrrreeeeeeeee... Akhirnya Virus buatan sendiri jadi juga.. Virus ini saya namakan anasumba (Yupss!!! Karena saya orang sumba).. Sebelum mencoba menjalankan virus ini buat dulu "System Restore" di komputer anda. Virus ini akan memblokir semua file executable yang dapat mengganggu kelancaran aksinya.. Cara untuk mengembalikan komputer anda ke keadaan semula yakni dengan memanggil kembali System restore yang sudah anda buat tadi. Virus ini berjalan juga di modus Safe Mode.. Bisa dikembangkan lagi untuk lebih menambah daya serangnya... So.. Langsung download My Virus "anasumba"

»»  READMORE...

Fungsi Terbilang dengan Suara

Bagi kawan-kawan yang memerlukan aplikasi Visual basic 6.0 yang menerapkan fungsi terbilang dengan suara bisa download di sini Aplikasinya pernah saya posting ke indo-code, tapi berhubung indo-code lagi off kawan-kawan silahkan download.. Aplikasi ini saya buat sederhana saja.. Yakni aplikasi menghitung Luas dan keliling persegi panjang. Dimana Hasilnya berupa angka terbilang dan suara.. Silahkan di download disini

»»  READMORE...