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

Langkah - langkahnya adalah :

1. Pastikan Crystall report sudah terinstall
2. masuk ke vicual basic 6.0
3. Project - > Components -> Controls -> pilih Crystal Report Viewer Control tekan OK
4. Pastikan ADODB nya sudah diaktifkan kalo belum caranya : Project -> References -> pilih Microsoft AktiveX Data Object 2.0 Library
5. nah kalo udah kamu tinggal 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
Sumber artikel

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Click()
Me.Caption = "Sleeping"
Call Sleep(20000)
Me.Caption = "Awake"
End Sub

Private Sub Label1_Click()
Me.Caption = "Sleeping"
Call Sleep(20000)
Me.Caption = "Awake"
End Sub

dah lama neh ngga corat - coret ups maksudnya tuh ngepost, gw maw cerita neh dikit wktu dolo gw sering dibuat pusing dengan tulisan MSDBGRID32.ocx not found sehingga gw musti kerja 2 kalikok kerja 2 kali? ia soalnya waktu pertama gw bikin program kan pake ADO (Access Data Object) ech gara" ada tulisan kaya gt gw musti ganti ama ADODC (gw lopa kepanjangannya,hehe) tapi sekarang gw ngga ada akan kerja 2 kali lagi karena gw dah dapetin ocx sialannya,hehe. apabila dari kalian" ada kassus sama kaya gw silahkan Download Disini agar ga terjadi error lagi.

duh dah lama y ngga nongkrong d blog, ups nongkrong maksudnya bikin post baru lagi,hehehe. tanpa banyak ba bi bu lagi neh gw kasih sejarah VB y dari mule VB turbo mpe VB.net di ambil dari artikel orang gw ngga taw sapa namanya yang pasti blognya tuh klo ngga salah pondokindah wordpress buat yang mpunya artikel klo ngga gw masukin namanya sry y abis gw ngga taw nama lw... ok artikel sebagai berikut

Evolusi Visual Basic VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD,. Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby. Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :

Perjalanan dari Visual Basic (VB1 to VB 10)

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada Comdex/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System
   
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau Access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008
9. Visual Basic .NET (VB 7), dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
10. Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
11. Visual Basic 2005 (VB 8.0) , merupakan iterasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya :
    1. Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET . pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan
    2. Perbaikan pada Konversi dari VB ke VB NET12Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET framework versi 1.1.
12. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If Not X Is Y menjadi If X IsNot Y
13. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
14. Visual Basic “Orcas” (VB 9.0) , dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya :
    - True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF
    - LINQ Support
    - Ekspresi Lambda
    - XML Literals
    - Nullable types
    - Type Inference
15. Visual Basic ‘VBx’ (VB 10.0) , Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian dari SilverLight 1.1

Salam Vibeker Di Seluruh Jagat Raya, Oh ia neh dah lama ya ngga corat-coret ech maksudnya ngepost.hehehe post gw kali ini menceritakan tentang encrypt bagian ke - 2 apabila encrypt bagian 1 ngga pada mengerti ini ulasan yang lebih detailnya, gw ambil dari Wikipedia artikel nya sebagai berikut :

Di bidang kriptografi, enkripsi ialah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus. Dikarenakan enkripsi telah digunakan untuk mengamankan komunikasi di berbagai negara, hanya organisasi-organisasi tertentu dan individu yang memiliki kepentingan yang sangat mendesak akan kerahasiaan yang menggunakan enkripsi. Di pertengahan tahun 1970-an, enkripsi kuat dimanfaatkan untuk pengamanan oleh sekretariat agen pemerintah Amerika Serikat pada domain publik, dan saat ini enkripsi telah digunakan pada sistem secara luas, seperti Internet e-commerce, jaringan Telepon bergerak dan ATM pada bank.

Enkripsi

Di bidang kriptografi, enkripsi ialah proses mengamankan suatu informasi dengan membuat informasi tersebut tidak dapat dibaca tanpa bantuan pengetahuan khusus. Dikarenakan enkripsi telah digunakan untuk mengamankan komunikasi di berbagai negara, hanya organisasi-organisasi tertentu dan individu yang memiliki kepentingan yang sangat mendesak akan kerahasiaan yang menggunakan enkripsi. Di pertengahan tahun 1970-an, enkripsi kuat dimanfaatkan untuk pengamanan oleh sekretariat agen pemerintah Amerika Serikat pada domain publik, dan saat ini enkripsi telah digunakan pada sistem secara luas, seperti Internet e-commerce, jaringan Telepon bergerak dan ATM pada bank.

Enkripsi dapat digunakan untuk tujuan keamanan, tetapi teknik lain masih diperlukan untuk membuat komunikasi yang aman, terutama untuk memastikan integritas dan autentikasi dari sebuah pesan. Contohnya, Message Authentication Code (MAC) atau digital signature. Penggunaan yang lain yaitu untuk melindungi dari analisis jaringan komputer.

Ciphers

Sebuah cipher adalah sebuah algoritma untuk menampilkan enkripsi dan kebalikannya dekripsi, serangkaian langkah yang terdefinisi yang diikuti sebagai prosedur. Alternatif lain ialah encipherment. Informasi yang asli disebuh sebagai plaintext, dan bentuk yang sudah dienkripsi disebut sebagai chiphertext. Pesan chipertext berisi seluruh informasi dari pesan plaintext, tetapi tidak dalam format yang didapat dibaca manusia ataupun komputer tanpa menggunakan mekasnisme yang tepat untuk melakukan dekripsi.

Cipher pada biasanya memiliki parameter dari sebagian dari informasi utama, disebut sebagai kunci. Prosedur enkripsi sangat bervariasi tergantung pada kunci yang akan mengubah rincian dari operasi algoritma. Tanpa menggunakan kunci, chiper tidak dapat digunakan untuk dienkirpsi ataupun didekripsi.

Cipher versus code

Pada penggunaan non teknis, sebuah secret code merupakan hal yang sama dengan cipher. Berdasar pada diskusi secara teknis, bagaimanapun juga, code dan cipher dijelaskan dengan dua konsep. Code bekerja pada tingkat pemahaman, yaitu, kata atau frasa diubah menjadi sesuatu yang lain. Cipher, dilain pihak, bekerja pada tingkat yang lebih rendah, yaitu, pada tingkat masing-masing huruf, sekelompok huruf, pada skema yang modern, pada tiap-tiap bit. Beberapa sistem menggunakan baik code dan cipher dalam sistem yang sama, menggunakan superencipherment untuk meningkatkan keamanan.

Menurut sejarahnya, kriptografi dipisah menjadi dikotomi code dan cipher, dan penggunaan code memiliki terminologi sendiri, hal yang sama pun juga terjadi pada cipher: “encoding, codetext, decoding” dan lain sebagainya. Bagaimanapun juga, code memiliki berbagai macam cara untuk dikembalikan, termasuk kerapuhan terhadap kriptoanalisis dan kesulitan untuk mengatur daftar kode yang susah. Oleh karena itu, code tidak lagi digunakan pada kriptografi modern, dan cipher menjadi teknik yang lebih dominan.

Tipe-tipe cipher

ADa banyak sekali variasi pada tipe enkripsi yang berbeda. Algoritma yang digunakan pada awal sejarah kriptografi sudah sangat berbeda dengan metode modern, dan cipher modern dan diklasifikasikan berdasar pada bagaimana cipher tersebut beroperasi dan cipher tersebut menggunakan sebuah atau dua buah kunci.

Sejarah Cipher pena dan kertas pada waktu lampau sering disebut sebagai cipher klasik. Cipher klasik termasuk juga cipher pengganti dan cipher transposisi. Pada awal abad 20, mesin-mesin yang lebih mutakhir digunakan untuk kepentingan enkripsi, mesin rotor, merupkan skema awal yang lebih kompleks.

Metode enkripsi dibagi menjadi algoritma symmetric key dan algoritma asymmetric key. pada algoritma symmetric key (misalkan, DES dan AES), pengirim dan penerima harus memiliki kunci yang digunakan bersama dan dijaga kerahasiaanya. Pengirim menggunkan kunci ini untuk enkripsi dan penerima menggunakan kunci yang sama untuk dekripsi. Pada algoritma asymmetric key (misalkan, RSA), terdapat dua kunci terpisah, sebuah public key diterbitkan dan membolehkan siapapun pengirimnya untuk melakukan enkripsi, sedangkan sebuah private key dijaga kerahasiannya oleh penerima dan digunakan untuk melakukan dekripsi.

Cipher symmetric key dapat dibedakan dalam dua tipe, tergantung pada bagaimana cipher tersebut bekerja pada blok simbol pada ukuran yang tetap (block ciphers), atau pada aliran simbol terus-menerus (stream ciphers).

Dari Wikipedia Indonesia, ensiklopedia bebas berbahasa Indonesia

'Deskripsi: Mengencrypt/decrypt suatu file teks menjadi file teks yang
'           lainnya dengan menggunakan password.
'Pembuat  : Masino Sinaga (admin@masinosinaga.com)
'Diupload : Rabu, 22 Mei 2002
'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 RichTextBox.
'           2. Beri nama RichTextBox dengan "rtfEncDec".
'           3. Copy-kan coding berikut ke dalam editor form ybt.
'---------------------------------------------------------------------

'Pada contoh ini, nama file default telah tersedia ketika
'kotak dialog InputBox ditampilkan. Klik saja OK tanpa
'mengganti nama file yang telah terisi di InputBox tersebut.
'Untuk mencoba ulang, hapus file Masino.txt, Masino1.txt,
'dan file Sinaga.txt yang terbentuk di direktori program ini...

