VB6 connect to mysql

VB6 to Access ( Visual Basic to Access ) Script

Sebelumnya pastikan refrence pada Visual Basic anda klik Project > refrences > Browse kemudian cari file C:\Program Files\Common Files\System\ado\msado25.tlb atau msado27.tlb

  Dim cn As ADODB.Connection 
  Dim rs As ADODB.Recordset 
  Dim strSql As String 

on Error goto Error

  strSql = "SELECT * FROM e_member" ' Select semua field yang berada di tabel e_member 
  Set cn = New ADODB.Connection 
  cn.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;" _ 
                    & "Data Source=D:\Project\database.mdb" 
  cn.Open 

  Set rs = New ADODB.Recordset 
  rs.CursorLocation = adUseClient 
  rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText rs.Requery 

  txtId.text = rs("e_id") 
  cn.close 
  Exit Sub 

Error: 
strMessage = "Pembatalan transaksi" 
Call Write_Log(2, pConstSuccess, strMessage, LblUser.Caption)

Script diatas merupakan contoh untuk read database pada MS Access

VB6 to MySql ( Visual Basic to MySql ) Connection

Visual Basic to MySql connection mungkin sering menjadi pertanyaan bagi orang awam yang sedang memperdalam kemampuannya dalam Visual Basic Programming, tidak tersedianya atau tidak support Visual Basic package ( paket visual basic Develpment Software ) terhadap aplikasi yang non Microsoft. Maka dari itu jika kita ingin menghubungkkan antara Visual Basic programming dengan maka saya akan memberikan caranya :

1. Install Aplikasi MySql dan buatlah sebuah database, jika anda menggunakan Operating System WinXP dan ingin menginstall MySql anda bisa menggunakan software appserv, jika ingin download bisa klik disini.
2. Download mysql connector odbc 5.1.5 win32  Driver, anda bisa klik disini untuk download.
3. Ekstrak file kemudian install.bat pada folder ODBC driver.
4. Setelah itu anda harus setup DSN pada komputer anda, berikut saya berikan langkah-langkahnya :

• Masuk ke Control Panel >> Administrative Tools >> Data Sources (ODBC)

Kemudian akan muncul form ODBC Data Source Administration, pada Tabs User DNS anda pilih tombol Add disisi sebelah kanan form untuk menambahkan DSN yang baru. Setelah di klik maka akan keluar form Create New Data Source, dan pilih MySQL ODBC 5.1 Driver >> klik Finish.

Kemudian akan muncul form seperti gambar disamping, isi data source dengan "AutoStock" (Contoh), kemudian description di isi dengan bebas. Selanjutnya adalah pengisian untuk authentikasi login ke mysql, misalkan pada server di isi localhost (karena saya install mysql di local), masukkan user dan password, kemudian pilih database yang digunakan. Jika sudah selesai lakukan pengecekan koneksi ke database dengan cara klik pada tombol test.

Jika Installasi sudah selesai dilakukan, kini saatnya mencoba interfacing antara MySql dengan dengan Visual Basic, contoh script adalah sebagai berikut :

Public Sub ReloadDGRepStock() 
  Dim cn As ADODB.Connection 
  Dim rs As ADODB.Recordset 
  Dim strSql As String 

  strSql = "SELECT * FROM tmp_stock" 
  Set cn = New ADODB.Connection 
  cn.Open "dsn=AutoStock" 

  Set rs = New ADODB.Recordset 
  rs.CursorLocation = adUseClient 
  rs.Open strSql, cn, adOpenDynamic, adLockOptimistic, adCmdText 
  rs.Requery 

  Set DataGrid3.DataSource = rs 
  Exit Sub 
End Sub

Perbedaan antara koneksi dengan MS Access dengan MySql hanya sedikit saja pada script, yaitu pada open connection dikarenakan tujuan database menggunakan DSN sudah di setup sehingga tidak memerlukan connection string, dan sintaks untuk membuka database berubah menjadi cn.open "dsn=autostock" 

Semoga Bermanfaat.

Sumber : Mindahin postingan di blog yang lama, ngeditnya ampun dah..

https://kerenz.wordpress.com/2009/01/16/vb6-connect-to-mysql

VB .NET Auto Numbering with Alfabet

Saya akan memberikan sebuah contoh logic auto numbering pada untuk programming VB .Net. Biasanya metode ini digunakan untuk pembuatan code numbering dengan memperbesar nilai variasi namun dengan sedikit jumlah karakter. Jika anda menggunakan bilangan 1 digit maka jumlah variasi angka hanya sampai 10 karakter, dan bila menggunakan penggabungan dengan alfabet maka jumlah karakter bisa dinaikkan menjadi 36 jumlah karakter.
Penggunaan metode ini biasa digunakan untuk

• Primary key : meminimalkan jumlah trafik (bit) ketika bertransaksi
• Penggunaan key code pada Barcode product, ketika product harus dibuatkan 100,000 product maka barcode akan tergambar dengan panjang. Namun ketika meminimalisir karakter anda  maka 27% karakter di reduce.

Sample Program

Saya sediakan source code untuk Visual Studio 2010 VB .Net bisa download disini

Regards,