INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 1 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 1 Khách viếng thăm

Không

View the whole list


Go down
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 29
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

ListBox trong Visual Basic.NET 2008 Empty ListBox trong Visual Basic.NET 2008

Fri Nov 02, 2012 9:21 pm
Bên cạnh Combobox, ListBox là một thành phần không thể thiếu khi hiển thị dữ liệu từ CSDL lên WInform.
Làm chủ ListBox không khó, chỉ cần một chút sự chú ý, và sự linh hoạt trong thao tác, ta có thể làm chủ dễ dàng...

ví dụ:
Ta có CSDL như sau:

ListBox trong Visual Basic.NET 2008 Ashamp12

làm sao để hiển thị dữ liệu từ CSDL ra WInform:

ListBox trong Visual Basic.NET 2008 Ashamp10

Để hiển thị dữ liệu từ CSDL lên ListBox, tại Class ketnoi() ta làm như sau:

Code:
Public Shared Sub creat_listbox(ByVal LB As ListBox, ByVal st As String, ByVal field As String)
        Dim dt As New DataTable
        dt = xulySQL(st)
        LB.Items.Clear()
        Dim i
        For i = 0 To dt.Rows.Count - 1
            LB.Items.Add(dt.Rows(i).Item(field))
        Next
    End Sub

và tại form Load, ta dùng lệnh sau để load dữ liệu lên ListBox:

Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ketnoi.creat_listbox(LBmasv, "select masv &'-'&hoten as maten from HOSOSV", "maten")
    End Sub

Như vậy ta đã có thể hiển thị dữ liệu từ CSDL lên Form:

ListBox trong Visual Basic.NET 2008 Ashamp10

Nhưng để thay đổi các giá trị TextBox khi click vào ListBox, tại phần Design của Form, ta click double vào ListBox để mở mục IndexChange..:

Code:
Private Sub LBmasv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LBmasv.SelectedIndexChanged
        Dim ma As String
        Dim n As Integer
        Dim dt As New DataTable
        n = LBmasv.SelectedItem.ToString().IndexOf("-")
        ma = LBmasv.SelectedItem.ToString().Substring(0, n)
        dt = ketnoi.xulySQL("select * from HOSOSV where masv='" & ma & "'")
        If dt.Rows.Count > 0 Then
            masv.Text = dt.Rows(0).Item("masv")
            hoten.Text = dt.Rows(0).Item("hoten")
            ngaysinh.Text = dt.Rows(0).Item("ngaysinh")
            diachi.Text = dt.Rows(0).Item("diachi")
        End If
    End Sub

ở đây, tên ListBox của tôi là LBmasv, và đây là kết quả:

ListBox trong Visual Basic.NET 2008 Ashamp11

Phần Kết nối CSDL với Winform, các bạn tham khảo tại bài viết
[You must be registered and logged in to see this link.]

Chúc các bạn thành công.

_________________
Thanh Nguyên Store

[You must be registered and logged in to see this link.]
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết