jalanin Perintah DOS dari VB

Berikut trik ngejalanin perintah DOS dari vb, siapa tau berguna.

Buat Project baru dengan 1 textbox dan 1 command button. Tambahin Kode ini:

Private Sub Form_Load()
Shell "cmd.exe", vbNormalFocus
End Sub

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1 + Chr$(13)
AppActivate "cmd.exe"
SendKeys "% ep", 1
End Sub

isi perintah Dos di text1, misal nya 'DIR *.EXE' lalu klik command1, maka perintah dos tersebut akan langsung dieksekusi..

Menampilkan Gif Animasi di VB

Bisakah VB menampilkan Gif Animasi? secara standard VB memang tidak memiliki object komponen untuk menampilkan gif animasi. Anda mungkin bisa googling untuk mendapatkan OCX nya. dari pengalaman saya, OCX tersebut biasanya harus dibeli, kalaupun ada yang gratis, biasanya dengan kemampuan terbatas. Sebetulnya dengan satu trik agar kita bisa menampilkan gif animasi dengan komponen bawaan VB. Langkah-langkahnya:

1. Buat Project dengan sebuah form
2. Tambahkan object Internet Control (Add-Components-Microsoft Internet Controls)
3. Ketikan Kode:
Private Sub Form_Load()
WebBrowser1.Navigate = "c:\somefile.gif"
End Sub


Ya... dengan control webbrowser dan sedikit sentuhan html kita bisa menampilkan gif animasi..
Silahkan dicoba..

Koneksi VB - My SQL tanpa ODBC

Bagi Anda yang biasa membuat program pengolahan DataBase mungkin sudah tidak asing lagi Untuk mengkoneksikan VB dengan MySQL. Untuk saat ini Data Base MySQL memang sangat ideal, baik dari segi kecepatan maupun karena gratisnya. Sayang nya memang MySQL tidak memiliki driver standard seperti Access atau SQL Server. Salah Satu Solusi mungkin bisa menggunakan MyODBC untuk mengkoneksikannya. akan tetapi, MyODBC memiliki kelemahan dari segi kecepatan, terutama jika data sudah membengkak jumlahnya. Koneksi tanpa ODBC mungkin bisa menjadi solusi. Langsung Pada inti aja mungkin, berikut langkah-langkah nya:
1. Download dan Install VbMySQLDirect (googling aja atau Klik Disini )
2. Buat Program Baru
3. Tambahin VbMySQLDirect ke Referensi program (Menu Project->References->VbMySQLDirect 1.0)
4. Tinggal definisiin variable buat koneksi dan Recordset

Contoh Penggunaan:

Dim koneksi As New MYSQL_CONNECTION
Dim Recset As New MYSQL_RS

Private Sub Form_Load()
NamaServer = "10.204.15.214"
UserID = "root"
Password = "123456"
dbName = "test"
koneksi.CursorLocation = adUseClient
koneksi.OpenConnection NamaServer, UserID ,Password, dbName

Recset.OpenRs "select * from t_contoh_data", koneksi, 3, 3
MsgBox "Data ke 1 = " & Recset.Fields("Cth1")
End Sub

Udah, cuma gitu ajah cara koneksinya, ga ribet setting ODBC segala.. Cukup simpel kan..??
Selamat mencoba..