1. buatlah database dengan nama DB1.MDB
2. buatlah tabel dengan nama table1
3. buatlah field dengan nama TGLMulai
4. buka VB
5. buatlah form seperti gambar di bawah ini
6. tulislah coding berikut ini
Dim Conn As New ADODB.Connection ‘definisikan koneksi ke database
Dim RS As New ADODB.Recordset ‘ definisikan tabel
Sub Koneksi() ‘membuat koneksi
Set Conn = New ADODB.Connection ‘membuat koneksi ke database
Set RS = New ADODB.Recordset ‘membuat koneksi ke tabel
Conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path
& "\db1.mdb" ‘----- buka koneksi database
End Sub
Private Sub Form_Load()
Text1.Enabled = False
Text1 = Date + 4 ‘isi text1 adalah tanggal hari ini + 4 hari kedepan
Call Koneksi ‘panggil koneksi ke database
RS.Open "select * from table1", Conn ‘ buka tabel barang
If RS.EOF Then ‘ jika belum ada data maka
Dim simpan As String
‘ simpan tanggal sekarang ke dalam tabel
simpan = "insert into table1 (TglMulai) values ('" & Date & "')"
Conn.Execute simpan
Else
If RS!tglmulai + CDate(5) = Text1 Then ‘jika tanggal dalam tabel
+ 5 hari sama dengan isi text1 maka…
‘munculkan pesan bahwa aplikasi sudah expire
MsgBox "aplikasi anda sudah expire,silakan lakukan
registrasi"
End
End If
End If
End Sub
Sebagai sarana percobaan silakan ganti baris coding yang diberi bold dan italic,
Dan…….
Silakan lakukan modifikasi oleh anda sendiri…
Selamat mencoba!!!!!!
