VB6.0 :: Fungsi Dari Option Explicit

Biasanya option explicit d’letakan di bagian atas coding atau dibagian general. fungsi option explicit untuk memaksa programmer mendeklarasikan semua variabel sebelum variabel tersebut digunakan. dengan option explicit akan sangat membantu programmer dalam mengurangi kesalahan dan mengetahui letak kesalahan atau debug.contoh keuntungan ketika kita menggunakan option explicit :

Private Sub CommandPesan_Click()

Dim PesanKu As String

Pesan = "Hello VB....." '<-- ada kata "Ku" yg kurang pada variabel

MsgBox PesanKu

End Sub

Ketika program di run maka MessageBox tidak akan menampilkan pesan sesuai pada coding tetapi menampilkan MessageBox kosong. Kemudian ketikan Option Expilicit di atas Private Sub CommandPesan_Click(). Setelah itu runing lagi programnya maka akan muncul pesan kesalahan “Variable not defined” yang berarti bahwa variabel tidak atau belum didefinisikan….ini adalah salah satu keuntungan menggunakan option Explicit programmer jadi mengetahui letak kesalahan.mungkin ketika coding belum rumit masih mudah mencari kesalahan namun ketika coding program sudah banyak dan rumit maka keuntungan dari option explicit sangat terasa.

VB6 :: Download Program Hotel Gratis Dengan Visual Basic 6.0

Download program hotel gratis / program reservasi hotel gratis yang dibuat dari visual basic 6.0.

Program ini merupakan tugas kampus dari salah satu Team Pixel Bali yang masih belajar membuat program dengan menggunakan aplikasi Visual Basic 6.0 atau sering dibilang vb 6.0.

Program ini menggunakan coding yang sederhana bagi yang ingin belajar menggunaan aplikasi visual basic 6.0 mungkin akan lebih mudah belajar dari program hotel gratis ini.

Program hotel gratis ini bisa memeriksa ketersedian kamar berdasarkan tanggal yang ditentukan, memiliki halaman admin, fleksible untuk menambahkan tambahan kamar atau fasilitas – fasilitas kamar hotel dan databasenya masih menggunakan access.

Dibawah ini merupakan beberapa screenshot dari program hotel gratis:

Jika teman – teman ingin mengembangkan lebih jauh, jangan sungkan – sungkan silahkan di otak atik sendiri supaya programnya sesuai dengan kebutuhan teman – teman sekalian.

Nah dimana download program hotel gratis visual basic 6.0? Silahkan download program hotel gratisnya disini “Download Disini “.

Semoga download program hotel gratis vb 6.0 ini bermanfaat bagi yang ingin belajar aplikasi visual basic 6.0.

Terima kasih.

VB6.0 :: koneksi vb 6.0 menggunakan ADODB untuk database M.Access dan sql server

Pertama yang harus dipersiapkan yaitu:
1 database dan 1 tabel yang dibuat di M. Access
1 form (1 datagrid)
1 module

Silahkan kalian membuat databasenya dahulu dengan 1 buah tabel. Untuk tutorial ini saya mengunakan database dbbiodata dan tabel tbbiodata

Setelah database dibuat silahkan buka vbnya tambahkan 1 buah form seperti gambar dibawah ini :

 Kemudian tambahkan 1 buah module di project > Add module

 

Klik open

Lanjut … untuk koneksi menggunakan ADODB teman teman harus menambahakan microsoft activex data object

Klik menu project > references > cari microsoft activex data object 2.8 library kemudian centang dan Ok

 

Buka modul dengan mengklik 2x pada bagian sebelah kanan,kemudian tambahkan koding berikut ini

Public con As New ADODB.Connection

 

Public rst As New ADODB.Recordset

 

Public strcon As String

 

Public strsql As String

 

 

Public Sub buka()

 

On Error GoTo pesan

 

strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbbiodata.accdb;Persist Security Info=False"

If con.State = adStateOpen Then

con.Close

Set con = New ADODB.Connection

