LabQ5

Kasus-nya..., kita ingin program memanggil Data dari database laporan harian Karyawan dengan prameter ID.Karyawan yang didapat/dipilih dari ComboBox, akan tetapi kita tidak ingin sistem memunculkan MessageBox "Data Tidak Ada" pada saat pertama Form diaktifkan yang disebabkan data belum ada karena event ComboBox-nya adl Click. Kita Ingin MessageBox "Data Tidak Ada" muncul ketika ComboBox telah kita klik. Logikanya dibuatkan pewaktu untuk memberikan "Opt_Value" bernilai 1. Dim Opt_Value As String Private Sub Timer1_Timer() Dim i As Integer For i = 0 To 3 i = i If i = 3 Then Timer1.Enabled = False Opt_Value = 1 End If Next i End Sub Private Sub Form_Load() Opt_Value = 0 End Sub Ket : (3) : Jumlah loop-ing Interval : 1000 Opt_Value : Parameter kunci

Bagi yang tidak hafal, biar hafal. Bagi yang Hafal, biar lebih hafal. Bagi yang lebih hafal, biar lancar

Pesan error diatas menjunjukkan componen yang digunakan pada pemrograman visual basic tidak teregister atau tidak ada, langkah yang harus dilakuakan adalah gunakan componen yang lain dan sudah teregister pada PC anda. Pada kasus ini sya pernah menggunakan componen dan object " Microsoft Windows Common Controls(Sp6)", dan ketika saya menjalankan file compile-nya saya mendapatkan pesan System Error &H80070583. Class Does Not Exist Saya coba gunakan componen dan object "Microsoft Windows Common Controls(Sp5)" dan saya berhasil dijalankan file compile-nya"

'Made on 4th June 2009 BY Muh. Iqbal oo>LABQ5oo Private Sub DTPEntered_Change() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPEntered_Click() TxtDateEntered.Text = DTPEntered.Value End Sub Private Sub DTPReturn_Change() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub DTPReturn_Click() TxtDateReturn.Text = DTPReturn.Value SQLQuery End Sub Private Sub TxtDateEntered_Change() If DTPEntered.Value > DTPReturn.Value Then MsgBox "Date entered must be less than or " & vbCrLf & _ "equal to the date of return",vbExclamation DTPReturn.Value = DTPEntered.Value End If End Sub Private Sub TxtDateReturn_Change() If DTPReturn.Value MsgBox "Date of return must be more or " & vbCrLf & _ "equal to the date of entry",vbExclamation DTPEntered.Value = DTPReturn.Value End If End Sub 'Query is Used Sub SQLQuery() Dim RSZZ As New ADODB.Recordset Dim SQLz As String MySql= ...

Dim RSViewer As New ADODB.Recordset Dim MySQL As String Dim i As Integer Dim JmlSiswaDiTerima As String MySQL= "SELECT NIS FROM Tab_SiswaPKL WHERE Tab_SiswaPKL.Status='Diterima' " Set RSViewer = New ADODB.Recordset RSViewer.Open MySQL, DbAcax, adOpenKeyset, adLockOptimistic If RSViewer.BOF = True And RSViewer.EOF = True Then MsgBox "Database Kosong", vbOKOnly + vbInformation Exit Sub End If RSViewer.MoveFirst For i = 0 To RSViewer.RecordCount - 1 RSViewer.GetRows = i Next i = i JmlSiswaDiTerima = i JmlSiswaDiTerima = Format(JmlSiswaDiTerima, "###,###,##0") TxtSiswaDiterima.Text = i & " Siswa" TxtSiswaDiterima.Locked = True Set RSViewer = Nothing

Download Icon

Tabel yang dipakai adl Tabel Supervisor Function CariSVisor() ' adl Fungsi Pencarian data On Error GoTo Handl Dim RsSVisorView As New ADODB.Recordset Dim MySQL, NOIS, UserMsg, TXt As String UserMsg = InputBox("Masukkan NIK Yang Dicari!", " Lab~Q 5", NOIS, 5000, 3500) If StrPtr(UserMsg) 0 Then ' Start of Usermessage NOIS = UserMsg MySQL = "SELECT From Tab_Karyawan " & _ "WHERE NIK LIKE '%" & UserMsg & "%' And Tab_Karyawan.Jabatan Not Like 'Teknisi' And Tab_Karyawan.Jabatan Not Like 'Petugas' ORDER BY Tab_Karyawan.Nama" RsSVisorView.Open MySQL, DbAcax, adOpenKeyset, adLockOptimistic If RsSVisorView.BOF = True And RsSVisorView.EOF = True Then ' cari NAMA Set RsSVisorView = Nothing MySQL = "SELECT * From Tab_Karyawan " & _ "WHERE Nama LIKE '%" & UserMsg & "%' And Tab_Karyawan.Jabatan Not Like 'Teknisi' And Tab_Karyawan.Jabatan Not Like ...