Menghilangkan Pesan Error pada Windows XP

Pernah melihat gambar disamping ini? ya, ini adalah gambar pesan kesalahan setiap kali Windows XP mengeksekusi perintah yang diberikan dan tidak mampu untuk melakukannya. Jika dipikir-pikir, pesan seperti ini sebenarnya sangat tidak efisien bagi kita, walaupun bagi pihak Microsoft, pesan ini sangat bermanfaat jika Anda mau menindaklanjuti, tentu saja dengan menekan tombol Send Error Report, syaratnya Anda harus terkoneksi internet. Pesan kesalahan ini nantinya akan masuk ke database Microsoft untuk diteliti dan dicarikan solusi untuk mengatasi masalah ini agar tidak terulang kembali. Tapi ingat, sistem oparasi yang digunakan harus original, bukan bajakan.

Untuk Anda yang tidak mau repot, atau Anda yang tidak punya koneksi internet, sebenarnya pesan kesalahan ini bisa diset agar tidak pernah tampil saat Windows tidak mampu melakukan peritah yang diberikan. Bagaimana caranya? Ikuti langkah-langkahnya berikut ini :

1. Buka Control Panel dan lakukan dobel klik pada pilihan System, atau bisa dengan melakukan klik kanan pada MyComputer kemudian pilih Properties.
2. Pada kotak dialog System Properties yang muncul pilih tab Advance.
3. Pada tab Advance carilah tombol Error Reporting dan klik.
4. Pada layar dialog Error Reporting yang muncul, pilih pilihan Disable error reporting.
5. Sekarang dijamin Windows tidak akan menampilkan pesan error yang mengganggu lagi.

Cara ini bisa diterapkan pada sistem operasi Windows XP. Selamat mencoba, semoga bermanfaat.

Menyimpan gambar ke dalam database MySQL dengan VB 6.0

Artikel sebenarnya banyak di Internet, Cuma saya ketik ulang

Pertama buat database dan tabelnya di MySQL contoh

Create database dbanggota;
use dbanggota;

Create anggota(NO int primary key, Nama varchar(25), Alamat Varchar(40), Foto LongBlob);


buka VB, buat Project

'~~~~~~~ General ~~~~~~
Dim con as new ADODB.Connection
Dim Rs as new ADODB.Recordset

'~~~~~~ Load ~~~~~~~

if con.state=adstateClosed then
Con.Open "DSN=MyDSN"
else
Con.Close
Con.Open "DSN=MyDSN"
End If

'~~~~~~~~ Simpan ~~~~~~~
dim gb as ADODB.Stream
gb.Type=AdTypeBinary
gb.Open

rs.Open "Select * from anggota where no='" & Text1 & "'",Con,adOpenStatic,adLockOptimistic

if Not Rs.eof Then
  MsgBox "Data Sudah Ada!",64,"Info"
Else
  Rs.AddNew
  rs!no=Text1
  rs!nama=text2
  rs!alamat=text3
  gb.LoadFromFile ("D:\Foto1.Jpg")
  rs("Foto").Value=gb.Read
  rs.Update
End If
set gb=Nothing

Selamat Mencoba
 
End If