LẤY DỮ LIỆU TỰ NGUỒN VÀO LISTBOX (1 người xem)

phuoclocvl · 18/12/20

Xin Chào Các Anh Chị GPE,

Em có một thắc mắc mong anh chị hỗ trợ giúp.
Mục đích là muốn lấy dữ liệu từ server SQL thẳng xuống Listbox.

code của em bên dưới mà nó chỉ lấy có dòng tiêu đề mà không phải là hàng ngang mà chỉ có 1 cột

Rất chờ sự giúp đỡ của anh chị. xin cảm ơn ạ,

PHP:

Private Sub CommandButton2_Click()
    Dim i As Long, k As Long
    Dim lArr()
    Dim cnnDb As New cnnDatabase
    Set cnnDb = New cnnDatabase
     cnnDb.Get_Record ("SELECT A.ORDNO, A.REFNO, A.FITEM, A.FDESC, A.ITCL, A.ORQTY, A.QTDEV, A.QTYRC, (A.ORQTY+ A.QTDEV-A.QTYRC) AS OPEN,A.SSTDT, A.ODUDT, A.JOBNO, A.OSTAT " & _
              "FROM G20ACF9V.AMFLIBW.MOMAST A " & _
              "WHERE substr(A.ORDNO,1,2) = 'MS' " & _
              "ORDER BY A.REFNO,A.ODUDT")
     
      With ListBox1
        For i = 0 To cnnDb.adors.Fields.Count - 1
            .AddItem
            .List(k) = cnnDb.adors.Fields(i).Name
            k = k + 1
        Next i
      End With
     
msgbox "Done"
End Sub

Bài đã được tự động gộp: 18/12/20

Cu Tồ · 18/12/20

phuoclocvl đã viết:
Xin Chào Các Anh Chị GPE,

Em có một thắc mắc mong anh chị hỗ trợ giúp.
Mục đích là muốn lấy dữ liệu từ server SQL thẳng xuống Listbox.

code của em bên dưới mà nó chỉ lấy có dòng tiêu đề mà không phải là hàng ngang mà chỉ có 1 cột

Rất chờ sự giúp đỡ của anh chị. xin cảm ơn ạ,

PHP:

Private Sub CommandButton2_Click() Dim i As Long, k As Long Dim lArr() Dim cnnDb As New cnnDatabase Set cnnDb = New cnnDatabase cnnDb.Get_Record ("SELECT A.ORDNO, A.REFNO, A.FITEM, A.FDESC, A.ITCL, A.ORQTY, A.QTDEV, A.QTYRC, (A.ORQTY+ A.QTDEV-A.QTYRC) AS OPEN,A.SSTDT, A.ODUDT, A.JOBNO, A.OSTAT " & _ "FROM G20ACF9V.AMFLIBW.MOMAST A " & _ "WHERE substr(A.ORDNO,1,2) = 'MS' " & _ "ORDER BY A.REFNO,A.ODUDT") With ListBox1 For i = 0 To cnnDb.adors.Fields.Count - 1 .AddItem .List(k) = cnnDb.adors.Fields(i).Name k = k + 1 Next i End With msgbox "Done" End Sub

Bài đã được tự động gộp: 18/12/20

Bạn thử gán dữ liệu đó vào mảng (Mảng KQ ) rồi sau đó nạp vào listbox .Với lại trong listbox có phần chỉnh số code hiện thị nữa

Mã:

.ColumnCount = 'bao nhiêu cột
.List() = KQ

Hai Lúa Miền Tây · 18/12/20

phuoclocvl đã viết:
For i = 0 To cnnDb.adors.Fields.Count - 1
.AddItem .List(k) = cnnDb.adors.Fields(i).Name
k = k + 1
Next i

Code này là code lấy tên cột của bảng rồi đưa vào ListBox là đúng rồi. Nhưng tôi chưa thấy thêm code đưa dữ liệu vào.

Cu Tồ đã viết:
Bạn thử gán dữ liệu đó vào mảng (Mảng KQ ) rồi sau đó nạp vào listbox .Với lại trong listbox có phần chỉnh số code hiện thị nữa

Mã:

.ColumnCount = 'bao nhiêu cột .List() = KQ

Nạp như bạn thì phải xoay mảng lại nữa mới đạt yêu cầu nhé.

phuoclocvl · 18/12/20

Hai Lúa Miền Tây đã viết:
Code này là code lấy tên cột của bảng rồi đưa vào ListBox là đúng rồi. Nhưng tôi chưa thấy thêm code đưa dữ liệu vào.

Nạp như bạn thì phải xoay mảng lại nữa mới đạt yêu cầu nhé.

Dạ em làm vậy mà cũng hong được hic

PHP:

    With ListBox1
      ReDim lArr(1 To 1, 1 To col)
        For i = 0 To cnnDb.adors.Fields.Count - 1
            lArr(1, k) = cnnDb.adors.Fields(i).Name
            k = k + 1
        Next i

    For i = 1 To UBound(lArr, 2)
        .AddItem
        .List = Application.WorksheetFunction.Transpose(lArr)
    Next i
    End With