con.Open strcon

Else

con.Open strcon

End If

Exit Sub

pesan:

MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"

End Sub

Public Sub tutup()

con.Close

End Sub

yang diwarna merah adalah koneksi untuk ke database acces 2007 keatas,jika anda menggunakan access  2003 atau sql server silahkan rubah dibagian itu saja.

 

Provider=Microsoft.Jet.OLEDB.4.0;Data Source==" & App.Path & "\dbbiodata.mdb;Persist Security Info=False

 

 

*database access 2003

 

 

Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dbbiodata

 

* database sqlsever

Kemudian kita tambahkan datagrid untuk menampilkan data biodata pada form

Caranya dengan klik menu project > component atau CTRL + T cari microsoft datagrid control 6.0 (SP6) (OLEDB) > centang lalu ok 

Buat seperti gambar dibawah ini 

 

Klik 2x pada form ketik codingnya sperti ini

Option Explicit

 

 

Private Sub Form_Load()

 

Dim lihat As New Recordset

 

Dim sql As String

 

buka

 

con.CursorLocation = adUseClient

 

Set lihat = New Recordset

sql = "Select * From tbbiodata"

lihat.Open sql, con, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = lihat.DataSource

End Sub

Simpan filenya kemudian tekan f5 untuk menjalankannya

 

Selesai

Untuk source code silahkan klik disini

VB6.0 :: TUTORIAL KONEKSI ADODC DATABASE MS ACCESS DI VB6

setelah Database mahasiswa.mdb di buat simpan dan close database tersebut..
Langkah selanjutnya Buka Editor VB kalian dan buat sebuah form dengan menambahkan 3 Label,3Textbox,4Buah CommandButton,1 Buah DataGrid Dan Tentunya 1 Buah ADODC.. Lihat Gambar Dibawah ini

Sebelum kita masuk Dalam coding buat dahulu suatu module yang berisi coding seperti di bawah ini:

Public Conn As New ADODB.Connection

Public Sub koneksi()

On Error GoTo konekErr

If Conn.State = 1 Then Conn.Close

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\mahasiswa.mdb;Persist Security Info=False"

Exit Sub

konekErr:

    MsgBox "Gagal menghubungkan ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"

End Sub

Coding diatas berfungsi sebagai APP.PATH atau kalu dijabarkan adalah untuk menentukan letak database yang telah kita buat.. karena dari kebanyakan kasus dan dari pengalaman saya juga ketika kita membuat program ini di kampus maupun di komputer lain ketika kita pindahkan ke flashdisk atau dijalankan di komputer yang lain akan muncul pesan erorr mengenai Letak DataBase mahasiswa.mdb yang telah kita buat Tadi karena saat kita Memasukan Database kita secara manual lewat properti lewat ConnectionString bisa saja letak database mahasiswa.mdb yang telah kita buat berada di folder D:\mahasiswa.mdb dan ketika kita pendah ke Flashdisk dan dijalankan lewat flashdisk maka ADODC tidak menemukan leatk database.mdb tersebut Karena mungkin letaknya Berpindah Di G:\mahasiswa.mdb makanya di perlukan Coding tambahan APP.PATH tersebut sehingga ketika kita menjalankan Program tersebut di lain komputer tidak akan terjadi erorr database.. Dan Hal penting yang Harus Di ingat adalah Letakan Database Mahasiswa.mdb tersebut berada pada satu folder dengan project vb yang kita buat tadi..

Oke Selanjutnya setelah itu double click pada form1 project sehingga kita menuju pada form menu editor untuk coding..

silahkan ya langsung Copas kan saja koding dibawah ini.. tapi jika kalian ingin belajar silahkan di ketik manual.. :D

Private Sub Form_Load()

koneksi

Adodc1.ConnectionString = Conn.ConnectionString

Adodc1.RecordSource = "select * from mahasiswa"

Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Command1_Click()

  Adodc1.Recordset.AddNew    'Berfungsi untuk mengosongkan text dan mengisi data untuk disimpan..

  Me.Text1.Text = ""

  Me.Text2.Text = ""

  Me.Text3.Text = ""

