Membuat Menu Search Seperti Facebook

Facebook.com adalah sebuah situs jejaring sosial yang keberadaannya sarat dengan kemajuan teknologi web based, diantaranya chat online, update status tanpa refresh page, dll dech….

Salah satunya ialah fasilitas searching yang ketika dilakukan input data maka akan muncul data seperti halnya combobox yang lebih jelasnya terlihat pada gambar berikut:

Untuk membuatnya, cukup menggunakan fasilitas autocomplete yang disediakan oleh JQUERYUI dengan sedikit sentuhan agar dapat terhubung dengan database. JQUERYUI dapat diunduh pada www.jqueryui.com

Code default:

Modif:

Selamat mencoba

August 23, 2010 | Filed Under Komunitas Blogger, Komunitas Programmer, Komunitas Web | 12 Comments

Teknik Bertingkat Membuat Combo Box

Teknik bertingkat membuat combo box dimaksud adalah bagaimana kita membuat sebuah combo box yang datanya dipengaruhi oleh pilihan dari combo box sebelumnya.

Ilustrasinya sebagai berikut:
Combo box pertama: Berisikan data nama-nama provinsi
Combo box kedua: Berisikan data nama-nama kota, dimana data kota ini tergantung dari pilihan data propinsi pada combo box pertama.

Adapun langkah-langkahnya sebagai berikut:

1. Buat index.php sebagai berikut:

2. Tambahkan Script JS ini dan letakkan di atas </body>

3. Kemudian perhatikan pada code: document.getElementById(“divkedua”).innerHTML = xmlhttp.responseText;, nah itu adalah lokasi tempat penyimpanan hasil eksekusi pada combo box pertama tadi yaitu di dalam tag dengan id=divkedua.

nah di bawah </select> tambahkan <div id=”divkedua”></div>

4. Kemudian perhatikan pada code: xmlhttp.open(‘get’, ‘ambildata.php?kode=’+kode, true);, nah itu adalah sebuah file ambildata.php yang isi dari file tersebut adalah combo box kedua yang nilai datanya dipengaruhi oleh nilai dari combo box pertama dengan menggunakan perintah ?kode=nilai_combo_box_pertama

5. Kemudian buat file ambildata.php sebagai berikut:

6. Selesai

Demikian langkah-langkah pembuatan combo box bertingkat, pada contoh ini kita hanya menerapkan dua combo box. Untuk membuat lebih dari dua, kuncinya pada:

function rubah(combobox)
id=divkedua
ambildata.php

Anda bisa menggunakan database untuk mengambil nilai data dari combo box tersebut, Selamat mempelajari…

April 12, 2010 | Filed Under Komunitas Programmer, Komunitas Web | 24 Comments

[VB 6] Cara Membuat MySQLConnectionKami.dll yang sederhana

Bagi banyak programmer VB 6 yang sudah mahir, mungkin membuat DLL koneksi database sudah hal yang lumrah dan biasa saja. Namun apakah hal itu juga berlaku pada pemula VB 6 ? hemmm tentu jawabannya relatif juga, ada yang bisa dan ada yang tidak, nah… bagi yang sudah bisa jangan menghina kesederhanaan coding DLL ini oke hehehehe, karena tujuan penulis membuat tulisan ini untuk membantu para pemula yang kesulitan dalam membuat koneksi database menggunakan DLL.

Oke, dari pada penulis berkata panjang lebar, lebih baik penulis langsung saja membahas bagaimana membuat MySQLConnectionKami.dll dengan VB 6

Langkah pertama kita buat dll-nya terlebih dahulu

1. Buka VB6

2. Buat Project DLL baru (File – ActiveX DLL – OK)

3. Beri nama Class1 dengan nama clsMySQLConnection

4. Ketik listing program berikut pada clsMySQLConnection

Option Explicit

Private strServer As String
Private strDatabase As String
Private strUID As String
Private strPWD As String
Private strPort As String
Private cnOpen As Boolean
Private cn As ADODB.Connection
Private DGError
Private cnString As String

‘open connection
Public Sub Open_Cn(ByVal nstrServer As String, ByVal nstrDatabase As String, ByVal nstrUID As String, ByVal nstrPWD As String, ByVal nstrPort As String)

On Error GoTo errhandler

strServer = nstrServer
strDatabase = nstrDatabase
strUID = nstrUID
strPWD = nstrPWD
strPort = nstrPort