Hai Lúa Miền Tây · 18/12/20

phuoclocvl đã viết:

Dạ em làm vậy mà cũng hong được hic

PHP:

    With ListBox1
      ReDim lArr(1 To 1, 1 To col)
        For i = 0 To cnnDb.adors.Fields.Count - 1
            lArr(1, k) = cnnDb.adors.Fields(i).Name
            k = k + 1
        Next i

    For i = 1 To UBound(lArr, 2)
        .AddItem
        .List = Application.WorksheetFunction.Transpose(lArr)
    Next i
    End With

Gán thẳng mảng nó vào thuộc tính .Column luôn là được. Không cần chuyển mảng nha bạn.

tigertiger · 18/12/20

phuoclocvl đã viết:

Dạ em làm vậy mà cũng hong được hic

PHP:

    With ListBox1
      ReDim lArr(1 To 1, 1 To col)
        For i = 0 To cnnDb.adors.Fields.Count - 1
            lArr(1, k) = cnnDb.adors.Fields(i).Name
            k = k + 1
        Next i

    For i = 1 To UBound(lArr, 2)
        .AddItem
        .List = Application.WorksheetFunction.Transpose(lArr)
    Next i
    End With

Bỏ hết đi rồi thử 1 dòng này

Mã:

ListBox1.List()= Application.WorksheetFunction.Transpose(lArr)

Chú ý phải chỉnh Listbox1.ColumnCount= <số cột cần chứa trước đã>

Xem kỹ kết quả, Sau đó nếu muốn thêm tiêu đề
Thì xem lại cách AddItem cơ bản vào listbox lần lượt thế nào

Hai Lúa Miền Tây · 18/12/20

tigertiger đã viết:
Bỏ hết đi rồi thử 1 dòng này

Mã:

ListBox1.List()= Application.WorksheetFunction.Transpose(lArr)

Chú ý phải chỉnh Listbox1.ColumnCount= <số cột cần chứa trước đã>

Xem kỹ kết quả, Sau đó nếu muốn thêm tiêu đề
Thì xem lại cách AddItem cơ bản vào listbox lần lượt thế nào

Nên dùng cách bài 5 tôi đã giới thiệu sẽ khỏi chuyển mảng. Hàm chuyển mảng trên sẽ bị lỗi trong vài trường hợp.

truongvu317 · 18/12/20

tigertiger đã viết:
Chú ý phải chỉnh Listbox1.ColumnCount= <số cột cần chứa trước đã>

Thử gán bằng -1 xem.

tigertiger · 18/12/20

Hai Lúa Miền Tây đã viết:
Nên dùng cách bài 5 tôi đã giới thiệu sẽ khỏi chuyển mảng. Hàm chuyển mảng trên sẽ bị lỗi trong vài trường hợp.

Bài đó nhằm mục tiêu cho người hỏi hiểu về .List()
Đúng là nếu lỗi với transpose thì nên tự xây dựng hàm Transpose trong VBA cho gọn

tigertiger · 18/12/20

truongvu317 đã viết:
Thử gán bằng -1 xem.

Không có điều kiện thử, để người hỏi thử và phản hồi nhé

phuoclocvl · 19/12/20

sao 1 hồi thì nó ra vậy, còn cái ruột làm sao lấy ra các anh

Hai Lúa Miền Tây · 19/12/20

phuoclocvl đã viết:
sao 1 hồi thì nó ra vậy, còn cái ruột làm sao lấy ra các anh
View attachment 251490

Tôi đã nói rõ là bạn không cần chuyển mảng để lấy "cái ruột" ở bài số 5. Bạn đọc kỹ lại và làm theo sẽ được.

phuoclocvl · 19/12/20

Hai Lúa Miền Tây đã viết:
Tôi đã nói rõ là bạn không cần chuyển mảng để lấy "cái ruột" ở bài số 5. Bạn đọc kỹ lại và làm theo sẽ được.

Em thử như vầy nó ra nè. nhưng không biết có bị ảnh hưởng gì không nếu chạy máy khác ạ.

PHP:

Private Sub CommandButton2_Click()
    Dim i As Long, rCol As Long
    Dim getArray As Variant
    Dim cnnDb As New cnnDatabase
    Set cnnDb = New cnnDatabase
     cnnDb.Get_Record ("SELECT A.ORDNO, A.REFNO, A.FITEM, A.FDESC, A.ITCL, A.ORQTY, A.QTDEV, A.QTYRC, (A.ORQTY+ A.QTDEV-A.QTYRC) AS OPEN,A.SSTDT, A.ODUDT, A.JOBNO, A.OSTAT " & _
              "FROM G20ACF9V.AMFLIBW.MOMAST A " & _
              "WHERE substr(A.ORDNO,1,2) = 'MS' " & _
              "ORDER BY A.REFNO,A.ODUDT")
   
   
    With cnnDb.adors
        Set .ActiveConnection = Nothing 'Disconnect the recordset.
        rCol = .Fields.Count
        getArray = .GetRows
    End With
   
    cnnDb.adors.Close

        With ListBox1
            .Clear
            .ColumnCount = rCol
            .ColumnHeads = True
            .List = Application.Transpose(getArray)
            .ListIndex = -1
        End With

    msgbox "Done"
