Tutup Form VB6 Ke Bawah

Menutup form di VB6 tidak hanya langsung hilang sekejap, tapi juga bisa tutup ke bawah.
Dan berikut ini syntax nya yang di tempatkan pada sub form_unload.

Do
Me.Top = Me.Top + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300

Selamat mencoba.

Read More

Koneksi VB 6 ke Database MYSQL menggunakan driver MYSQL ODBC 5.2w

Berikut ini coding untuk koneksi VB6 ke MYSQL :

Sebelumnya pastikan terlebih dahulu apakah driver yang akan digunakan telah terinstall atau belum di system. Bila belum, bisa download disini. 

1. Buat / Tambah sebuah module, lalu isikan syntax berikut ini ke dalam module

Option explicit

Public cn as new ADODB.Connection
Public rs as new ADODB.Recordset

Public Sub Connecter()
On Error GoTo err
Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=MSDASQL.1;" _
                       & "Persist Security Info=False;" _
                       & "DRIVER={MySQL ODBC 5.2w Driver};" _
                       & "DATABASE=nama_database;" _
                       & "OPTION=0;" _
                       & "PORT=3306;" _
                       & "SERVER=127.0.0.1;" _
                       & "UID=root;" _
                       & "PWD=;"
Cn.Open
Cn.CursorLocation = adUseClient
End Sub
2. Lalu di Form pada sub Form_Load panggil Connecter yang telah di buat sebelumnya di Module. Berikut contohnya!!!

Private Sub Form_Load()
   Call Connecter
End Sub

3. Dan Project VB sudah bisa terkoneksi dengan database mysql.

4. Selamat mencoba.

Read More