rahmatdcc.blogspot.com

1. Uninstall any existing version of MySQL

   sudo rm /var/lib/mysql/ -R

2. Delete the MySQL profile

   sudo rm /etc/mysql/ -R

3. Automatically uninstall mysql

   sudo apt-get autoremove mysql* --purge
   sudo apt-get remove apparmor

4. Download version 5.5.51 from MySQL site

   wget https://dev.mysql.com/get/Downloads/MySQL-5.5/mysql-5.5.56-linux-glibc2.5-x86_64.tar.gz

5. Add mysql user group

   sudo groupadd mysql

6. Add mysql (not the current user) to mysql user group

   sudo useradd -g mysql mysql

7. Extract  to /usr/local

   sudo tar -xvf mysql-5.5.56-linux-glibc2.5-x86_64.tar.gz /usr/local/

8. Create mysql folder in /usr/local by moving the untarred folder

   cd /usr/local
   sudo mv mysql-5.5.49-linux2.6-x86_64 mysql

9. Set mysql directory owner and user group

   cd mysql
   sudo chown -R mysql:mysql *

10. Install the required lib package (works with 5.6 as well)

    sudo apt-get install libaio1

11. jika gagal : sudo apt-get install libncurses5

12. Execute mysql installation script

    sudo scripts/mysql_install_db --user=mysql

13. Set mysql directory owner from outside the mysql directory

    sudo chown -R root .

14. Set data directory owner from inside mysql directory

    sudo chown -R mysql data

15. Copy the mysql configuration file

    sudo cp support-files/my-medium.cnf /etc/my.cnf (mysql 5.5)
    sudo cp support-files/my-default.cnf /etc/my.cnf (mysl 5.6)

16. Start mysql

    sudo bin/mysqld_safe --user=mysql &
    sudo cp support-files/mysql.server /etc/init.d/mysql.server

17. Initialize root user password

    sudo bin/mysqladmin -u root password '[your new password]'

18. Add mysql path to the system

    sudo ln -s /usr/local/mysql/bin/mysql /usr/local/bin/mysql

19. Reboot!
20. Start mysql server

    sudo /etc/init.d/mysql.server start
    

21. Stop mysql server

    sudo /etc/init.d/mysql.server stop

22. Check status of mysql

    sudo /etc/init.d/mysql.server status

23. Enable myql on startup

    sudo update-rc.d -f mysql.server defaults

    Disable mysql on startup (Optional)

    sudo update-rc.d -f mysql.server remove

24. REBOOT!
25. Now directly use the command below to start mysql if it hasn’t

    sudo service start mysql -u root -p

26. Tambahan config my.cnf

27. bind-address = 11.11.100.5
    log_bin_trust_function_creators = 1
    event_scheduler = ON

28. tambahan : 
    apt install php7.0-cli
    apt install php-mysqli
    apt install mysql-client 
    apt install curl 
    apt install php-curl 
    apt install htop
    apt install iftop
    apt install traceroute

29. sudo timedatectl set-timezone Asia/Jakarta

30. pico /etc/apache2/conf-enabled/security.conf

31. deb http://old-releases.ubuntu.com/ubuntu yakkety main restricted universe multiverse
    deb http://old-releases.ubuntu.com/ubuntu yakkety-updates main restricted universe multiverse
    deb http://old-releases.ubuntu.com/ubuntu yakkety-security main restricted universe multiverse

1. Buatlah form yang berisi Listview
2. Copy script berikut
3. panggil di form-load
    - call TabelClient
    - call DataClient


Sub TabelClient()
    With ListView1
        .view = lvwReport
        .GridLines = True
        .FullRowSelect = True
        .HotTracking = True
        .ColumnHeaders.Clear
                
        With .ColumnHeaders
             .Add , , 0, 1
             .Add , , "No", 700, lvwColumnCenter
             .Add , , "Kode", 900, lvwColumnCenter
             .Add , , "Nama Client", 4500
             .Add , , "Alamat", 7500
             .Add , , "Kota", 2500
             .Add , , "Telpon", 1500
             .Add , , "Fax", 1500
        End With
      End With
