Private Sub getlinkfile() ‘ langsung di tempatkan pada labelPerhatikan kodenya dan coba baca alurnya.
Dim nFileName As Variant
'nFileName = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "Ambil file")'with
nFileName = Application.GetOpenFilename()
If nFileName = False Then
Me.Label1.Caption = "Tidak ada file yang dipilih"
Else
Me.Label1.Caption = nFileName
End If
End Sub
excel.web.id
IF …. Then
-----------------------------------
Sub IF_FUNCTION()
If 6 > 3 Then
MsgBox "6 Lebih besar dari 3"
End If
End Sub
Cara membaca kode :
-----------------------------------
Sub IF_FUNCTION2()
If 6 < 3 Then
MsgBox "6 Lebih kecil dari 1"
Else
If 6 < 5 Then
MsgBox "6 Lebih kecil dari 1"
Else
MsgBox "6 Lebih Besar dari 1"
End If
End If
End Sub
IF_"2 is greater than 4"
ElseIf 3 > 4 Then
Msgbox "..."
End If
End Sub
ELSEIF_ELSE
-----------------------------------
Sub IF_ELSEIF_ELSE_FUNCTION()
If 1 > 4 Then
MsgBox "1 is greater than 4"
ElseIf 2 > 4 Then
MsgBox
box "3 is greater than 4"
Else:
MsgBox "1, 2 or 3 are lesser than 4"
End If
End Sub
Cara membaca kode :
-----------------------------------
Sub IF_FUNCTION()
If 6 > 3 Then
MsgBox "6 Lebih besar dari 3"
End If
End Sub
Cara membaca kode :
Jika 6 lebih besar dari 3 maka tampilkan pesan "6 lebih besar dari 3"IF … Then …. Else
-----------------------------------
Sub IF_FUNCTION2()
If 6 < 3 Then
MsgBox "6 Lebih kecil dari 1"
Else
If 6 < 5 Then
MsgBox "6 Lebih kecil dari 1"
Else
MsgBox "6 Lebih Besar dari 1"
End If
End If
End Sub
IF_"2 is greater than 4"
ElseIf 3 > 4 Then
Msgbox "..."
End If
End Sub
ELSEIF_ELSE
-----------------------------------
Sub IF_ELSEIF_ELSE_FUNCTION()
If 1 > 4 Then
MsgBox "1 is greater than 4"
ElseIf 2 > 4 Then
MsgBox
box "3 is greater than 4"
Else:
MsgBox "1, 2 or 3 are lesser than 4"
End If
End Sub
Cara membaca kode :
Jenis Perintah SQLData Definition Language (DDL) - Perintah SQL untuk mendefinisikan skema database atau Tabel : CREATE , DROP, ALTERData Manipulation Language (DML) - Perintah SQL untuk memanipulasi data dan pencarian data : INSERT , UPDATE, DELETE, SELECT
Data Control Language (DCL) - Perintah SQL untuk mengontrol database atau tabel : GRANT - REVOKE
Kumpulan Perintah MySQL
| CONTOH PERINTAH SQL | KETERANGAN |
| CREATE DATABASE DBKOPERASI | Membuat Database dengan nama DBKOPERASI |
| SHOW DATABASE | Melihat daftar database yang ada di server |
| DROP DATABASE DBKOPERASI | Menghapus Database dengan nama DBKOPERASI |
| ALTER DATABASE | |
| CREATE TABEL Pelanggan ( idpel INT AUTO_INCREMENT PRIMARY KEY, nama VARCHAR(30) NOT NULL, alamat VARCHAR(70), deposit DOUBLE DEFAULT 200000) | Membuat tabel dengan nama Pelanggan dengan field idpel, nama, dan alamat. Idpel bersifat INT, tidak boleh NULL, otomatis isiannya, dan Primary Key), FIELD deposit dengan default 200000 |
| DESC Pelanggan | Menampilkan design tabel Pelanggan |
Asumsi
CREATE DATABASE -- Membuat database
CREATE DATABASE DBKOPERASI -- misal membuat database dengan nama DBKOPERASI
MEMBUAT VIEWCREATE VIEW <NAMA TABLE VIEW> AS <lnjutkan dengan perintah>
exp : CREATE VIEW LIHAT AS
SELECT A.*,B.NAMA FROM PRODUK A INNER JOIN JENIS_PRODUK B WHERE A.IDJENIS=B.IDJENIS
delimiter //
create procedure test_param3
(out param1 INT, in param2 INT, in param3 int)
begin
select count(*) into param1 from produk
WHERE idjenis=param2 or idjenis=param3;
end;
//delimiter
call test_param3 (@count,2,3);
SELECT @count
Bagaimana cara membuat file untuk menyimpan macro ?
File Macro excel adalah file yang berextensi .xlsm. Contoh : LatihanForm.xlsm
- Bagaimana Caranya ?
- Buat file Baru : Menu File – New – Blank Workbook
- Simpan File : Menu File – Save As
- Klik File Name : LatihanForm dengan Save as type : excel Macro-Enabled Workbook.
- Save
Sumber : Buku Membuat Form Excel Profesional dengan VBA Macro – Nyong Masbaim






We are on
menu-navbar