On Jumat, 16 Juli 2010 12 komentar

Semakin kompleksnya data yang dibutuhkan mengharuskan suatu sistem dapat mengakses data secara multi akses dimana data dapat di akses secara online seperti WEB. Tapi di sini saya mencoba untuk mengoneksikan MYSQL Hosting dengan Aplikasi Dekstop VB 6.0 dengan bantuan MYSQL Connector ODBC.

Berikut beberapa situs hosting Database MYSQL:

  1. 000webhost.com
  2. freemysql.net
  3. freesql.org
  4. db4free.net
  5. free-mysql.bizhostnet.com
Dalam kasus ini saya menggunakan freemysql.net sebagai tempat hosting databasenya.

Berikut connectionstring untuk koneksi database MYSQL -nya :

'awal kode

Dim koneksi As New ADODB.Connection
Dim server, port, database, username, password As String

server = "76.73.77.53" 'untuk nama servernya sesuaikan dengan akun anda
port = "3306" 'port yang terbuka untuk situs hosting freemysql.net
database = "databaseku" 'sesuaikan dengan database anda
username = "usernameku" 'sesuaikan dengan username anda
password = "passwordku" 'sesuaikan dengan password anda

Set koneksi = New ADODB.Connection

koneksi.CursorLocation = adUseClient
koneksi.Mode = adModeReadWrite
koneksi.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=" & server _
& ";Port=" & port & ";Database=" & database & ";User=" & username & ";Password=" _
& password & ";Option=3;"
koneksi.Open

'akhir kode

Semoga membantu...

nb : untuk MYSQL Connector ODBC 3.51 silahkan download di sini download
(password : slavara0713)

Baca Selengkapnya...
On Sabtu, 10 Juli 2010 0 komentar

Bagi anda yang ingin mengetahui bagaimana cara Membuat Side Bar Dua Kolom di Blogspot seperti gambar di bawah ini:



Berikut adalah langkah-langkanya:

  1. Login dengan akun anda ke Dashboard , kemudian pilih Layout --> Edit HTML
  2. Klik Download Full Template, ini penting sebagai backupan template anda, jika nanti terjadi hal-hal yang tidak diinginkan...wah bahasanya.... : ) hehe.... template anda bisa direstore kembali seperti semula...
  3. Kemudian anda cari kode ini ]]></b:skin>
  4. Lalu copy kode di bawah ini, kemudian anda simpan diatas kode ]]></b:skin> tadi.


    #lsidebar-wrapper {
    float: left;
    margin:0 10px 0 5px;
    padding:0;
    width:150px;
    display:inline;
    }
    .lsidebar {
    line-height: 1.5em;
    }
    .lsidebar .widget {
    background: #FFFFFF;
    float:left;
    width: 140px;
    margin: 0 0 10px 0;
    padding: 10px;
    border:1px solid #f1f1f1;
    }
    #rsidebar-wrapper {
    float: right;
    margin-right:10px;
    padding:0;
    width:140px;
    }
    .rsidebar {
    line-height: 1.5em;
    }
    .rsidebar .widget {
    background: #FFFFFF;
    float:right;
    width: 130px;
    margin: 0 0 10px 0;
    padding: 10px;
    border:1px solid #f1f1f1;
    }


    (Kode dengan warna merah bisa anda atur sesuai dengan selera anda)
    Atau bisa juga anda simpan setelah kode di bawah ini, silahkan pilih sesuai selera

    /*- Sidebar -*/
    #sidebar {
    float: left;
    width: 320px;
    margin: 6px 0px 5px 0px;
    padding:0px;
    line-height: 18px;
    display: inline;
    }

  5. Setelah langkah diatas, kemudian dilanjutkan dengan mencari kode seperti di bawah ini atau yang nampak mirip2 :

    <div id='sidebar-wrapper'>
    <b:section class='sidebar' id='sidebar' preferred='yes'>
    <b:widget id='HTML6' locked='false' title='' type='HTML'/>
    </b:section>
    </div>


  6. Setelah ketemu, hapus dulu kode </div> nya, lalu anda copy kode berikut dan letakkan di bawahnya.

    <div id='lsidebar-wrapper'>
    <b:section class='lsidebar' id='lsidebar' preferred='yes'>
    </b:section>
    </div>
    <div id='rsidebar-wrapper'>
    <b:section class='rsidebar' id='rsidebar' preferred='yes'>
    </b:section>
    </div>
    </div>

    Jadi kode tersebut akan tampak seperti ini:

    <div id='sidebar-wrapper'>
    <b:section class='sidebar' id='sidebar' preferred='yes'>
    <b:widget id='HTML6' locked='false' title='' type='HTML'/>
    </b:section>
    <div id='lsidebar-wrapper'>
    <b:section class='lsidebar' id='lsidebar' preferred='yes'>
    </b:section>
    </div>
    <div id='rsidebar-wrapper'>
    <b:section class='rsidebar' id='rsidebar' preferred='yes'>
    </b:section>
    </div>
    </div>

  7. Jika sudah selesai semua, tinggal anda Save Template sekarang.
  8. Silahkan anda lihat hasilnya dengan cara click Page Elements.


    Sekarang anda sudah berhasil Membuat Side Bar Dua Kolom di Blogspot...

    Semoga membantu.............

