{ Berbagi, Menulis, Dan Mengajar } Ilmu… » 7. Operating System » SCRIPT TAMPILKAN DATA BUKU SDM
SCRIPT TAMPILKAN DATA BUKU SDM
Set Rs_PegawaiBesar = New ADODB.Recordset
Rs_PegawaiBesar.Open “SELECT Pegawai.NIP, ” _
& ” Pegawai.Nm_Pegawai ” _
& ” FROM Pegawai,DataBesarPegawai ” _
& ” WHERE Pegawai.NIP=DataBesarPegawai.NIP ” _
& ” ORDER BY DataBesarPegawai.NIP”, _
DBKoneksi, adOpenDynamic, adLockBatchOptimistic
With Rs_PegawaiBesar
If .BOF Then
MsgBox “Informasi SDM Pegawai Masih Kosong ! “, _
vbInformation + vbOKOnly, “Informasi”
Exit Sub
Else
i = 1
ListDataTersimpan.ListItems.Clear
While Not .EOF
Set View = ListDataTersimpan.ListItems.Add
View.Text = i
View.SubItems(1) = !NIP
View.SubItems(2) = !Nm_Pegawai
i = i + 1
.MoveNext
Wend
End If
End With
Filed under: 7. Operating System