Kamis, 29 Mei 2014

Struktur Kontrol

Dengan menggunakan statemen kondisional dan statemen looping (juga disebut struktur kontrol), anda dapat menulis kode Visual Basic yang membuat pilihan dan aksi pengulangan. Struktur kontrol lain yang berguna, statemen With, menjadikan anda dapat me-run serangkaian statemen tanpa harus mengulang penulisan object.

Menggunakan Statemen Kondisional untuk Membuat Keputusan
Statemen kondisional mengevaluasi apakah sebuah kondisi bernilai True atauFalse, dan kemudian menjalankan satu atau lebih statemen berdasarkan hasil pemeriksaaan kondisi. Biasanya, kondisi berupa ekspresi yang menggunakan operator pembanding untuk membandingkan satu nilai atau variabel dengan nilai atau variabel lainnya.
Memilih Statemen Kondisional untuk Digunakan
Menggunakan Loop untuk Mengulang Kode
Looping (pengulangan) memungkinkan anda untuk menjalankan satu group statemen secara berulang. Beberapa pengulangan (loop) mengulang statemen hingga kondisiFalse; sebaliknya mengulang statemen hingga kondisi True. Ada juga loop yang mengulang statemen sebanyak jumlah tertentu atau pada setiap object di dalam collection.
Memilih Loop untuk Digunakan

Perbedaan Procedure & Function


ProcedureFunction
DefinisiSebuah kumpulan perintah (Statement) yang tidak mengembalikan nilai balik terhadap pemanggilnyaSebuah kumpulan Statement yang akan mengembalikan sebuah nilai balik pada pemanggilnya. Nilai yang dihasilkan Function harus ditampung kedalam sebuah variabel.
ParameterBisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).Bisa menggunakan parameter dan bisa juga tidak menggunakan parameter (Optional).
DeklarasiMenggunakan keyword “Sub”.Menggunakan keyword “Function”,
untuk mengembalikan nilai hasil dari Statement menggunakan keyword “return” atau menggunakan nama dari function tersebut.
Contoh Sintak di VB.Net
Sintak Procedure

Menampilkan data yang ada di database kedalam Grid VB6

Hari ini saya akan berbagi cara bagaimana caranya untuk menampilkan data yang ada pada database melalui DataGrid yang ada pada VB6.
Saya mempunyai tabel seperti ini, Ini database menggunakan MS. Access 2007 :
Struktur Tabel - Contoh
Oke, Langsung saja, Mari kita buat Projectnya :). Pertama – tama … Buat Project baru, g’ perlu di desain lah…wong kita cuma ingin menampilkan data saja kok repot.
  • Buat Module baru, beri nama dengan modul “koneksi”.
  • ketikkan atau Copas kode berikut ini :
1
2
3
4
5
6
7
8
9
10
Public conn As New ADODB.Connection
Public rstampan As New ADODB.Recordset
Public Sub bukadb()
Set conn = New ADODB.Connection
Set rsbarang = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBbelajar.mdb"
End Sub
Ingat : Koding diatas hanya berlaku apabila anda menggunakan database MS.ACCESS..Untuk database yang lain, Musti ganti lagi kodingnya

Koding Login VB6 [Multi User]

Tutorial ini adalah sambungan dari tutorial-tutorial sebelumnya. yaitu, kali ini saya akan menambahkan sebuah Form Login di Program dasar yang telah saya berikan :).

Langsung saja, buka program dasarnya. tambahkan sebuah form lagi dengan desain Seperti ini.
Contoh Desain Form Login
Jangan Terpaku dengan desain yang saya buat ya, buat saja sesuka anda. yang penting ada 2 buahTextbox dan dua buah Command Button. dan berinama login.
Jika telah selesai membuat yang diatas. Kita buat tabel User di Database yang ada. buka kembali databasenya.
tambahkan.

Filter Datagrid menggunakan Textbox di VB6


Bahan yang akan saya contohkan disini masih menggunakan Program dasar yang sebelumnya telah saya berikan. jadi, langsung buka saja program dasarnya, Add form…dan desain seperti ini.
Desai Form
Langkah ke dua…buka halaman kode… masukkan kode / Copas kode dibawah ini :
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Call BukaDB
RSBarang.CursorLocation = adUseClient
RSBarang.Open " Select * from barang", Conn, 3, 1
With DataGrid1
 Set .DataSource = RSBarang
 .Refresh
End With
End Sub
Penjelasan singkat Script di atas…”Saat form di load…program akan me-load data-data yang ada di database ke Datagrid” …. yap…kira-kira begitu.