.::REEZHAL SPACE::.

Bagi semua yang berkecimpung di dunia VB dan ingin mencari sesuatu tentang VB, silahkan aja kunjungi Link di bawah ini :

1. VB6 Tutorial
2. Planet Source Code
3. VB6 Code Archive
4. Code Guru
5. Programming Tutorial
6. VB6 for Beginners
7. Programmers Heaven
8. VB6 Dictionary
9. VB Explorer
10. VB6 SP6

Kali ini saya akan membuat contoh koneksi VB dengan MYSQL yang selama ini saya gunakan dan hingga saat ini belum menemukan kekurangan. Beikut contoh code untuk koneksi nya :

Tambah kan sebuah module baru. Pada modul tersebut isi kan code berikut :

Public Koneksi As ADODB.Connection
Public rsResult As ADODB.Recordset

function LoadKoneksi() as boolean

Set Koneksi = New ADODB.Connection

On Error GoTo Gagal

Koneksi.CommandTimeout = 60
Koneksi.Open "DRIVER={MySQL};SERVER=localhost;DATABASE=koperasi;UID=root;PWD="

LoadKoneksi=True

Exit Function

Gagal:

LoadKoneksi=False

end function

‘———–FUNGSI QUERY——————-

function Query(QString as String) as Boolean

On Error GoTo Gagal
    Set rsResult = New ADODB.Recordset
    rsResult.CursorLocation = adUseClient
    rsResult.Open QString, Koneksi, adOpenDynamic, adLockOptimistic
    Query = True
    Exit Function

Gagal:

Query=False

End Function

Catatan : Tulisan MySQL yang berwarna merah adallah Driver MYSQL. Disini saya menggunakan MYSQL Connector..

Ada beberapa cara untuk mengosongkan text pada form visual basic diantaranya :

1. Dengan coding standar

    Text1.text=empty

    Tapi dengan teknik ini akan memakan waktu jika pada form terdapat banyak textbox.

2. Menggunakan index pada componennya

   Name : Text1

   Index : 0

   Name : Text1

   Index : 1

   dan seterusnya hingga dibutuhkan.

   coding nya cukup sederhana, disini kita bisa menggunakan perulangan "FOR NEXT".

   for i=0 to 10 ‘angka sepuluh merupakan jumlah textbox yang akan dikosongkan

          Text1(i).text=empty

   next i

 3 Yang ke 3 ini contoh yang mudah dan bagus digunakan

    dim ctrText as control

    for each ctrText in me.controls

        if typeof ctrText is TextBox then ctrText=empty

    next ctrText

    Dengan teknik ini semua text yang berada pada form akan dikosongkan secara otomatis.

Silahkan digunakan, semoga bermanfaat. Terima kasih

