Cara Koneksi database Office Access ke Visual Basic 6.0 (VB)

Cara Koneksi database Office Access ke Visual Basic 6.0 (VB)

aplikasi database project vb vb vb6

Dibawah ini merupakan contoh Project vb sederhana dengan koneksi database Microsoft Office Access

Langkah-langkahnya sebagai berikut :

• Buat Database Microsoft Office Access, disini saya menggunakan Microsoft Office Access 2007, yang lain sesuaikan... :D
• Simpan didalam folder dimana project kita akan di simpan (save) dengan format db_barang.mdb..

• klick Create..
• Buat sebuah tabel dengan nama "barang"
• Kemudian desain fieldnya sebagai berikut :

Field Name	Data Type	Field Size	Format
kode_barang	Text	5
nama_barang	Text	25
jenis_barang	Text	15
harga_barang	Currency		Currency (Rp.xxx.xxx)
jumlah	Number	Long Integer

• Kemudian buka Visual Basic 6.0, pilih VB Enterprise Edition Control.

• Kemudian Desain Form seperti dibawah ini :

• Berikut SourceCode nya :

Dim db As Connection
Dim rs As Recordset

Sub koneksi()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_barang.mdb;Persist Security Info=False"
End Sub

Private Sub Command1_Click()
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("kode_barang") = Text1.Text
rs.Fields("nama_barang") = Text2.Text
rs.Fields("jenis_barang") = Combo1.Text
rs.Fields("harga_barang") = Text3.Text
rs.Fields("jumlah") = Text4.Text
rs.Update
MsgBox "Data tersimpan"
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
koneksi
Set rs = New Recordset
rs.Open "barang", db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub

Aplikasi Enskripsi Deskripsi dengan Input Key

Aplikasi Enskripsi Deskripsi dengan Input Key

chipertext enkripsi enkripsi deskripsi vb6 visual basic

Project aplikasi ini merupakan pengembangan dari project sebelumnya. Dengan adanya key masukan,
namun key (kunci) nya masih berupa angka yg ditentukan dan terbatas..

Enkripsi, merupakan proses untuk mengubah plainteks menjadi chiperteks.Planteks sendiri adalah data atau pesan asli yang ingin dikirim, sedangkan Chiperteks adalah data hasil enkripsi.Definisi lain tentang Enkripsi adalah proses mengacak data sehingga tidak dapat dibaca oleh pihak lain.

Berikut cara pembuatan aplikasinya...

• Desain program seperti gambar dibawah... 

• Masukkan angka sesuai keinginan anda di list Combo1 (mis : 1 - 20)
• Isi coding dibawah ini...

Private Sub Command1_Click()

Dim Enkrip, Output, Inputan As String

Dim Panjang_Input As Integer

Inputan = Text1.Text

Panjang_Input = Len(Text1.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = Enkrip + Val(Combo1.Text)  'key + 20 - 30 (bisa gunakan yg lain)

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output = Output & Enkrip

Next i

Text2.Text = Output ' tampilkan enkrip

End Sub

Private Sub Command2_Click()

Dim Dekrip, Output, Inputan As String

Dim Panjang_Input, Pesan As Integer

Inputan = Text3.Text

Panjang_Input = Len(Text3.Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1)

Dekrip = Asc(Dekrip)

Dekrip = Dekrip - Val(Combo1.Text) 'invert key enkripsi

Dekrip = Chr(Dekrip)

Output = Output & Dekrip

Next i

Text4.Text = Output

End Sub

• Selesai..... :D

Semoga cara pembuatan aplikasi sederhana ini bermanfaat dan dapat dikembangkan,, dan terimakasih telah berkunjung.... :)

Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic

Aplikasi Enkripsi-Deskripsi Sederhana Pada Visual Basic

chipertext enkripsi enkripsi deskripsi plaintext aplikasi vb vb6 visual basic

 

Enkripsi, merupakan proses untuk mengubah plainteks menjadi chiperteks.Planteks sendiri adalah data atau pesan asli yang ingin dikirim, sedangkan Chiperteks adalah data hasil enkripsi.Definisi lain tentang Enkripsi adalah proses mengacak data sehingga tidak dapat dibaca oleh pihak lain.

Berikut cara membuat Aplikasi Enkripsi dan Deskripsi data sederhana menggunakan visual basic :

1. Desain Form seperti gambar berikut : 

    2. Masukkan Coding dibawah ini :


Private Sub Command1_Click() 'tombol enkripsi

Dim Enkrip, Output, Inputan As String

Dim Panjang_Input As Integer

Inputan = Text1.Text

Panjang_Input = Len(Text1.Text)

For i = 1 To Panjang_Input

Enkrip = Mid(Inputan, i, 1) 'ambil karakter input

Enkrip = Asc(Enkrip) 'ubah karakter ke ascii

Enkrip = (Enkrip + 20) - 43 'key + 20 - 30 (bisa gunakan yg lain)

Enkrip = Chr(Enkrip) ' ubah kembali ke karakter

Output = Output & Enkrip

Next i

Text2.Text = Output ' tampilkan enkrip

End Sub

Private Sub Command2_Click() 'tombol deskripsi

Dim Dekrip, Output, Inputan As String

Dim Panjang_Input, Pesan As Integer

Inputan = Text3.Text

Panjang_Input = Len(Text3.Text)

For i = 1 To Panjang_Input

Dekrip = Mid(Inputan, i, 1)

Dekrip = Asc(Dekrip)

Dekrip = (Dekrip - 20) + 43 'invert key enkripsi

Dekrip = Chr(Dekrip)

Output = Output & Dekrip

Next i

Text4.Text = Output

End Sub

        3. Selesai..... :)

Semoga bermanfaat, dan terimakasih telah berkunjung....