Baca Selengkapnya...
On Rabu, 07 Juli 2010 0 komentar

Bagi teman-teman yang belum tahu mungkin masih bingung dalam membuat kategori di blogspot, walaupun itu sangatlah mudah jika teman-teman sudah mengetahuinya.
Sebelum kita melangkah lebih jauh, saya jelaskan dulu apa itu kategori?, kategori merupakan tempat dikumpulkannya artikel yang mempunyai tema yang sama. Sebagai contoh jika saya memposting artikel dengan judul "searching pun bisa dapat duit", "perangkat yang dibutuhkan pebisnis online", dan "dapat duit dengan download". Maka semua artikel tersebut dapat saya kumpulkan ke dalam kategori "bisnis online". Adanya kategori inilah yang akan memudahkan pengunjung blog/web dalam memilah-milah artikel mana yang diperlukan.

Di dalam blogspot kategori diistilahkan sebagai LABEL.

Lalu Bagaimanakah cara membuat kategori atau label tersebut?

Untuk membuat sebuah kategori atau label, teman-teman hanya perlu menceklis kotak di samping tulisan Label pada postingan teman-teman. Lengkapnya adalah sebagai berikut:
1. Pada Dashboard Pilih Edit Entri.
2. Lalu pilih postingan yang akan diberi label/kategori dengan cara menceklis kotak
disamping kiri.
3. Tepat di atas kotak yang telah di ceklis tadi, pilihlah kategori yang menurut teman-teman cocok untuk postingan yang telah dibuat.
4. Jika teman-teman ingin menambahkan kategori, teman-teman cukup pilih label baru kemudian tuliskan kategori yang diinginkan.

Satu postingan dapat dimasukkan ke dalam beberapa kategori. Untuk membuatnya tinggal dipisahkan dengan tanda koma ( , ) saja.

Sekarang bagaimana cara memunculkan kategori/label pada halaman blog ?

Untuk para pengguna template baru, kategori/label bisa di tampilkan di sidebar, dan biasanya element label ini sudah tersedia ketika baru memasang template. Jika elemen label belum tersedia, teman-teman bisa membuatnya sendiri, silahkan ikuti langkah - langkahnya berikut ini:

1. Klik Dashboard yang ada di pojok kanan atas.
2. klik menu Tata Letak.
3. Klik menu Elemen Halaman.
4. Klik tulisan Tambahkan Gadget.
5. Cari Gadget "Label" kemudian klik " + " di sebelah kanan gadget label.
6. Muncul jendela pilihan, Pilih radio button yang anda inginkan di samping
tulisan Menyortir, Alfabetik : jika kategori ingin di tampilkan sesuai dengan
abjad alfabetik ( dari A --> Z ), Frekuensi : jika kategori ingin
ditampilkan sesuai dengan banyaknya postingan yang telah dibuat.
7. Lalu terakhir, klik tombol yang bertuliskan SIMPAN PERUBAHAN.
8. Selesai.

Ok, jika berhasil maka blog teman-teman sekarang telah memiliki kategori/label.

Semoga membantu...

