Monthly Archives: October 2008

20 Comments

Share This :

Akhir-akhir ini lagi demen sama lagu metal, terutama lagu-lagunya Avenged Sevenfold dan Ill Niño. Ya, saaat mengerjakan sesuatu tak lupa playlist mereka selalu nongol di pemutar mp3 jetaudio di nutbuk ku. Tak disangka ternyata aku punya sekian banyak album mereka :D Untuk saat ini, maka dengan terpaksa Dream Theater harus menyingkir dulu dari tangga lagu di playlist-ku :P

Ill Niño merupakan sebuah band nu Metal dari New Jersey, sebenarnya aku mengenal band ill Niño ini sudah lama yaitu sejak duduk dibangku sekolah, saat itu lagu-lagu mereka tertumpuk di dalam sekumpulan lagu-lagu aliran underground. Dan ketika itu aku sering mendengarkan lagu mereka yang berjudul "What Comes Around" dan "Cleansing" Sungguh asik dan menyenangkan di telinga.


Ill Niño

Avenged Sevenfold

Sementara Avenged Sevenfold, sebuah bend dengan aliran heavy metal dari California. Sebuah band yang menurutku lebih kenceng dari ill Niño. Aku mengenal mereka pertama kali saat sedang gencar-gencarnya sekuelgame NFS Underground yaitu NFS Most Wanted. Kebetulan, lagu mereka merupakan salah satu  OST yang terdapat di game itu yaitu "Blinded In Chains". Jujur saja aku lebih suka Ill Niño, namun Avenged Sevenfold juga tidak lah kalah dari Ill Niño. How About U?

8 Comments

Share This :

Untuk melakukan koneksi dari Visual Basic 6 ke mySQL database, yang dibutuhkan adalah "mysql connector odbc" Ada beberapa cara yang bisa dilakukan:

1. CARA I (CARA BIASA)
Masukkan source code berikut ini kedalam form.

Dim koneksi As New ADODB.Connection
Dim rs As New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.Open "DRIVER={MySQL ODBC 3.51 driver};SERVER=localhost;PORT=3306;DATABASE=isidbase; USER=isiuser;PASSWORD=isipassword;OPTION=3;"

2. CARA II (MENGGUNAKAN MODUL)

Untuk menjadikan script koneksi menjadi sebuah modul maka, buat modul baru. Simpan dengan nama koneksi.

Kemudian pada module letakkan script berikut ini:

'ini diletakkan di module
Option Explicit
Dim koneksi As ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim passwd As String
Dim serverIP As String
Dim db As String
Public Function connectMysql(username As String, passwd As String, serverIP As String, db As String, koneksi As ADODB.Connection, rs As ADODB.Recordset)
Set koneksi = New ADODB.Connection
Set rs = New ADODB.Recordset
koneksi.CursorLocation = adUseClient
koneksi.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & serverIP & ";UID=" & username & ";PWD=" & passwd & ";DATABASE=" & db & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 163841
koneksi.Open
End Function

Dan pada form, letakkan script berikut ini:

Private Sub Form_Load()
'ini dimasukkan di form
'Call connectMysql("_diisiUSR_", "_diisiPASSW_", "_diisiHOST_", "_diisiDB_", koneksi, rs)
Call connectMysql("root", "", "127.0.0.1", "dbzein", koneksi, rs)
End Sub

3. CARA III (ALTERNATIF LAIN MENGGUNAKAN MODUL)
Buat modul baru, kemudian isikan source berikut ini:

Public strserver As String
Public dbpass As String
Public strUserServ As String
Public DataSource As String
Public dbName As String
Public conDB As New ADODB.Connection
Public Sub bukaDB()
Dim DB, myDSN
strserver = "localhost"
dbpass = "rahasia"
strUserServ = "root"
dbName = "dbzein"
DataSource = App.Path & "Data" & DB
myDSN = "PROVIDER=MSDataShape;" & "Driver=MySQL ODBC 3.51 Driver;" & "Server=" & strserver & ";" & "Port=3306;" & "Option=147458;" & "Stmt=;" & "Database=" & dbName & ";" & "User=" & strUserServ & ";" & "Password=" & dbpass
conDB.Open myDSN
End Sub

Pada Form diisikan source code berikut ini, yang digunakan untuk membuka database:

Private Sub Form_Load()
bukaDB
End Sub