Like The Sun

Sun Basket

2009-09-26T06:38:00.001-07:00

Team

2009-08-16T08:29:00.001-07:00

Skuad Bayer Munich 100 Tahun Kemudian

2009-08-13T01:32:00.000-07:00

Jenis-jenis Error pada Vb dan cara menanganinya

2009-06-15T05:46:00.000-07:00

Terdapat tiga kategori kesalahan :

1. Syntax Errors, adalah kesalahan pada penulisan kode program.

2. Run-Time Errors, adalah pada waktu program berjalan. Contoh : file tidak ada data dalam database, terjadi pembagian dengan nol.

3. Logic Errors, adalah kesalahanyang berupa hasil / output yang tidak diharapkan karena kesalahan implementasi logika pada program.

Berikut adalah beberapa cara untuk menangani Run-Time Error, yaitu Error Trapping dilakukan dengan menggunakan statement on Error :

on Error Go To Errlabel

Errlabel adalah sebuah label. Cara membuat label adalah dengan membuat nama label diikuti dengan ":". Contohnya :

Sub SubExample()

On Error Go To HandleErrors

' [procedure code]

Exit Sub

HandleErrors:

' [Error Handling Code]

End Sub

Atau

On Error Go To 0, digunakan untuk menghilangkan error trapping.

Obyek Err mempunyai properti nomor (Err.Number) dan properti deskripsi (Err.Description). Untuk menggambil deskripsi dari nomor kesalahan yang terjadi dapat menggunakan fungsi Error().

Setelah terjadi kesalahan dan dilakukan error trapping, maka ada beberapa cara untuk kembali ke program :

- Resume, langkah kompilasi / eksekusi program akan kembali ke statement penyebab kesalahan.

- Resume Next, langkah kompilasi / eksekusi program akan dilanjutkan ke statement berikutnya.

- Resume Label, langkah kompilasi / eksekusi program akan menuju pada label yang ditentukan.

Untuk menampilkan kesalahan nomor berapa yang terjadi dapat digunakan method Raise. Contohnya :

Err.Raise Number

Sedangkan untuk menghilangkan kesalahan yang terjadi dapat digunakan method Clear. Contohnya :

Err.Clear

Mengakses database dengan menggunakan Script pada Visual Basic

2009-06-15T05:44:00.000-07:00

Kita juga dapat mengakses database melalui kode program pada visual basic. Caranya :

· Buatlah sebuah project baru pada VB, dengan objek-objek Form1, DataGrid1, Adodc1.

· Buatlah variable global yang akan mewakili ADODB Connection

Contoh : Public ADOCon As New ADODB.Connection

· Membuat seting ADODB Connetion. Disarankan untuk membuat seting tersebut pada prosedur yang terpisah.

Contoh :

Sub SetConn()

ADOCon.ConnectionString = connection_string

If ADOCon.State = adstateOpen Then

‘ do nothing

Else

ADOCon.Open ADOCon.ConnectionString

End if

End sub

ADODB ConnectionString bisa didapatkan dengan cara membuat connection string pada ADodc, kemudian di-copy.

· Membuat seting ADODC Source, juga disarankan untuk membuatnya pada prosedur yang terpisah.

Contoh :

Public sub SetADOSource (conName as ADDB.Connection, adoname as Adodc, adosql as string)

If adosql <> “” then

With adoname

.connectionString = conname

.commandType = adCmdText

.cursorType = adOpenStatic

.LockType = adLockReadOnly

.RecordSource = adosql

.Refresh

End with

Adosql = “”

End if

End sub

· Untuk mengetahui hasilnya kita dapat memanggil prosedur-prosedur tersebut dengan memasukan nilai pada parameter-parameter yang telah ditentukan.

Contoh :

Private sub Form_Load()

Dim SQLText As String

setConn

SQLText = “SELECT * FROM Mahasiswa”

SetADOSource ADOCon, Adodc1,SQLText

Set DataGrid1.DataSource = Adodc1

End sub

· Untuk menghindari terjadinya konflik dan untuk melakukan pembebasan terhadap memori yang digunakan, kita jangan lupa untuk menutup semua koneksi serta membebaskan memori saat keluar dari program.

Contoh :

Private Sub Form_Unload(Cancel as Integer)

Set DataGrid1.dataSource = Nothing

If ADOCon.State = adStateOpen then ADOCon.Close

Seet ADOCon = Nothing

End sub

Menggunakan Crystal Report 8.5 pada vb dengan script

2009-06-15T05:40:00.000-07:00

Menggunakan Crystal Report 8.5 pada vb memang banyak cara, bisa gunakan data environment untuk Connection ke databasenya atau bisa juga menggunakan Crviewer dan kita kirim parameternya dalam crviewer tersebut.

Langkah - langkahnya adalah :

Pastikan Crystall report sudah terinstall
masuk ke vicual basic 6.0
Project - > Components -> Controls -> pilih Crystal Report Viewer Control tekan OK
Pastikan ADODB nya sudah diaktifkan kalo belum caranya : Project -> References -> pilih Microsoft AktiveX Data Object 2.0 Library

Tulis script untuk Koneksi databasenya :
- buat form baru dengan nama frmtest dan tulis script di bawah ini :

<====startscript====> dim dbconn as New.ADODB.connection Public Sub koneksi_database()     On Error GoTo NoConn     With dbconn         If .State = adStateOpen Then Exit Sub         .CursorLocation = adUseClient         .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=dba;Data Source="

Mengubah tampilan VB ke XP tanpa OCX

2009-06-15T05:32:00.001-07:00

tampilan dari VB memang bisa diubah tampilanya dengan menggunakan file *.ocx tambahan atau dengan menggunakan software tambahan. tapi kali ini yang digunakan bukanlah menggunakan *.ocx atau program, tetapi menggunakan script xml. Adapun scriptnya adalah sebagai berikut :

Copykan script xml tersebut ke dalam notepad lalu simpan file tersebut dengan nama vb6.exe.manifest.

Kemudian letakkan file tadi ke tempat dimana Visual Basic 6.0 Ter-install (biasanya ada di c:/Program Files/Microsoft Visual Studio/vb98/).

Jalankan Visual Basic dan tambahkan beberapa komponen, maka akan terlihat perubahannya.

Jika Project sudah selesai dan telah di compile, maka copy kan juga file menifest tadi ke directory tempat program berada dan ganti namanya dengan namaprogram.exe.manifest, contoh : program bernama project1.exe dan terletak di directory D:\project1, maka copy kan dan beri nama file manifest tadi dengan nama project1.exe.manifest dan letakkan di D:\project1 juga.