Translate


EnglishFrenchGermanySpainItalianNetherlandsRussian
PortugueseJapaneseKoreanArabicChinese SimplifiedCroatianDanish

Belajar VB 6.0 Headline Animator

25 Desember 2010

AplikasiPenguji Query SQL

Untuk mempermudah mempelajari dan memahami pernyataan atau query SQL salah satunya adalah dengan membuat sebuah aplikasi yang dapat menampilkan hasil dari eksekusi dari sebuah query SQL.

Aplikasi yang perlu dibuat tidaklah rumit kita hanya membutuhkan beberapa komponen yang sudah tersedia, yaitu : MS Data Bound Grid, Kontrol Data, Sebuah Textbox dan sebuah CommandButton. Untuk desain aplikasinya bisa dilihat disini.
Untuk database yang digunakan kita bisa menggunakan sampel database BIBLIO.mdb yang biasanya disiapkan pada

Private Sub Command1_Click()

On Error GoTo SQLErr:

Data1.RecordSource = Text1.Text

Data1.Refresh

If Data1.RecordSource <> "" Then
If (Data1.Recordset.RecordCount > 0) Then

With Data1.Recordset
.MoveLast

.MoveFirst

End With

End If
Else

MsgBox "Anda belum memasukkan query sql", vbInformation + vbOKOnly, "Blank Query"

End If

Exit
Sub
SQLErr:
Dim sErr As String

sErr = "Error Number: " & Err.Number & vbCrLf

sErr = sErr & Err.Description

MsgBox (sErr)

Exit Sub

End Sub


Private Sub Form_Load()
Data1.DatabaseName = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"

End Sub

Berikut penjelasan singkatnya :

Pada saat form di load maka kita akan mengatur properti databasename dari kontrol Data1 yang bisa kita ubah sesuai dengan database yang kita inginkan. Bila database yang kita gunakan berada satu folder dengan aplikasi yang kita simpan maka kita bisa menggunakan code sbb:

Data1.Databasename = App.Path & "\Nama Database.mdb"

Untuk penanganan kesalahan atau error maka kita memakai On Error GoTo SQLErr dimana apabila terjadi kesalahan maka program akan mengeksekusi SQLErr yang akan menampilkan nomor urut kesalahan dan deskripsi kesalahan dalam bentuk messagebox.

Sedangkan untuk menampilkan hasil eksekusi query sql yang sudah disiapkan pada textbox hanya dibutuhkan dua baris code yakni :

Data1.RecordSource = Text1.Text
Data1.Refresh

Dimana query pada textbox1 akan dimasukkan pada properti RecordSource dari kontrol Data1 yang kemudian data akan di-refresh dan ditampilkan ke kontrol DBGrid.

Sedangkan code dibawahnya digunakan untuk mengantisipasi program dari crash saja.

Untuk mendapatkan code secara lengkap bisa diambil disini.

Untuk mencoba program ini terlebih dahulu kita cari tahu tabel dan field apa saja yang ada pada database BIBLIO.mdb diantaranya terdapat tabel Authors, Publishers, Title Author, dan Titles. Sebagai percobaan pertama silahkan ketikkan query berikut pada textbox "Select * from Authors" dan lihat hasilnya. Kita juga bisa mencoba beberapa query SQL yang lain untuk mempelajarinya.

Semoga Berguna.................

3 komentar:

Hartoto mengatakan...

niche sharing semoga bisa membantu untuk pemula..
any way database nya gk bisa dibuka mas....

body slim herbal mengatakan...

Makasih gan, mao coba ya...Fany

Maya Herlina mengatakan...

Klo mw nampilin hasil query di textbox sih gimana???
Contohnya saya mw menampilkan sisa saldo terakhir di textbox sisa saldo, yang jumlahnya sudah ada d tabel query yang saya buat, itu seperti apa ya tolong bantua

 
>