Struktur SQL dalam VB

SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :

Untuk Koneksi diproperties :
Data1 = databasename
DBGrid1 = data1

Listing Program :
Private Sub CmdProses_Click()
Dim x As String
On Error GoTo Salah
Data1.RecordSource = Text1
Data1.Refresh
If Data1.Recordset.EOF Then
x = MsgBox(“Data Tidak Ketemu”, 0, “Informasi”)
Data1.Refresh
Text1.SetFocus
End If
On Error GoTo 0
Exit Sub
Salah:
x = MsgBox(“Sintak SQL Error”, 0, “Info Dari Admin”)
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub CmdUlang_Click()
Text1.Text = “”
Text1.SetFocus
End Sub

Private Sub Form_Activate()
Text1.Text = “”
Text1.SetFocus
CmdProses.Default = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Catatan :
cmdproses.default=true —-> maksudnya adalah setelah menuliskan perintah SQL kemudian kita enter pada text1 maka proses cmdproses pun akan dijalankan. Coba kamu praktekkan listing berikut kedalam text1 :
1. select * from barang in ‘c:\labsore\pembelian.mdb’ —> alamat penyimpanan
2. select * from barang
3. select kobar from barang
4. select kobar,nabar form barang
5. select * from supplier order by nasup
6. select kosup from supplier where kosup=”SP001″Selamat Memodifikasi…

Pert.Database(Form Supplier)

Buat Tampilan Sebagai berikut :
Tampilan Data Supplier :

Tampilan Browse Data Supplier :

Listing Program :
Sebelumnya Anda buat terlebih dahulu procedure aktif, nonaktif, bersih, dan tampil.

Dim x As Control
Private Sub tampil()
With Datasup.Recordset
If .RecordCount 0 Then
txtKoSup.Text = !kosup —> Field harus sesuai dengan field yang ada di tabel supplier
txtNaSup.Text = !nasup
txtAlamat.Text = !alamat
txtTelp.Text = !telpsup
txtCP.Text = !cpsup
End If
End With
End Sub

Private Sub bersih()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
x.BackColor = &H80000005
End If
Next
txtKoSup.SetFocus
End Sub

Private Sub nonaktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = False
x.BackColor = &H8000000F
End If
Next
txtCari.Enabled = True
End Sub

Private Sub aktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = True
x.BackColor = &H80000005
End If
Next
End Sub

Private Sub cmdCari_Click()
Datasup.Recordset.FindFirst “nasup= ‘ ” & Trim(txtCari.Text) & ” ‘ “
If Not Datasup.Recordset.NoMatch Then —-> Jika Datanya Ada
tampil
Else
MsgBox “Data TIDAK ADA”, vbOKOnly, “Informasi”
txtCari.Text = “”
txtCari.SetFocus
End If
End Sub

Private Sub cmdEdit_Click()
Datasup.Recordset.Edit
aktif
End Sub

Private Sub cmdHapus_Click()
P = MsgBox(“Yakin Mau Di Hapus ?”, vbYesNo + vbQuestion, “Hapus Record”)
If P = vbYes Then
Datasup.Recordset.Delete
Datasup.Recordset.MoveFirst
End If
End Sub

Private Sub cmdKeluar_Click()
K = MsgBox(“Anda Ingin Keluar ?”, vbYesNo + vbInformation, “Konfirmasi”)
If K = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdSimpan_Click()
With Datasup.Recordset
.AddNew
!kosup = txtKoSup.Text
!nasup = txtNaSup.Text
!alamat = txtAlamat.Text
!telpsup = txtTelp.Text
!cpsup = txtCP.Text
.Update
End With
Datasup.Refresh
nonaktif
End Sub

Private Sub cmdTambah_Click()
Datasup.Recordset.AddNew
txtKoSup.MaxLength = 6 —-> Membatasi Penginputan sebanyak 6
aktif
bersih
End SubPrivate Sub Form_Activate()
txtCari.Enabled = True
txtCari.BackColor = &H80000005
tampil

End SubPrivate Sub Form_Load()
nonaktif
End Sub

Selamat Mencoba

Pert.11 (Visual Basic)

Jangan lupa untuk koneksi database kita menggunakan database yang pertamakali kita buat, yaitu database pembelian.

Tampilan Disain :

Tampilan Setelah dijalankan :

Listing Program :
Jangan Lupa terlebih dahulu kamu buat prosedure aktif, nonaktif, bersih

Dim x As Control

Private Sub Cmdnew_Click()
Data1.Recordset.AddNew
Text1.MaxLength = 5 ——–> Menentukan panjang kode adalah 5
bersih
aktif
Text1.SetFocus
End Sub

Private Sub nonaktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = False
End If
Next
End Sub

Private Sub aktif()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Enabled = True
End If
Next
End Sub

Private Sub bersih()
For Each x In Me
If TypeName(x) = “TextBox” Then
x.Text = “”
End If
Next
End Sub

Private Sub Cmdcari_Click()
Dim mkode As String * 5
mkode = InputBox(“Masukan Kode Barang”, “Pencarian Data Barang”)
msyarat = “Kode = ‘” & mkode ‘”
Data1.Recordset.Index = “barangdex” –> pastikan data1 (properties) recordsettype 0-Table
Data1.Recordset.Seek “=”, mkode
If Data1.Recordset.NoMatch Then
MsgBox “Data Belum Ada”, vbOKOnly, “Informasi”
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub Cmdsave_Click()
Data1.Recordset.Update
nonaktif
End Sub

Private Sub Cmdedit_Click()
Data1.Recordset.Edit
aktif
Data1.Recordset.Update
End Sub

Private Sub Cmddelete_Click()
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Cmdprevious_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
MsgBox “Data sudah diawal record”, vbOKOnly, “info”
Data1.Recordset.Movefirst
End If
End Sub

Private Sub Cmdlast_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Cmdtop_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Cmdnext_Click()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
MsgBox “Data sudah diakhir record”, vbOKOnly, “info”
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Form_Load()
nonaktif
End Sub

Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub

Coba dikembangkan lagiiiii……..