Set cn = New ADODB.Connection

cn.CursorLocation = adUseClient
cnString = “Driver=MySQL ODBC 3.51 Driver;Server=” & strServer & “;UID=” & strUID & “;PWD=” & strPWD & “;Database=” & strDatabase & “;port=” & strPort

cn.Open cnString
cnOpen = True

Exit Sub

errhandler:

Call MsgBox(“Connection Error.”, vbOKOnly, “Error”)
strServer = “”

cnOpen = False

End Sub

‘re open connection
Public Sub Re_Open_Cn()

Call Close_Cn
Call Open_Cn(strServer, strDatabase, strUID, strPWD, strPort)

End Sub

‘close connection
Public Sub Close_Cn()

If cnOpen = True Then

cn.Close
Set cn = Nothing

cnOpen = False

End If

End Sub

‘ambil nama server
Public Property Get myStrServer() As String

myStrServer = strServer

End Property

‘memberi nama server
Public Property Let myStrServer(ByVal nstrServer As String)

strServer = nstrServer

End Property

‘ambil nama database
Public Property Get myStrDatabase() As String

myStrDatabase = strDatabase

End Property

‘memberi nama database
Public Property Let myStrDatabase(ByVal nstrDatabase As String)

strDatabase = nstrDatabase

End Property

‘ambil nama user
Public Property Get myStrUID() As String

myStrUID = strUID

End Property

‘memberi nama user
Public Property Let myStrUID(ByVal nstrUID As String)

strUID = nstrUID

End Property

‘memberi password
Public Property Let myStrWD(ByVal nstrPWD As String)

strPWD = nstrPWD

End Property

‘ambil port
Public Property Get myStrPort() As String

myStrPort = strPort

End Property

‘memberi port
Public Property Let myStrPort(ByVal nstrPort As String)

strPort = nstrPort

End Property

‘ambil connection
Public Property Get myStrConnection() As ADODB.Connection

Set myStrConnection = cn

End Property

5. Save Project dengan nama MySQLConnectionKami di foleder (Project MySQLConnection)

6. Make MySQLConnectionKami.dll dan simpan di folder (Project MySQLConnection\DLL)

7. Buat Form pemanggil, dengan mebuka VB 6 (File – New Project – VB Enterprise Edition Controls – OK)

8. Beri nama Form dengan frm_CobaMySQLConnection

9. Tambahkan 1 buah Listview dan Button

10. Beri nama Listview1 dengan lvAmbilData

11. Beri nama Button1 dengan nama cmd_AmbilData

12. Rekomendasikan MySQLConnectionKami.dll (Project – Reference – Browse File MySQLConnection.dll – OK)

13. Pada lvAmbilData rubah view-nya pada Properties dengan 3-lvwReport

14. Ketik listing program berikut ini pada Form frm_CobaMySQLConnection

Private ambilConnection As MySQLConnectionKami.clsMySQLConnection
Private rs As ADODB.Recordset

Private Sub cmd_AmbilData_Click()

On Error Resume Next

Dim i As Double
Dim j As Double
Dim k As Double

Set rs = New ADODB.Recordset
Set ambilConnection = New MySQLConnectionKami.clsMySQLConnection

ambilConnection.Open_cn “localhost”, “MySQL”, “root”, “badboyfuck”, “8080″
rs.Open “SELECT * FROM help_category h;”, ambilConnection.myStrConnection, adOpenDynamic

jmlhRecord = rs.RecordCount

If jmlhRecord > 0 Then

For i = 0 To rs.Fields.Count – 1

lvAmbilData.ColumnHeaders.Add , , rs.Fields(i).Name, 2000

Next i

For k = 0 To rs.RecordCount – 1

If IsNull(rs.Fields(0).Value) Then _
lvAmbilData.ListItems.Add , , “” Else lvAmbilData.ListItems.Add , , rs.Fields(0).Value

For j = 1 To rs.Fields.Count – 1

If IsNull(rs.Fields(1).Value) Then _
lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , “” Else lvAmbilData.ListItems.Item(k + 1).ListSubItems.Add , , rs.Fields(j).Value

Next j

rs.MoveNext

Next k

End If

rs.Close
ambilConnection.Close_cn
Set rs = Nothing

End Sub

15. Jalankan program, semoga berhasil dan bermanfaat.

July 13, 2008 | Filed Under Komunitas Programmer | 6 Comments