End Sub
Sub DataClient()
Dim rs As New MYSQL_RS
Dim rs2 As New MYSQL_RS
        
    On Error Resume Next
    rs.OpenRs "SELECT * " & _
        "FROM data_client_master ", db
    
    ListView1.ListItems.Clear
        If rs.EOF = False Then
            ListView1.ListItems.Clear
            rs.MoveFirst
            
            Do While Not rs.EOF
            Set List = ListView1.ListItems.Add
                List.SubItems(1) = Me.ListView1.ListItems.Count
                List.SubItems(2) = rs.Fields("client_kode")
                List.SubItems(3) = rs.Fields("client_nama")
                List.SubItems(4) = rs.Fields("client_alamat")
                List.SubItems(5) = rs.Fields("client_kota")
                List.SubItems(6) = rs.Fields("client_telpon")
                List.SubItems(7) = rs.Fields("client_fax")
            rs.MoveNext
            Loop
        End If
        rs.CloseRecordset
        lblJumlah.Caption = "Jumlah : " & ListView1.ListItems.Count
End Sub

CREATE PROCEDURE `DoRasioHarianRange`(IN TglAwal DATE, IN TglAkhir DATE)
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
   DECLARE xTanggal DATE;
   -- this flag will be set to true when cursor reaches end of table

   DECLARE exit_loop BOOLEAN;
   -- Declare the cursor

   DECLARE rasio_cursor CURSOR FOR
     SELECT jurnal_tanggal FROM temp_tanggal
            WHERE jurnal_tanggal BETWEEN TglAwal AND TglAkhir;

   -- set exit_loop flag to true if there are no more rows
   DECLARE CONTINUE HANDLER FOR NOT FOUND SET exit_loop = TRUE;

   -- open the cursor
   OPEN rasio_cursor;

   -- start looping
   rasio_loop: LOOP

     -- read the name from next row into the variables
     FETCH  rasio_cursor INTO xTanggal;
     CALL DoRasioHarian(xTanggal);

     -- check if the exit_loop flag has been set by mysql,
     -- close the cursor and exit the loop if it has.
     IF exit_loop THEN
         CLOSE rasio_cursor;
         LEAVE rasio_loop;
     END IF;

   END LOOP rasio_loop;
 END;

Copy Script dibawah ini ke dalam function di MYSQL:

CREATE FUNCTION `SplitString`(x LONGTEXT, delim VARCHAR(12), pos INTEGER)
    RETURNS longtext CHARSET latin1
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
RETURN REPLACE(SUBSTRING(SUBSTRING_INDEX(x, delim, pos),
       LENGTH(SUBSTRING_INDEX(x, delim, pos -1)) + 1),
       delim, '');

Keterangan: 
x : text yang akan di split, jika kurang panjang pakai longtext
delim : karakter pemisah untuk split
pos : urutan text yang mau di split

semoga bermanfaat.

CREATE PROCEDURE `RepairPosting`(IN RekAwal VARCHAR(20))
    NOT DETERMINISTIC
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN

     DECLARE RekMax INT(20);
     DECLARE KodeBaru VARCHAR(8);
     DECLARE urut INT;
     DECLARE RekJadi VARCHAR(20);
     
     select max(right(kre_rekening, 5)) INTO RekMax
     from data_kredit_master
     where LEFT(kre_rekening, 6) = LEFT(RekAwal, 6);

     SET urut = IF(RekMax IS NULL, 1, RekMax + 1);
     SET KodeBaru = LPAD(urut, 5, 0);
     SET RekJadi = CONCAT(LEFT(RekAwal, 6), KodeBaru);
     
     UPDATE `data_kredit_master`
     SET kre_rekening = RekJadi WHERE kre_rekening = RekAwal;
        
END;