Error Visual Basic (VB)

Berbagai Error dari ADO dalam VB

No. Error   : 3001

Konstanta : adErrInvalidArgument

Penyebab : Tipe argumen salah, diluar jangkauan atau konflik.

No. Error    : 3021

Konstanta  : adErrNoCurrentRecord

Penyebab  : BOF maupun EOF bernilai True atau recod sudah dihapus.

No. Error    : 3265

Konstanta  : adErrItemNotFound

Penyebab  : Objek tidak dapat ditemukan.

No. Error    : 3421

Konstanta  : adErrDataConversion

Penyebab  : Operasi menggunakan data tipe yang tidak sesuai.

No. Error    : 3709

Konstanta   : addErrInvalidConnection

Penyebab  : Objek Connection invalid atau ditutup.

Real Time

Fight for My Life

Kamu yang aku ingin bukan kamu yang saat ini ada..

Bukan pula kamu pada masa lalu ku,..

Namun, kamu yang ada pada masa depan ku,..

     Mungkin kamu tidak mengerti apa maksud dari semua ini..,

     Mangkin aku juga terlalu bodoh untuk menjelaskannya padamu,..

     Atau mungkin kamu yang tak pernah melihat aku lebih jauh...

Aku cuma ingin kamu mengerti,..
Bahwa aku menyukaimu sebelum orang-orang bicara..,

Dan sampai saat ini pun aku masih berharap kau punya rasa yang sama terhadapku..,

    

Poem

-->

 

-->

Poem of Love

Entah apa yang ku rasakan disetiap kau ucapkan cinta untukku ..

Tubuh ini terasa gemetar mendengar kata cinta darimu ..

Jantung ini terasa berdebar lebih cepat ,..

Seakan-akan aku mati kar’na cintamu ..

Hingga aku tak bisa berucap lagi ..

Apa ini yang dinamakan cinta??? Aku tak tahu ..

Namun, satu yang pasti ..

Aku merasa senang bila cinta itu terucap darimu ..

Sebuah cinta dariku untukmu ..

Yang akan menakhlukkan hujan dan badai ..

Dan mengajakmu menjumpai indahnya pelangi setelah melewatinya ..

Yang melindungimu dari panasnya mentari disiang hari ..

Sampai nanti lenyap ditelan senja ..

Dan ku suguhkan indahnya purnama untuk mengobati rasa takutmu akan gelapnya malam ..

Cinta yang ada dihati ini ..

Adalah cinta yang datang kar’na suatu persamaan antara kau dan aku ..

Cinta yang datang kar’na sebuah keinginan untuk menjalin kasih ..

Meski pada awalnya aku tak mengerti tentang cinta ..

Namun,.pada akhirnya aku mengerti cinta itu adalah sebuah jalinan kasih yang begitu sederhana ..

Menyatukan suatu persamaan maupun perbedaan ..

Kar’na cinta ini pula ..,

Aku dapat memaknai apa itu hidup dan atribut-atribut yang ada didalamnya ..

Kita membangun cinta ini mulai dari hal kecil ..

Mulai saling mengenal diri kita masing-masing ..

Tak ada janji-janji indah yang kadang akan membuat kita terlena ..

Dan akhirnya terjebak dalam kepalsuan ..

ASLNK-22012012

Program C++

INVENTORY PERPUSTAKAAN

#include <conio.h>

#include <stdio.h>

#include <iostream.h>

main()

{

int  kb,loker;

char lagi,enter,jb;

atas:

clrscr();

cout<<"\t\t\tPERPUSTAKAAN"<<endl;

cout<<"\t\tAMIKOM CIPTA DARMA SURAKARTA"<<endl;

cout<<"\t\t\t***********\n"<<endl;

cout<<"=============================================<<endl;

cout<<"| Jenis Buku | Kode Buku |      Judul Buku               | Jumlah Buku  |"<<endl;

cout<<"=============================================<<endl;

cout<<"|     A            |    001          |  Akuntansi Dasar         |          5           |"<<endl;

cout<<"|                    |    002          |  Akuntansi Menengah  |           4          |"<<endl;

cout<<"|                    |    003          |  Akuntansi Lanjutan     |          5           |"<<endl;

cout<<"--------------------------------------------------------------------"<<endl;

cout<<"|     M            |    004         |  Corel Draw X4          |           7          |"<<endl;

cout<<"|                    |    005         |  Photoshop CS3          |           4           |"<<endl;

cout<<"|                    |    006         |  After Effect CS3         |          6           |"<<endl;

cout<<"|                    |    007         |  Premiere Pro CS3      |           5          |"<<endl;

cout<<"-------------------------------------------------------------------"<<endl;

cout<<"|     P             |      010      |  Turbo Pascal              |           4         |"<<endl;

cout<<"|                    |       011      |  Turbo C++                |           3         |"<<endl;

cout<<"|                    |       012      |  Java                           |            5        |"<<endl;

cout<<"|                    |       013      |  Delphi                        |            5        |"<<endl;

cout<<"============================================"<<endl;

cout<<"\n"<<endl;

{

cout<<"Ketik Jenis Buku : ";cin>>jb;

cout<<"Ketik Kode Buku  : ";cin>>kb;

if (jb=='A')

switch(kb)

{

case 001:loker=1;break;

case 002:loker=2;break;

case 003:loker=3;break;

default:loker=0;break;

}

else if (jb=='M')

switch(kb)

{

case 004:loker=4;break;

case 005:loker=5;break;

case 006:loker=6;break;

case 007:loker=7;break;

default:loker=0;break;

}

else if (jb=='P')

switch(kb)

{

case 010:loker=8;break;

case 011:loker=9;break;

case 012:loker=10;break;

case 013:loker=11;break;

default:loker=0;break;

}

else

{cout<<"\nMaaf, Anda salah memasukan Jenis Buku (GUNAKAN HURUF KAPITAL)";

cout<<"\nMOHON TEKAN (N) LALU ENTER UNTUK MENCARI KEMBALI : ";cin>>enter;

if(enter=='N'||enter=='n')

goto atas;

else

cout<<"\tDATA EROR";

goto bawah;}

cout<<"_____________________"<<endl;

cout<<"Nomor Loker Buku : "<<loker<<endl;

}

cout<<"\nIngin Cari Lagi [Y/N]          : ";cin>>lagi;

if (lagi=='Y'||lagi=='y')

goto atas;

else

cout<<"\n SELAMAT BELAJAR "<<endl;

bawah:

getch();

}