End Sub

Private Sub Command2_Click()

'Berfungsi untuk Menghapus Data dengan konfirmasi terlebih dahulu

If MsgBox("Yakin Ingin Menghapu Data..??", vbQuestion + vbOKCancel, "konfirmasi") = vbOK Then

Adodc1.Recordset.Delete

Me.DataGrid1.Refresh

End If

End Sub

Private Sub Command3_Click()

'pencarian nama dengan inputbox

Dim sNPM As String

  sNPM = InputBox("NAMA:")

  

  Adodc1.Recordset.MoveFirst

  Adodc1.Recordset.Find "NAMA='" & sNPM & "'"

End Sub

Private Sub Command4_Click()

'berfungsi untuk menyimpan data  masukan pada textbox 

Adodc1.Recordset.Fields("NPM") = Me.Text1.Text

  Adodc1.Recordset.Fields("NAMA") = Me.Text2.Text

  Adodc1.Recordset.Fields("ALAMAT") = Me.Text3.Text

  MsgBox "Data Berhasil Disimpan..!!", vbOKOnly + vbInformation, "Konfirmasi"

  Me.DataGrid1.Refresh

End Sub

Nah Koding Diatas berfungsi Untuk MENAMPILKAN DATA ADODC PADA DATAGRID dan CodingTAMBAH,HAPUS,SIMPAN,CARI PADA ADODC..

Setelah Coding diatas sudah anda ketikan semua jalankan program anda dengan menekan F5.

Coding diatas Dibuat otomatis untuk mengkoneksikan database adodc kita ke database access secara otomatis.. jadi kita tidak perlu lagi menset ConnectionString dan memilih database pada properti vb karena semuanya sudah diset di module yang telah kita buat diatas..
Bagi yang ingin lebih lanjut silahkan Download project contoh saya di Sini DOWNLOAD

VB6.0 :: Koneksi Database Access Menggunakan ADODB Dengan VB6

Pada tulisan kali ini saya ingin share sedikit pengetahuan tentang cara mengkoneksikan database access dengan menggunakan ADODB pada bahasa pemrograman Visual Basic 6. Semoga yang ingin belajar dapat mengikuti langkah-langkah yang saya berikan.

Adapun langkahnya adalah sebagai berikut :

1. Buat satu database dan tabel pada access. Untuk tulisan kali ini saya menggunakan access 2007. Adapun caranya adalah sebagai berikut : 

Buka aplikasi access yang tersedia, kemudian klik New Blank Database seperti pada gambar dibawah ini.

Ubah file dari database yang akan dibuat seperti pada gambar dibawah kemudian klik browse untuk menyimpan kedalam folder penyimpanan file project dan database nanti. Pada tulisan ini saya masukkan pada folder dengan nama Catatan VB6.

Ubah save as type menjadi Microsoft Access Databases (2000-2003 format)-Kemudian tekan tombol OK - Kemudian tekan tombol create

Buat struktur field dengan menekan icon View dan pilih design view. Seperti pada gambar dibawah ini dan kemudian simpan tabel dengan nama pegawai.

Berikut struktur tabel yang harus dibuat :

Kemudian isi data pada tabel yang telah dibuat.

2. Setelah tabel dibuat, maka database pada program telah siap. Setelah itu jalankan Microsoft Visual Basic 6.0. Pilih Standard EXE-Tekan tombol Open.

3. Simpan project dengan nama koneksi dan form dengan frkoneksi. Kemudian tambahkan komponen datagrid pada form untuk menampilkan data dari tabel access yang telah dibuat sebelumnya. Dengan cara klik menu project pilih component.

4. Cari file .ocx dengan nama Microsoft DataGrid Control 6.0 (OLEDB). Kemudian tekan tombol OK. Dan akan muncul component datagrid pada toolbox.

