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 .

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

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……………..

About jumailischaniago

Visi tanpa eksekusi adalah lamunan. Eksekusi tanpa visi adalah mimpi buruk

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: