Tugas X RPL (Membuat Kamus Sederhana)

Buat Project Baru kemudian desain form kalian seperti gambar berikut :

 

Masuk ke view code, kemudian masukkan kode program di bawah ini:

Private Sub cmdTerjemahkan_Click()
Me.Adodc1.Recordset.MoveFirst
Me.Adodc1.Recordset.Find "indonesia= '" & Me.txtIndonesia.Text & "'"
If Not Me.Adodc1.Recordset.EOF Then
    Me.txtInggris.Text = Me.Adodc1.Recordset.Fields(2)
Else
   MsgBox "Kata tidak ditemukan", vbInformation, "Info"
   Me.txtIndonesia.Text = ""
   Me.txtInggris.Text = ""
   Me.txtIndonesia.SetFocus
End If

End Sub

Private Sub Form_Load()
    Me.Adodc1.Refresh
End Sub

Catatan: Pastikan kalian sudah membuat database kamus dan tabel kamus. Tambahkan form untuk menambah kata baru 

Selamat Mengerjakan