Skrip Pencarian Berdasar Tanggal VB6 & MYSQL

rsdata.Open "select * from biodata where DATE_FORMAT(tgl_lahir,'%d-%m-%Y')='" & dttgl.Value & "'", cnmy, adOpenDynamic, adLockOptimistic

Keterangan :
rsdata : recordset yang sudah didefenisikan terlebih dahulu
biodata : tabel yang dipilih
tgl_lahir : kolom tanggal yang dicari
%d-%m-%Y  : format tanggal
dttgl.Value : dtpicker(pada vb6.0) untuk pencarian
cnmy : koneksi mysql yang sudah didefenisikan

NB :
Format Tanggal yang dicari bisa diubah sesuai kebutuhan :
DATE_FORMAT(field_tgl,’%Y’) Untuk mengambil nilai Tahunnya saja,
DATE_FORMAT(field_tgl,’%m’) Untuk mengambil nilai Bulannya saja,
DATE_FORMAT(field_tgl,’%d’) Untuk mengambil nilai Tanggalnya saja.

Ok Sekian & Terimakasih.....

Membuat Database LINK di Oracle

Masuk terlebih dahulu ke User database yang akan dikoneksikan menggunakan Editor Oracle anda, bisa Navicat For Oracle, Toad For Oracle atau lainnya, kemudian ketikkan Script dibawah ini ke 

create database link DATA_LINK
 connect to DBDATA identified by pass1234
 using '(DESCRIPTION =
       (ADDRESS_LIST =
         (ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.10)(PORT = 1521))
       )
       (CONNECT_DATA =
         (SID = ORCL)
       )
     )'
/  


Kemudian ganti DBDATA sesuai nama user database yang dituju,
ganti pass1234. sesuai password user database yg dituju,
ganti 192.168.1.10 sesuai IP komputer yang dituju,
ganti ORCL sesuai SID Database yang dituju,
DATA_LINK = nama koneksinya boleh diganti boleh ga.
kemudian Eksekusi, jangan lupa di Commit biar tersimpan...
ok .....


Untuk mencoba menggunakannya seperti ini
SELECT * FROM NAMA_TABEL@DATA_LINK;
Ok selamat mencoba.... beri masukan yaaaaaaa

Menambah & Menghapus Service Windows

membuat service baru               : sc create NamaServices binpath= ""
menyetop service                      : sc stop NamaService
menjalankan service tersebut     : sc start NamaService
menghapus                                : sc delete NamaService

Contoh Menghapus Service
Klik Start - Run - cmd
ketik sbb :
c:\>sc delete "Adobe LM Service"

Memperbaiki Error Listener

Pesan error yang muncul biasanya seperti ini :



maka untuk perbaikinya buka menu Net Configuration Asistant, kemudian pilih Listener Configuration, kemudian pilih delete kemudian pilih next spt gambar ini :

Setelah itu buka kembali menu Netconfiguration untuk membuat Listener baru, pilh Add, LISTENER dan teruskan sampai pembuatan listener yg baru selesai.

ataupun dengan cara mengembalikan tnsnames.ora dan listener.ora ke default spt gambar di bawah ini :

  

Setelah diatur spt gambar diatas, kemudian jalankan listener dengan mengetikkan perintah di command prompt sbb :

C:\Documents and Settings\ADMIN>lsnrctl start

Jika lsnrctl start masih error, solusinya buka service listener di windows kemudian klik kanan start, spt gambar di bawah ini :

Jika setelah distart muncul pesan file tidak ditemukan, maka kemungkinan file LSNRCTL di foder bin oracle sudah terhapus virus. Solusinya copykan folder bin dari PC yang terinstall oracle yang  masih jalan ke folder bin pada pc yang error tsb, kemudian ulangi aktifkan service di windows spt gbr diatas.

Ok Selamat Mencoba....