Cara menggunakan Visual Basic meng-Upgrade Wizard

1. Pada Mulai menu, titik Program, arahkan ke Microsoft Visual Studio 6.0, lalu klik Microsoft Visual Basic 6.0.
2. Dalam Proyek baru kotak dialog, klik Standar EXE, lalu klik Terbuka.
3. Bentuk pertama dalam aplikasi ini menggunakan ADO untuk mengambil Recordset, dan kemudian menampilkan recordset di Microsoft hirarkis FlexGrid Kontrol. Dalam Nama lapangan dari Properti kotak dialog untuk Form1, jenisfrmADO.
4. Jika Toolbox tidak terbuka, pada Lihat menu, klik Toolbox.
5. Dari Toolbox, tempat MSHFlexGrid pada bentuk jadi itu mengisi sebagian besar bentuk. Meninggalkan cukup ruang di bawah bentuk untuk menempatkan tombol.
   
   CATATAN: Jika Anda tidak melihat MSHFlexGrid ikon di Toolbox, menambahkannya ke Toolbox. Klik kanan Toolbox, dan kemudian klik Komponen. Dalam Komponen kotak dialog, klik untuk memilih Microsoft FlexGrid hirarkis kontrol 6.0 (OLEDB) dari daftar komponen yang tersedia, dan kemudian klik Oke.
6. Dari Toolbox, tempat CommandButton di formulir di bawah ini MSHFlexGrid. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Oke.
7. Klik kanan mADO, lalu klik Lihat kode. Tambahkan kode berikut, yang menciptakan koneksi database dan mengembalikan recordset yang berisi semua data dari Produk Tabel Northwind database.
   
   CATATAN: Dalam kode contoh berikut, Anda harus mengubah user id =<username></username> dan password =<strong password=""></strong> untuk nilai-nilai yang benar. Pastikan bahwa ID pengguna memiliki izin yang sesuai untuk melakukan operasi ini pada database.
   
   

   Private Sub Command1_Click()
       Unload Me
   End Sub
   
   Private Sub Form_Load()
       Dim cn As Connection
       Set cn = New Connection
       cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;

   database=northwind;user id=<username>;password=<strong password>"
       cn.Open
       
       Dim rs As Recordset
       Set rs = New Recordset
       rs.CursorLocation = adUseClient
       rs.Open "select * from products", cn
       
       Set MSHFlexGrid1.DataSource = rs
   End Sub
   					

8. Tekan CTRL + S untuk menyimpan formulir. Pada Berkas menu, klik Simpan sebagai. Dalam Simpan sebagai kotak dialog, klik Simpan.
9. Dalam proyek Explorer, klik kanan Project1, klik Tambahkan, lalu klik Bentuk. Klik Terbuka.
10. Dalam Nama lapangan dari Properti kotak dialog, jenis frmClipboard.
11. Dari Toolbox, tempat Textbox pada form. Dalam Teks lapangan, jenis The quick brown fox melompati malas anjing.
12. Tempat CommandButton di bawah ini Textbox. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Salin.
13. Tempat kedua CommandButton pada form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Pasta.
14. Klik kanan frmClipboard, lalu klik Lihat kode. Paste kode berikut untuk CommandButton klik peristiwa. Kode ini menggunakan Clipboard objek untuk mendapatkan dan paste teks:
    
    

    Private Sub Command1_Click()
        Clipboard.SetText Text1.SelText
    End Sub
    
    Private Sub Command2_Click()
        Text1.SelText = Clipboard.GetText
    End Sub
    					

15. Tekan CTRL + S untuk menyimpan formulir.
16. Bentuk terakhir yang Anda butuhkan adalah bentuk utama dari aplikasi. Dalam proyek Explorer, klik kanan Project1, klik Tambahkan, klik Bentuk, lalu klik Terbuka.
17. Dalam Nama lapangan dari Properti kotak dialog, jenis frmMain.
18. Dari Toolbox, tempat CommandButton pada frmMain form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis ADO.
19. Tempat kedua CommandButton pada form. Dalam Keterangan lapangan dari Properti kotak dialog, jenis Clipboard.
20. Klik kanan frmMain, lalu klik Lihat kode. Paste kode berikut untuk CommandButton klik peristiwa, untuk menunjukkan dua bentuk:
    
    

    Private Sub Command1_Click()
        frmADO.Show
    End Sub
    
    Private Sub Command2_Click()
        frmClipboard.Show
    End Sub
    					

21. Tekan CTRL + S untuk menyimpan formulir.
22. Dalam solusi Explorer, klik kanan Project1, lalu klik Project1 properti. Dalam Startup objek lapangan, klik frmMain, lalu klik Oke.
23. Untuk menambahkan referensi ke komponen ADO, pada Project menu, klik Referensi. Dalam daftar referensi yang tersedia, klik untuk memilih Perpustakaan objek Microsoft ActiveX Data (versi 2.0 atau yang lebih baru akan melakukan). Klik Oke.
24. Untuk mengkompilasi proyek, pada Berkas menu, klik Membuat Project1.exe. Dalam Membuat proyek kotak dialog, klik Oke (menerima nama file standar).
25. Tekan F5 untuk menjalankan aplikasi dalam modus debug.
    
    CATATAN: Anda tidak perlu untuk memverifikasi bahwa warisan Visual Basic aplikasi berjalan tanpa masalah sebelum Anda meng-upgrade.
26. Tutup lingkungan pengembangan Visual Basic. Pada meminta untuk menyimpan perubahan ke proyek, klik Ya. Menggunakan nama standar dan menyimpan proyek.
27. Pada Mulai menu, titik Program, arahkan ke Microsoft Visual Studio.NET, lalu klik Microsoft Visual Studio.NET.
28. Pada halaman mulai, klik Proyek terbuka. Temukan folder yang berisi proyek Visual Basic 6.0 file yang Anda baru saja dibuat (biasanya c: program files Microsoft Visual Studio\VB98). Klik Project1.VDP, lalu klik Terbuka.
29. Visual Studio.NET mendeteksi bahwa ini adalah Visual warisan Dasar proyek dan mulai Visual Basic meng-Upgrade Wizard. Wisaya menampilkan deskripsi dari setiap langkah sebagai Anda melanjutkan melalui langkah-langkah berikut urutan:
    • Membuat proyek baru di mana ada proyek upgrade.
    • Salin file bentuk dan kelas file ke baru proyek.
    • Memberikan laporan upgrade yang berisi daftar komponen proyek yang ditingkatkan berhasil dan komponen yang tidak meng-upgrade berhasil.
30. Klik Berikutnya melalui setiap langkah-langkah sampai proses upgrade dimulai. The upgrade memakan waktu sekitar 30-60 detik untuk menyelesaikan.
31. Pada solusi Explorer, klik dua kali _UpgradeReport.htm. Laporan ini menampilkan hasil upgrade. Perhatikan bahwa semua bentuk kecuali frmClipboard upgrade tanpa masalah apapun.
32. Memperluas frmClipboard.vb untuk melihat isu-isu. Clipboard.SetText dan GetText tidak meng-upgrade dengan baik. Klik link di Deskripsi untuk melihat bagaimana untuk memperbaiki masalah.
33. Dalam Explorer solusi, perhatikan bahwa semua bentuk disimpan nama asli mereka, tapi ekstensi file berubah dari .frm untuk . BASIC.
34. Memperluas Referensi. Perhatikan bahwa referensi untuk semua komponen yang diperlukan untuk menggunakan warisan komponen Visual Basic dan ADO ditambahkan secara otomatis.
35. Klik kanan salah satu bentuk, dan kemudian klik Lihat kode. Memperluas Meng-upgrade dukungan daerah. Daerah ini menampilkan bagaimana Visual Studio.NET atau Visual Studio 2005 dikonfigurasi berbagai properti dan variabel untuk mendukung kode upgrade.
36. Dalam solusi Explorer, klik kanan frmClipboard.vb, lalu klik Lihat kode. Perhatikan bahwa ada Komentar ditempatkan sebelum baris yang melakukan upgrade.
37. Perubahan Command1_Click dan Command2_Click peristiwa berikut:
    
    

    Private Sub Command1_Click(ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) Handles Command1.Click
            Clipboard.SetDataObject(Text1.Text)
        End Sub
    
        Private Sub Command2_Click(ByVal eventSender As System.Object, _
        ByVal eventArgs As System.EventArgs) Handles Command2.Click
            Text1.SelectedText = _
                Clipboard.GetDataObject().GetData(GetType(System.String))
        End Sub
    					

Kembali ke atas

Daftar kode lengkap

Complete kode kode (frmADO.frm)

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim cn As Connection
    Set cn = New Connection
    cn.ConnectionString = "Provider=sqloledb;Data Source=localhost;

    database=northwind;user id=<username>;password=<strong password>"
    cn.Open
    
    Dim rs As Recordset
    Set rs = New Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from products", cn
    
    Set MSHFlexGrid1.DataSource = rs
End Sub
				

Complete kode kode (frmClipboard.frm)

Private Sub Command1_Click()
    Clipboard.SetText Text1.SelText
End Sub

Private Sub Command2_Click()
    Text1.SelText = Clipboard.GetText
End Sub

Complete Code Listing (frmMain.frm)
Private Sub Command1_Click()
    frmADO.Show
End Sub

Private Sub Command2_Click()
    frmClipboard.Show
End Sub
				

Kembali ke atas

Memverifikasi bahwa aplikasi bekerja

1. Tekan F5 untuk memulai aplikasi.
2. Pada prompt untuk menyelamatkan proyek, klik Oke.
3. Pada Form1, klik ADO. Bentuk muncul yang berisi data dalam grid. Dekat ini bentuk.
4. Pada Form1, klik Clipboard.
5. Klik Salin.
6. Tempat titik penyisipan di kotak teks pada awal teks, dan kemudian klik Pasta. Anda akan melihat teks yang disisipkan.

Kembali ke atas