Baca Selengkapnya...
On Selasa, 06 Juli 2010 0 komentar

Banyak trik yang bisa dilakukan untuk mengenalkan blog kita. Facebook adalah salah satu jalan terbaik. Facebook digunakan banyak sekali blogger dan juga kita bisa mencari pelanggan 'loyal' baru dari kalangan non-Blogger. Hal kecil yang bisa mencolok dan menarik perhatian adalah memanfaatkan Status Generator sehingga nama blog kita selalu terlihat saat kita update status di facebook.

Untuk membuatnya sangatlah mudah, berikut langkah2nya :

1. Sekarang silahkan Anda buat aplikasi baru dengan pergi ke http://www.facebook.com/developers/createapp.php

2.Tentukan nama aplikasi Anda. Isi dengan Alamat blog Anda misal slavara0713.blogspot.com. Pilih Setuju lalu klik tombol Buat Aplikasi Baru.



3. Anda akan dibawa ke halaman pengaturan aplikasi.



4. Biarkan tetap terbuka. Silahkan pergi ke http://apps.facebook.com/statusgen. Klik Create.

5. Isi 4 kolom (Application ID, API KEY, Secret dan Application Name) sesuai angka yang Anda lihat pada halaman pengaturan aplikasi yang tadi telah Anda buat.



6. Pada canvas page URL isi dengan yang Anda inginkan. Misal saya isi dengan slavaraupdatestatus maka nantinya alamat aplikasi anda berada pada alamat http://apps.facebook.com/slavaraupdatestatus/

7. Jika sudah selesai mengisi, klik tekan tombol ini. Anda akan mendapatkan kode uniq untuk Canvas Callback URL Aplikasi Anda.



8. Silahkan ke halaman pengaturan aplikasi Anda. Pada bagian kiri pilih kanvas.

- Canvas Page URL isi sesuai alamat aplikasi yang tadi Anda pilih, misalkan slavaraupdatestatus.
- Canvas Callback URL isi dengan kode uniq yang baru saja Anda dapatkan.
- Metode Render pilih FBML. Jika sudah silahkan klik Simpan Perubahan.



Nah, sekarang aplikasi Anda telah jadi. Silahkan cek aplikasi Anda (misal silahkan coba: http://apps.facebook.com/slavaraupdatestatus/. Untuk menggunakan silahkan klik Izinkan. Setelah masuk ke halaman aplikasi, silahkan klik link untuk menggunakan aplikasi.



Akan muncul kotak dialog perizinan perubahan status, silahkan klik Izinkan. Maka, Anda akan berada pada halaman untuk mengupdate status Anda, cukup isikan pada kolom yang tersedia lalu tekan tombol Update Status Anda. Silahkan cek dinding facebook Anda dan hasilnya seperti gambar di bawah ini.



Jika ingin lebih menarik silahkan tambahkan icon, sehingga akan muncul icon kecil seperti pada status yang bawah. Untuk menambahkan icon silahkan pergi ke halaman sunting aplikasi Anda.

Sekarang saat melihat update status Anda, orang juga akan lihat alamat blog Anda. Tentu beberapa akan sangat tertarik. Agar lebih optimal sebaiknya Anda manfaatkan halaman aplikasi untuk grup blog Anda juga (saat membuat aplikasi otomatis Anda akan memiliki halaman aplikasi tersebut). Jika orang klik link slavara0713.blogspot.com seperti gambar di atas, maka itu otomatis menuju ke halaman profil aplikasi.

Silahkan mencoba...
Semoga bermanfaat...

Baca Selengkapnya...
On Senin, 05 Juli 2010 0 komentar

Berikut adalah kode VB 6.0 untuk meletakkan aplikasi yang telah kita buat pada system tray windows:



Semoga membantu...

Baca Selengkapnya...
On 0 komentar

Berikut adalah kodenya:

Private Sub cmdGetSysDir_Click()
      Dim Junk, WinSysDir$
      WinSysDir = Space(144)
      Junk = GetSystemDirectory(WinSysDir, 144)
      WinSysDir = Trim(WinSysDir)
      MsgBox "The Windows System Directory Path is: " & WinSysDir
End Sub

Semoga bisa membantu...

Baca Selengkapnya...