Vivagamers

    [WCG] Pub-1 Vivagamers cs1.vivagamers.com:27015
    [WCG] Pub-2 Vivagamers cs2.vivagamers.com:27015
    [WCG] Pub-3 Vivagamers cs1.vivagamers.com:27016
    [WCG] Pub-4 Vivagamers cs2.vivagamers.com:27016
    [WCG] Pub-5 Vivagamers cs1.vivagamers.com:27017
    [WCG] Pub-6 Vivagamers cs2.vivagamers.com:27017
    [WCG] Pub-7 Vivagamers cs1.vivagamers.com:27018
    [WCG] Pub-8 Vivagamers cs2.vivagamers.com:27018
    [WCG] Pub-9 Vivagamers cs1.vivagamers.com:27019
    [WCG] Pub-10 Vivagamers cs2.vivagamers.com:27019

    [WCG] War-1 Vivagamers cs8.vivagamers.com:27015
    [WCG] War-2 Vivagamers cs8.vivagamers.com:27016
    [WCG] War-3 Vivagamers cs8.vivagamers.com:27017
    [WCG] War-4 Vivagamers cs8.vivagamers.com:27018
    [WCG] War-5 Vivagamers cs8.vivagamers.com:27019

    [CSDM #1] Vivagamers cs5.vivagamers.com:27015
    [CSDM #2] Vivagamers cs5.vivagamers.com:27016
    [CSDM #3] Vivagamers cs5.vivagamers.com:27017

    [Soccer Jam] Vivagamers cs5.vivagamers.com:27020

    Server Kotak

    KoTaK Server #1 : 203.84.154.2:27015
    KoTaK Server #2 : 203.84.154.2:27016
    KoTaK Server #3 : 203.84.154.2:27017
    KoTaK Server #4 : 203.84.154.2:27018
    KoTaK Server #5 : 203.84.154.3:27015
    KoTaK Server #6 : 203.84.154.3:27016
    KoTaK [CSDM] : 203.84.154.2:27019
    KoTaK [SoccerJam] : 203.84.154.2:27020

    New 5 CS server - The IdGamers
    Pub-1 202.149.90.19:27015
    Pub-2 202.149.90.19:27016
    Pub-3 202.149.90.19:27017
    Pub-4 202.149.90.19:27018
    [CSDM] 202.149.90.19:27019

    uNo Public Server
    uNo Public Server 202.182.52.26:27015
    uNo Clanwar Server 202.182.52.26:27016

    Indogamers AMPM

    [ Indogamers ] CS [ Server 1 ] 122.144.2.12:27015
    [ Indogamers ] CS [ Server 2 ] 122.144.2.12:27016
    [ Indogamers ] CS [ Server 3 ] 122.144.2.12:27017
    [ Indogamers ] CS [ Server 4 ] 122.144.2.12:27019
    [ Indogamers ] CS [ Server 5 ] 122.144.2.12:27020
    [ Indogamers ] CS [ Server 6 ] 122.144.2.222:27015
    [ Indogamers ] CS [ Server 7 ] 122.144.2.222:27016
    [ Indogamers ] CS [ Server 8 ] 122.144.2.10:27018
    [ Indogamers ] CS [ Server 9 ] 122.144.2.10:27019
    [ Indogamers ] CS [ Server 11 ] 122.144.2.222:27019
    [ Indogamers ] CS [ Server 12 ] 122.144.2.222:27020
    [ Indogamers ] CS [ Server 15 ] 122.144.2.222:27021
    [ Indogamers ] CS [ Server 16 ] 122.144.2.222:27022

    [ Indogamers- Redzone ] CS [ Server 6 ] 122.144.2.10:27015
    [ Indogamers- Redzone ] CS [ Server 7 ] 122.144.2.10:27016

    [ Indogamers ] CS [ Blue War ] 122.144.2.222:27018
    [ Indogamers ] CS [ Green War ] 122.144.2.10:27017
    [ Indogamers ] CS [ Red War ] 122.144.2.12:27018

    Spy Server
    Pub-1 202.182.51.3:27015

    X-Games
    X-games Pub 1 202.149.69.45:27015
    X-games Pub 2 202.149.69.45:27016
    X-games War 202.149.69.45:27020

    Ez Games

    [EzGames] Arena
    202.80.112.62:27015
    202.80.112.62:27016
    202.80.112.62:27017
    202.80.112.62:27018
    202.80.112.62:27019

    [EzGames] War
    202.80.112.61:27015
    202.80.112.61:27016
    202.80.112.61:27017
    202.80.112.61:27018
    202.80.112.61:27019

    MediaNet Server
    Medianet 202.169.224.56:27015
    Medianet Clan War 202.169.224.56:27016
    Medianet VAC Secure 202.169.224.56:27018

    Server CS Cakra
    Pub-1 202.133.3.4:27015
    Pub-2 202.133.3.4:27016
    Pub-3 202.133.3.4:27017
    Pub-4 202.133.3.4:27018

    Server BIZ NET
    Pub-1 cs1.biz.net.id:27015
    Pub-2 cs2.biz.net.id:27015
    Pub-3 cs3.biz.net.id:27015
    Pub-4 cs4.biz.net.id:27015

    Hynobius
    Pub-1 203.128.72.233:27015
    Pub-2 203.84.154.78:27016

    Server Combat
    COMBAT PUBLIC : 202.158.39.18:27015
    COMBAT CLANWAR : 202.158.39.18:270

    Server PrimaWave
    Pub-1 202.72.215.29:27015
    Pub-2 202.72.215.29:27016

    KINGS CS Server 1.6
    Pub-1 202.74.73.98:27015
    Pub-2 202.74.73.98:27016
    Pub-3 202.74.73.98:27017
    Pub-4 202.74.73.98:27018
    Kings Clan War Server 202.74.73.98:27019

    Battle-Line
    Pub-1 www.battle-line.net:27016
    Pub-2 www.battle-line.net:27017
    Clanwar Server www.battle-line.net:27020

    24Hour - GameNet
    Pub-1 202.78.199.235:27016
    Pub-2 202.78.199.235:27017
    Pub-3 202.78.199.235:27018

    GilaGames Server
    Pub-1 58.65.244.20:27015

    FletNet Server
    Pub-1 203.77.221.51:27015

    Orbicom Semarang
    Pub-1 202.75.25.190:27015

    cs-mania
    Pub-1 202.129.190.13:27015
    Pub-2 202.129.190.13:27016

Tempat download Keygen dan Serial terlengkap… :

keygens.nl

cracks.am

cracksearchengine.net

crackfound.com

mucacadownloads.com

Pasang Iklan Anda. Hanya dengan anggaran Rp. 50.000,-, anda sudah dapat beriklan di jaringan web AdSentra.com. Bayar hanya jika ada yang mengklik iklan anda. Buatlah iklan dengan kata-kata yang singkat, padat dan menarik perhatian pengunjung Internet. Karena iklan anda hanya akan berisi Judul dengan 40 karakter, Deskripsi berisi 40x2 karakter, manfaatkan ruang iklan tersebut dengan baik untuk menarik sebanyak-banyaknya konsumen anda. Tentukan kata kunci yang benar-benar mewakili produk/jasa yang anda iklankan.

Iklan Tampil pada Jaringan Web AdSentra.com. Ketika seseorang mengunjungi salah satu web pada jaringan kami yang halamannya sangat cocok dengan kata kunci iklan anda, maka iklan anda akan muncul di halaman tersebut, sehingga anda hanya beriklan pada orang yang benar-benar tertarik pada produk/jasa anda.

Anda akan Menarik Konsumen. Orang hanya tinggal mengklik iklan anda untuk melakukan pembelian atau ingin mempelajari produk/jasa yang anda tawarkan. Bila anda belum mempunyai sebuah web untuk menerangkan produk maupun jasa yang ingin anda jual, kami akan membuatkan halaman tersebut secara cuma-cuma (GRATIS).

Anda tertarik untuk memasang iklan di AdSentra? Silakan klik Pasang Iklan.

https://www.adsentra.com/