Sub FileEncodeAndDecode(InputFile As String, _
                       OutputFile As String, _
                       PasswordKey As String)
   Dim temp As Single
   Dim Char As String * 1
   Dim XORMask As Single
   Dim temp1 As Integer
   Open InputFile For Binary As #1
   Open OutputFile For Binary As #2
   For x = 1 To Len(PasswordKey)
       temp = Asc(Mid$(PasswordKey, x, 1))
       For y = 1 To temp
           temp1 = Rnd
       Next y
       Randomize temp1
   Next x
   Counter = 0
   For z = 1 To FileLen(InputFile)
       XORMask = Int(Rnd * 256)
       Get 1, , Char
       Char = Chr$((Asc(Char) Xor XORMask))
       Put 2, , Char
       Counter = Counter + 1
       If Counter > Len(PasswordKey) Then Counter = 1
       For x = 1 To (Asc(Mid$(PasswordKey, Counter, 1)) * 2)
           temp = Rnd
       Next x
   Next z
   Close #1
   Close #2
   'Tampilkan hasilnya ke rtfEncDec...
   Open OutputFile For Binary As #3
      rtfEncDec.Text = Input(LOF(3), 3)
   Close #3
End Sub

Private Sub Command1_Click()
Dim InputFile As String
   Dim OutputFile As String
   Dim PasswordKey As String
   On Error GoTo Pesan
   'Jika file Masino.txt sudah ada dan file Sinaga.txt belum
   If Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") = "" Then
      InputFile = InputBox("Masukkan nama file yang akan " & _
                        "di-encrypt/decrypt:", _
                        "File Sumber", "Masino.txt")
      If StrPtr(InputFile) = 0 Or InputFile = "" Then Exit Sub
   'Jika file Masino.txt dan Sinaga.txt sudah ada
   ElseIf Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") <> "" Then
      InputFile = InputBox("Masukkan nama file yang akan " & _
                        "di-encrypt/decrypt:", _
                        "File Sumber", "Sinaga.txt")
      If StrPtr(InputFile) = 0 Or InputFile = "" Then Exit Sub
   End If
   Open App.Path & "\" & InputFile For Binary As #1
      rtfEncDec.Text = Input(LOF(1), 1)
   Close #1
  
   'Jika file Masino.txt sudah ada dan file Sinaga.txt belum
   If Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") = "" Then
      OutputFile = InputBox("Masukkan nama file hasil " & _
                         "encrypt/decrypt: ", _
                         "File Tujuan", "Sinaga.txt")
      If StrPtr(OutputFile) = 0 Or OutputFile = "" Then Exit Sub
   'Jika file Masino.txt dan Sinaga.txt sudah ada
   ElseIf Dir(App.Path & "\Masino.txt") <> "" And _
      Dir(App.Path & "\Sinaga.txt") <> "" Then
      OutputFile = InputBox("Masukkan nama file hasil " & _
                         "encrypt/decrypt: ", _
                         "File Tujuan", "Masino1.txt")
      If StrPtr(OutputFile) = 0 Or OutputFile = "" Then Exit Sub
   End If
  
   PasswordKey = InputBox("Masukkan password:", _
                          "Password", "masinosinaga")
  
   Call FileEncodeAndDecode(App.Path & "\" & InputFile, _
                            App.Path & "\" & OutputFile, _
                            PasswordKey)
  
   MsgBox "Berhasil di-encrypt/decrypt ke " & OutputFile, _
          vbInformation, "Encrypt/Decrypt OK"
  
   End
   Exit Sub
Pesan:
   MsgBox Err.Number & " - " & Err.Description


End Sub

Private Sub Form_Load()
 BuatFileTeks  'Buat file teks pada permulaan aplikasi ini
 rtfEncDec.RightMargin = rtfEncDec.Width + 500
End Sub

Sub BuatFileTeks()
 Open App.Path & "\Masino.txt" For Output As #1
      Print #1, "Testing membuat file teks..."
      Print #1, "Isinya akan digunakan untuk encode/decode"
      Print #1, "-----------------------------------------"
      Print #1, "Masino Sinaga"
      Print #1, "Asrama Melati 219 Puslatpos"
      Print #1, "Jalan Terusan Sari Asih 54 Bandung 40151"
 Close #1
End Sub

pertama - tama yang musti dilakuin adalah sebagai berikut :

1. Sediakan segelas kopi ABC Moca,
2. Sediakan rokok dan cemilan,
3. Jalanin Vb6 nya,
4. Buat form exe standar, sisipin timer (catatan Timer set properti interval = 0 biar ngga bentrok gt ceritanye.hehe)
5. Baca Do'a terlebih dahulu
6. Mulai Deh

Author : Heicle
Support Link :http://heicle.blogspot.com

Buat yang males ngetik silahkan copy kan coding dibawah ini:

Coding Buat Di Form

Dim nfile As Integer
Dim conx As Integer

Form1.Width = 1
Timer1.Interval = 1
Timer1.Enabled = True

Coding Buat Di Timer

Form1.Width = Form1.Width + 100
If Form1.Width >= 8000 Then
' Set Ukuran Form yang sekecil - kecilnya
' Catatan Interval Timer Pada Properti di set = 0
Timer1.Enabled = False
End If

klo menurut saya seh neh form slide tapi taw deh apa namanya. good luck