5. Masukkan komponen datagrid pada form dengan cara klik icon toolbox datagrid dan geser ke arah form. Dan atur lebar datagrid seperti pada gambar berikut dan desain form seperti pada gambar.

6. Langkah berikutnya adalah mensetting koneksi ADODB agar bisa dimasukkan ke dalam file module. Adapun caranya adalah dengan mengklik menu project-references.

7. Cari file library dengan nama Microsoft ActiveX Data Object 2.6 Library dan kemudian centang dan tekan tombol OK.

8. Langkah berikutnya adalah memasukkan kode koneksi database melalui file module. Cara memasukkan file module adalah dengan mengklik menu project-add module-Open.

9. Masukkan code program untuk koneksi database dan tabel  pada file module yang telah dibuat dan setelah selesai simpan file module tersebut. Adapun kode program yang dimasukkan adalah sebagai berikut :

*) Untuk bagian yang diarsir, kode program disambung.

10. Masukkan kode program untuk koneksi ke database pada form dengan kode program sebagai berikut : 

11. Kemudian jalankan form yang telah dituliskan kode program dengan menekan tombol F5 atau icon Start. Dan berikut hasil kode program untuk koneksi ke database.

Demikian cara koneksi database Access menggunakan ADODB dengan VB6, dan jika ada pertanyaan mengenai pembahasan pada tulisan ini silahkan untuk berkomentar. Semoga pembaca dapat memahami apa yang saya tulis.

VB.6.0 :: vbCara Menghubungkan Database Mysql dengan VB 6.0

Selamat pagi sahabat Blogertas. gmna kabar kalian ? Tentunya sehat semua kan. klo gak sehat ya gak bakalan berkunjung kesini benar gak..?? masih setia bersama susantosatu.blogspot.com, tentunya juga masih kan.

Ok langsung saja tidak perlu panjang lebar, karna kebanyakan cewek gak suka sama yang terlalu panjang dan yang cowk juga gak suka sama yang terlalu lebar hehe. cuma sekedar hiburan saja lho...
Fikiranya gak boleh kemana-mana hehe.

Pada kesempatan ini akan saya akan memberikan sedikit wacana tentang bagaimana cara dalam koneksi data base pada Visual Basic 6.0 apabila menggunakan data base mysql. Sebelum kita melangkah ke cara dalam koneksi data base mysql pada VB.6.0 alangkah baiknya jika kalian mengetahui tentang database yang digunakan. Database yang saya gunakan adalah sql server 2000 jadi klo ada perbedaan cara koneksinya bila menggunakan database sql yang terbaru mohon dikonfirmasikan kesaya di karena saya belum pernah  mencoba database yang baru, maklum masih malas mencobanya. 

Berikut ini merupakan code-nya yang bisa diletakkan pada modul :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan record sementara
Public strcon As String ' variabel yg digunakan untuk code koneksi
Public strsql As String ' variabel yg digunakan untuk menampung code atau query sql
Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=test"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
End Sub

Sama seperti koneksi pada ms. access pada umumnya, inti dari koneksi ini ialah terletak pada variabel strcon
"strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=dbsusanto""

Nah Pada bagian akhir dari code tersebut yaitu "Initial Catalog=dbsusanto", test merupakan nama dari database yang telah dibuat sebelumya pada sql server sementara pada code ini saya memberikan contoh nama databasenya yaitu"dbsusanto". Sehingga anda  perlu mensesuaikan dengan nama database yang anda gunakan pada saat ini, atau anda coba membuat databe yang sama seperti yang saya gunakan agar anda dapat dengan mudah memahaminya.

Sebelum anda mencoba untuk mengkoneksikanya, anda perlu pastikan terlebih dahulu bahwa Servis Manager dari sql server sudah berada dalam kondisi Running (jika belum mohon untuk di running terlebih dahulu).

Seperti itulah coding dalam pengkoneksian database mysql pada pemrograman destop Visual Basic 6.0.
Semoga artikel Cara koneksi database mysql pada vb.6.0 dapat bermanfaat bagi anda dan saya.