DataBase Microsoft Visual Basic 6.0

1. Rumus DataBase Pada Text 1

Tulis rumus sedetail mungkin.

contoh penulisan :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Data1.Recordset.Index = "No"

Data1.Recordset.Seek "=", Text1.Text

If Not Data1.Recordset.NoMatch Then

MsgBox ("DATA SUDAH ADA DALAM FOLDER")

Bersih

Else

Text2.SetFocus

End If

End If

End Sub

Fungsi rumus ini adalah untuk letak filed Index atau primary key yang telah anda buat pada VisData.

Jika anda tidak berkehendak filed Index anda berada ditext1 anda bebas memindahkan rumus ini.

msgBox diatas berfungsi untuk memberitahukan bahwa index/primary key dengan character tersebut sudah ada dalam form anda.

Setfocus digunakan untuk meletakan kursor selanjutnya.


2. Rumus DataBase Pada Text 5

Rumus ini berfungsi untuk perkalian aritmatik. Sekarang ini rumus ini berfungsi untuk mengkalikan antara Biaya Sewa dengan Lama Sewa pada form anda.

contoh penulisan rumus pada Text5

Private Sub Text5_Change()

Text6.Text = Val(Text4.Text) * Val(Text5.Text)

End Sub