{ Berbagi, Menulis, Dan Mengajar } Ilmu…

CatatanBankBNI … Read entire article »

Fungsi-fungsi VB di bawah ini digunakan untuk mengolah data string. Left : mengambil n karakter di sebelah kiri suatu string karakter = Left(“abcdef”,2) ‘karakter = “ab” Right : mengambil n karakter di sebelah kanan suatu string karakter = Right(“abcdef”,2) ‘karakter = “ef” Trim : menghilangkan spasi kosong di awal dan akhir suatu string karakter = Trim(“ abc def ”) ‘karakter = “abc def” Ltrim : menghilangkan spasi kosong di awal suatu string MyStr = Ltrim(AnyString) Rtrim : menghilangkan spasi kosong di akhir suatu string MyStr = Rtrim(AnyString) Ucase : mengubah suatu string menjadi huruf besar semua MyStr = UCase(AnyString) Lcase : mengubah suatu string menjadi huruf kecil semua MyStr = LCase(AnyString) Mid : mengambil n karakter dari suatu posisi yang ditetapkan MyStr = Mid(“abcdefghij”, 3, 4) ‘hasil “cdef” Len : menghitung jumlah karakter yang membentuk suatu string MyStr = Len(“abcdef”) ‘hasil=6 LSet : menempatkan string di dalam … Read entire article »

\\192.168.1.1\dms\THESIS\TUTORIAL … Read entire article »

031 – 8540406 … Read entire article »

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 … Read entire article »

… Read entire article »

update `dbpenggajian`.`pangkat` set `Kd_Pangkat`=” where `Kd_Pangkat`=’001′ … Read entire article »