Saturday, 12 January 2013

Cara Cek Peminjaman buku Yang belum di kembalikan Visual basic(vb6)

kasus nya begini siswa hanya bisa pinjam satu buku , dan jika siswa masih belum mengembalikan buku , maka siswa tidak boleh meminjam buku , dan di sebelum input peminjaman ada pengecekan peminjaman buku siswa .



Dim rbuk As Recordset
Dim sSQL As String
Dim ssql2 As String
Dim terang As String
Dim rspinjam As Recordset
Dim ab As String
ab = "sudah di kembalikan"
Set rspinjam = New ADODB.Recordset
rspinjam.Open "SELECT * FROM pinjam WHERE nis='" & Trim(Me.txtcek.Text) & "'", conndb
If Not rspinjam.EOF Then
    If rspinjam!statusbuku = "sudah di kembalikan" Then
        MsgBox "Siswa dapat meminjam buku", vbInformation, "Info"
    Else
        MsgBox "Maaf, Siswa dilarang Meminjam buku !!", vbCritical, "Info"
    End If
Else
    MsgBox "Data Siswa Tidak Ditemukan", vbInformation, "Info"
End If

Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

2 comments:

  1. aku suka dgn makalah ini byk ilmunya terutama bagi parapemula
    smg bagi pembaca yg lain juga sgt manfaat trims

    ReplyDelete
  2. terima kasih banyak gan saya sudah cri kemana2 script ini semoga sukses

    ReplyDelete

 

Network

Pesan

Semoga situs ini bermanfaat