Bạn hiện đang ngoại tuyến, hãy chờ internet để kết nối lại

Làm thế nào để sử dụng thuật sĩ Visual Basic nâng cấp

QUAN TRỌNG: Bài viết này được dịch bằng phần mềm dịch máy của Microsoft chứ không phải do con người dịch. Microsoft cung cấp các bài viết do con người dịch và cả các bài viết do máy dịch để bạn có thể truy cập vào tất cả các bài viết trong Cơ sở Kiến thức của chúng tôi bằng ngôn ngữ của bạn. Tuy nhiên, bài viết do máy dịch không phải lúc nào cũng hoàn hảo. Loại bài viết này có thể chứa các sai sót về từ vựng, cú pháp hoặc ngữ pháp, giống như một người nước ngoài có thể mắc sai sót khi nói ngôn ngữ của bạn. Microsoft không chịu trách nhiệm về bất kỳ sự thiếu chính xác, sai sót hoặc thiệt hại nào do việc dịch sai nội dung hoặc do hoạt động sử dụng của khách hàng gây ra. Microsoft cũng thường xuyên cập nhật phần mềm dịch máy này.

Nhấp chuột vào đây để xem bản tiếng Anh của bài viết này: 317885
TÓM TẮT
Bài viết này-by-step giải thích làm thế nào để tạo một đơn giản Visual Basic 6.0 ứng dụng, và sau đó nâng cấp các ứng dụng để Visual Basic .Net hoặc Visual Basic 2005 bằng cách sử dụng thuật sĩ Visual Basic nâng cấp trong Visual Studio net hoặc trong Visual Studio 2005.

Lưu ý Thuật sĩ nâng cấp .net của Visual Basic được bao gồm trong Visual Phòng thu .net chuyên nghiệp.

Lưu ý Thuật sĩ nâng cấp 2005 Visual Basic đã được tăng cường từ phiên bản trước của Visual Basic. back to the top

Yêu cầu

Các mục sau đây mô tả các phần cứng được giới thiệu, phần mềm, cơ sở hạ tầng mạng, kỹ năng, kiến thức và bản ghi dịch vụ gói cần thiết:
  • Microsoft Windows 2000 Professional (hoặc máy chủ), hoặc Microsoft Windows XP Professional (hoặc máy chủ) với Khuôn khổ .NET cài đặt chuyên biệt
  • Microsoft Visual Basic 6.0
  • Microsoft SQL Server 7.0 hoặc mới hơn với Northwind bộ máy cơ sở dữ liệu, quyền hạn thích hợp và các giá trị user và mật khẩu
Kiến thức trước khi cần thiết:
  • Kiến thức tổng quát về làm thế nào để tạo ra các ứng dụng bằng cách sử dụng Visual Basic 6.0
back to the top

Sử dụng thuật sĩ nâng cấp Visual Basic

Các bước sau đây cho bạn thấy làm thế nào để tạo một đơn giản Visual Basic 6,0 ứng dụng, và sau đó nâng cấp các ứng dụng để Visual Basic .net hoặc Visual Basic 2005 bằng cách sử dụng Visual Basic nâng cấp Wizard trong Visual Studio net hoặc trong Visual Studio 2005:
  1. Trên menu Bắt đầu , trỏ tới chương trình, điểm đến Microsoft Visual Studio 6.0và sau đó nhấp vào Microsoft Visual Basic 6.0.
  2. Trong hộp thoại Dự án mới , bấm vào Tiêu chuẩn EXE, và sau đó nhấn Open.
  3. Hình thức đầu tiên trong ứng dụng này sử dụng ADO lấy một RecordSet, và sau đó sẽ hiển thị recordset trong một Microsoft thứ bậc FlexGrid Kiểm soát. Trong lĩnh vực tên hộp thoại thuộc tính cho Form1, gõfrmADO.
  4. Nếu hộp công cụ không phải là mở, trên menu xem , nhấp hộp công cụ.
  5. Từ hộp công cụ, đặt một MSHFlexGrid trên các hình thức để nó điền vào hầu hết các hình thức. Để lại đủ không gian ở dưới cùng của các hình thức để đặt một nút chọn một.

    Lưu Ý: Nếu bạn không thấy biểu tượng MSHFlexGrid trong hộp công cụ của nó, thêm nó vào hộp công cụ. Bấm chuột phải vào các Hộp công cụ, và sau đó nhấp vào các thành phần. Trong hộp thoại cấu phần , bấm vào để chọn Microsoft Hierarchical FlexGrid kiểm soát 6.0 (OLEDB) trong danh sách của các thành phần có sẵn, và sau đó bấm OK.
  6. Từ hộp công cụ, đặt một CommandButton vào mẫu dưới đây MSHFlexGrid. Trong lĩnh vực phụ đề của hộp thoại thuộc tính , gõ Ok.
  7. Bấm chuột phải vào mADO, và sau đó bấm Xem mã. Thêm mã sau đây, mà tạo ra một kết nối bộ máy cơ sở dữ liệu và trả về một recordset có chứa tất cả các dữ liệu từ bảng sản phẩm bộ máy cơ sở dữ liệu Northwind.

    Lưu Ý: trong mẫu mã sau đây, bạn phải thay đổi tên người dùng =<username></username>mật khẩu =<strong password=""></strong> các giá trị đúng. Hãy chắc chắn rằng ID người dùng có quyền thích hợp để thực hiện thao tác này trên bộ máy cơ sở dữ liệu.
    Private Sub Command1_Click()    Unload MeEnd SubPrivate 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 = rsEnd Sub					
  8. Bấm CTRL + S để tiết kiệm các hình thức. Trên menu tệp , bấm Save As. Trong Tiết kiệm như là hộp thoại, nhấp lưu.
  9. Trong dự án Explorer, bấm chuột phải vào Project1, nhấp thêm, và sau đó nhấp vào hình thức. Nhấp vào mở.
  10. Trong lĩnh vực tên hộp thoại thuộc tính , gõ frmClipboard.
  11. Từ hộp công cụ, đặt một hộp về hình thức. Trong lĩnh vực văn bản , gõ Nâu fox nhanh chóng nhảy qua lười biếng chó.
  12. Đặt một CommandButton bên dưới hộp. Trong lĩnh vực phụ đề của hộp thoại thuộc tính , gõ đồng gửi.
  13. Nơi một thứ hai CommandButton về hình thức. Trong lĩnh vực phụ đề của hộp thoại thuộc tính , gõ Dán.
  14. Bấm chuột phải vào frmClipboard, và sau đó bấm Xem mã. Dán đoạn mã sau cho CommandButton bấm vào các sự kiện. Này sử dụng mã bảng tạm để GET đối tượng và dán văn bản:
    Private Sub Command1_Click()    Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()    Text1.SelText = Clipboard.GetTextEnd Sub					
  15. Bấm CTRL + S để tiết kiệm các hình thức.
  16. Các hình thức cuối cùng bạn cần là hình thức chính của ứng dụng. Trong dự án Explorer, bấm chuột phải vào Project1, nhấp thêm, bấm vào hình thứcvà rồi bấm mở.
  17. Trong lĩnh vực tên hộp thoại thuộc tính , gõ frmMain.
  18. Từ hộp công cụ, đặt một CommandButton trên các hình thức frmMain. Trong lĩnh vực phụ đề của hộp thoại thuộc tính , gõ ADO.
  19. Nơi một thứ hai CommandButton về hình thức. Trong lĩnh vực phụ đề của hộp thoại thuộc tính , gõ Bảng tạm.
  20. Bấm chuột phải vào frmMain, và sau đó bấm Xem mã. Dán đoạn mã sau cho CommandButton bấm vào các sự kiện, để hiển thị hai hình thức:
    Private Sub Command1_Click()    frmADO.ShowEnd SubPrivate Sub Command2_Click()    frmClipboard.ShowEnd Sub					
  21. Bấm CTRL + S để tiết kiệm các hình thức.
  22. Trong giải pháp Explorer, bấm chuột phải vào Project1, và sau đó bấm Thuộc tính Project1. Trong lĩnh vực Đối tượng khởi động , bấm vào frmMain, và sau đó bấm OK.
  23. Để thêm một tham chiếu đến các thành phần ADO, vào trình đơn dự án , bấm vào tài liệu tham khảo. Trong danh sách các tài liệu tham khảo có sẵn, bấm vào để chọn Microsoft ActiveX Data đối tượng thư viện (bất kỳ phiên bản 2.0 hoặc sau này sẽ làm). Nhấp vào OK.
  24. Để biên dịch các dự án, trên menu tệp , bấm Làm cho Project1.exe. Trong hộp thoại Thực hiện dự án , nhấn OK (chấp nhận tập đã đặt tên tin mặc định).
  25. Nhấn F5 để chạy các ứng dụng trong chế độ gỡ lỗi.

    Lưu Ý: bạn không cần phải xác minh rằng Visual Basic di sản ứng dụng chạy mà không có bất kỳ vấn đề trước khi bạn nâng cấp.
  26. Đóng môi trường phát triển Visual Basic. Tại các nhắc để lưu thay đổi cho các dự án, bấm . Sử dụng tên mặc định và lưu dự án.
  27. Trên menu Bắt đầu , trỏ đến các chương trình, điểm đến Microsoft Visual Studio net, và sau đó nhấp vào Microsoft Visual Studio net.
  28. Trên trang Bắt đầu, bấm Mở dự án. Xác định vị trí mục tin thư thoại chứa các dự án Visual Basic 6.0 tệp mà bạn chỉ cần tạo ra (thường c: Program Files Microsoft Visual Studio\VB98). Bấm vào Project1.vdp, và sau đó nhấn Open.
  29. Visual Studio net phát hiện rằng đây là một di sản trực quan Dự án cơ bản và Bắt đầu thuật sĩ Visual Basic nâng cấp. Thuật sĩ sẽ hiển thị một mô tả của từng bước như bạn tiến hành thông qua các bước, ở đây trình tự:
    • Tạo một dự án mới mà hiện tại của bạn dự án đang nâng cấp.
    • Sao chép tập tin mẫu và tập tin lớp học vào các mới dự án.
    • Cung cấp một báo cáo nâng cấp có danh sách các thành phần của dự án nâng cấp thành công và các thành phần mà chưa nâng cấp thành công.

  30. Nhấp vào tiếp theo thông qua từng bước cho đến khi Bắt đầu quá trình nâng cấp. Các nâng cấp mất khoảng 30-60 giây để hoàn thành.
  31. Trong giải pháp Explorer, bấm đúp vào _UpgradeReport.htm. Báo cáo này sẽ hiển thị các kết quả của việc nâng cấp. Lưu ý rằng tất cả các hình thức ngoại trừ frmClipboard nâng cấp mà không có bất kỳ vấn đề.
  32. Mở rộng frmClipboard.vb để xem các vấn đề. Clipboard.SetTextGetText chưa nâng cấp đúng cách. Nhấp vào các liên kết trong mô tả để xem làm thế nào để khắc phục các vấn đề.
  33. Trong nhà thám hiểm giải pháp, lưu ý rằng tất cả các hình thức giữ tên ban đầu của họ, nhưng phần mở rộng tệp được thay đổi từ .frm để . vb.
  34. Mở rộng tài liệu tham khảo. Lưu ý rằng tài liệu tham khảo cho tất cả các thành phần được yêu cầu sử dụng các thành phần Visual Basic và ADO di sản đã được thêm vào tự động.
  35. Bấm chuột phải vào bất kỳ hình thức, và sau đó bấm Xem mã. Mở rộng Hỗ trợ nâng cấp vùng. Khu vực này hiển thị như thế nào Visual Studio net hoặc Visual Studio 2005 cấu hình các tài sản và biến để hỗ trợ nâng cấp mã.
  36. Trong giải pháp Explorer, bấm chuột phải vào frmClipboard.vb, và sau đó bấm Xem mã. Lưu ý rằng không có ý kiến được đặt trước khi những dòng mà đã làm Chưa nâng cấp.
  37. Thay đổi các sự kiện Command1_ClickCommand2_Click như sau:
    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					