End Sub

Hai Lúa Miền Tây · 19/12/20

phuoclocvl đã viết:

Em thử như vầy nó ra nè. nhưng không biết có bị ảnh hưởng gì không nếu chạy máy khác ạ.

PHP:

Private Sub CommandButton2_Click()
    Dim i As Long, rCol As Long
    Dim getArray As Variant
    Dim cnnDb As New cnnDatabase
    Set cnnDb = New cnnDatabase
     cnnDb.Get_Record ("SELECT A.ORDNO, A.REFNO, A.FITEM, A.FDESC, A.ITCL, A.ORQTY, A.QTDEV, A.QTYRC, (A.ORQTY+ A.QTDEV-A.QTYRC) AS OPEN,A.SSTDT, A.ODUDT, A.JOBNO, A.OSTAT " & _
              "FROM G20ACF9V.AMFLIBW.MOMAST A " & _
              "WHERE substr(A.ORDNO,1,2) = 'MS' " & _
              "ORDER BY A.REFNO,A.ODUDT")
  
  
    With cnnDb.adors
        Set .ActiveConnection = Nothing 'Disconnect the recordset.
        rCol = .Fields.Count
        getArray = .GetRows
    End With
  
    cnnDb.adors.Close

        With ListBox1
            .Clear
            .ColumnCount = rCol
            .ColumnHeads = True
            .List = Application.Transpose(getArray)
            .ListIndex = -1
        End With

    msgbox "Done"
End Sub

View attachment 251495

Bạn vẫn dùng List, như tôi đã nói bài số 5, chắc chắn sẽ gặp lỗi nếu như bạn không dùng hàm chuyển mảng tự tạo. Tôi ví dụ bạn thử xóa 1 vài cell trống ở dữ liệu rồi chạy code thử nhé.

phuoclocvl · 19/12/20

Hai Lúa Miền Tây đã viết:
Bạn vẫn dùng List, như tôi đã nói bài số 5, chắc chắn sẽ gặp lỗi nếu như bạn không dùng hàm chuyển mảng tự tạo. Tôi ví dụ bạn thử xóa 1 vài cell trống ở dữ liệu rồi chạy code thử nhé.

Dạ bài số 5 là bài nào , cho em xin link với ạ. Cảm ơn Anh

Hai Lúa Miền Tây · 19/12/20

phuoclocvl đã viết:
Dạ bài số 5 là bài nào , cho em xin link với ạ. Cảm ơn Anh

Là bài trong chủ đề này nó ở bài số #5

phuoclocvl · 19/12/20

Hai Lúa Miền Tây đã viết:
Là bài trong chủ đề này nó ở bài số #5

Dạ, không có thuộc tính .Column anh ơi. chỉ có Fields à

batman1 · 19/12/20

phuoclocvl đã viết:
Dạ, không có thuộc tính .Column anh ơi. chỉ có Fields à

Bó tay toàn tập.

Hiện tại bạn có

.List = Application.Transpose(getArray)

Tức bạn đang sử dụng LIST. Mà bài #5 nói phải dùng COLUMN, tức phải là

.Column =getArray

Kiều Mạnh · 19/12/20

batman1 đã viết:
Bó tay toàn tập.

Hiện tại bạn có

.List = Application.Transpose(getArray)

Tức bạn đang sử dụng LIST. Mà bài #5 nói phải dùng COLUMN, tức phải là

.Column =getArray

hình như kiểu này không gán được tiêu đề lên luôn đó Anh

phuoclocvl · 19/12/20

batman1 đã viết:
Bó tay toàn tập.

Hiện tại bạn có

.List = Application.Transpose(getArray)

Tức bạn đang sử dụng LIST. Mà bài #5 nói phải dùng COLUMN, tức phải là

.Column =getArray

Dạ, em mới tập tành thôi, xin lỗi .

Bài đã được tự động gộp: 19/12/20

Kiều Mạnh đã viết:
hình như kiểu này không gán được tiêu đề lên luôn đó Anh

Vậy để đầy đủ phải làm sao anh? Cảm ơn

LẤY DỮ LIỆU TỰ NGUỒN VÀO LISTBOX (1 người xem)

Người dùng đang xem chủ đề này

Thành viên thường trực

File đính kèm

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

❆❆❆❆❆❆❆❆

Thành viên thường trực

❆❆❆❆❆❆❆❆

Coming back ...

❆❆❆❆❆❆❆❆

Thành viên tích cực

Coming back ...

Coming back ...

Thành viên thường trực

❆❆❆❆❆❆❆❆

Thành viên thường trực

❆❆❆❆❆❆❆❆

Thành viên thường trực

❆❆❆❆❆❆❆❆

Thành viên thường trực

Thành viên gạo cội

I don't program, I beat code into submission!!!

Thành viên thường trực

Đếm ngược thời gian