back to the top

Hoàn thành danh sách mã

Hoàn thành mã danh sách (frmADO.frm)

Private Sub Command1_Click()    Unload MeEnd SubPrivate 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 = rsEnd Sub				
back to the top

Hoàn thành mã danh sách (frmClipboard.frm)

Private Sub Command1_Click()    Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()    Text1.SelText = Clipboard.GetTextEnd SubComplete Code Listing (frmMain.frm)Private Sub Command1_Click()    frmADO.ShowEnd SubPrivate Sub Command2_Click()    frmClipboard.ShowEnd Sub				
back to the top

Xác minh rằng các ứng dụng hoạt động

  1. Nhấn F5 để khởi động ứng dụng.
  2. Tại dấu kiểm nhắc lưu dự án, bấm OK.
  3. Trong Form1, bấm ADO. Một hình thức xuất hiện có chứa dữ liệu trong một mạng lưới. Gần đây hình thức.
  4. Trong Form1, nhấp vào bảng tạm.
  5. Bấm sao.
  6. Đặt điểm chèn vào hộp văn bản vào đầu văn bản, và sau đó click vào Paste. Bạn sẽ thấy các văn bản dán.
back to the top

Giải đáp thắc mắc

Visual Basic .net là một sự thay đổi lớn từ phiên bản trước của Visual Basic. Một số công việc chuẩn bị rộng rãi cho nhiều dự án, được khuyến khích trước khi bạn nâng cấp. Đề cập đến các tài liệu sau cho thông tin có thể giúp bạn nâng cấp dễ dàng hơn:
back to the top

TÀI LIỆU THAM KHẢO

Để biết thêm chi tiết, đề cập đến các nhà phát triển Microsoft sau Mạng (MSDN) bài viết: back to the top

Cảnh báo: Bài viết này đã được dịch tự động

Thuộc tính

ID Bài viết: 317885 - Xem lại Lần cuối: 07/02/2012 05:32:00 - Bản sửa đổi: 3.0

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft .NET Framework 1.1

  • kbvs2005swept kbvs2005applies kbmigration kbhowtomaster kbmt KB317885 KbMtvi
Phản hồi