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

batman1 · 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

Tôi có bàn về tiêu đề đâu? Người ta không hiểu bài #5 nên tôi giúp họ hiểu bài #5 thôi.

Muốn có tiêu đề thực sự thì bỏ dùng List và Column đi, dùng RowSource đi. Còn nếu tiêu đề nhái thì sao lại không có tiêu đề khi dữ liệu lấy về có cả tiêu đề?

phuoclocvl · 19/12/20

batman1 đã viết:
Tôi có bàn về tiêu đề đâu? Người ta không hiểu bài #5 nên tôi giúp họ hiểu bài #5 thôi.

Muốn có tiêu đề thực sự thì bỏ dùng List và Column đi, dùng RowSource đi. Còn nếu tiêu đề nhái thì sao lại không có tiêu đề khi dữ liệu lấy về có cả tiêu đề?

Anh hướng dẫn giúp với , Cảm ơn anh nhiều

batman1 · 19/12/20

phuoclocvl đã viết:
Anh hướng dẫn giúp với , Cảm ơn anh nhiều

Hướng dẫn cái gì?

Khi bạn dùng .List = Application.Transpose(getArray) thì bạn có thấy cả TIÊU ĐỀ và cả DỮ LIỆU không?

Bạn phải viết code sao cho nó lấy về cả TIÊU ĐỀ và cả DỮ LIỆU - tức sao cho trong getArray có cả tiêu đề và dữ liệu. Lúc đó thì dùng
.List = Application.Transpose(getArray) hay .Column =getArray thì đều nhìn thấy cả TIÊU ĐỀ và cả DỮ LIỆU

phuoclocvl · 19/12/20

batman1 đã viết:
Hướng dẫn cái gì?

Khi bạn dùng .List = Application.Transpose(getArray) thì bạn có thấy cả TIÊU ĐỀ và cả DỮ LIỆU không?

Bạn phải viết code sao cho nó lấy về cả TIÊU ĐỀ và cả DỮ LIỆU - tức sao cho trong getArray có cả tiêu đề và dữ liệu. Lúc đó thì dùng
.List = Application.Transpose(getArray) hay .Column =getArray thì đều nhìn thấy cả TIÊU ĐỀ và cả DỮ LIỆU

Em dùng như này nhưng không có tiêu đề.

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
            .Column = getArray
            .ListIndex = -1
        End With

    msgbox "Done"
End Sub

batman1 · 19/12/20

phuoclocvl đã viết:
Em dùng như này nhưng không có tiêu đề.

Khi bạn không thấy tiêu đề thì đó là do trong mảng kết quả getArray không có tiêu đề chứ không do .List = Application.Transpose(getArray) mà cũng chả do .Column =getArray

Viết code sao cho trong mảng trả về getArray có cả tiêu đề. Thế thôi.

Trên GPE có hằng hà sa số code lấy về cả tiêu đề cả dữ liệu, vậy tìm đọc thôi.

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

1/ để có 1 cái listbox có tiều đề xịn của nó thì cách sau là đơn giản nhất

2/ Còn sử dụng ADODB lấy vào 1 Arr = Rs.GetRows xong gán vào như hình trên là ko thể ...

Tuy nhiên nếu lách lấy nó gán vào 1 name xong lấy ra từ cái name đó gán vào ListBox1.RowSource = "Name" thì tạm ok ===> quá lằng nhằng

3/ còn hình sau là tây nó nói...

4/ Còn 1 cách trên GPE này là họ làm giả cái tiêu đề bài #380
Các câu hỏi về Form trong Excel VBA | Page 19 | Giải Pháp Excel (giaiphapexcel.com)

5/ File đính kèm là cho hình số 1

6/ hy vọng ai đó có thể xài ADODB lấy vào 1 Array xong gán vào listbox có 1 cái tiêu đề mà ko phải làm giả nó Or xài name phụ -0-0-0-

phuoclocvl · 21/12/20

Kiều Mạnh đã viết:
1/ để có 1 cái listbox có tiều đề xịn của nó thì cách sau là đơn giản nhất

View attachment 251527

2/ Còn sử dụng ADODB lấy vào 1 Arr = Rs.GetRows xong gán vào như hình trên là ko thể ...

Tuy nhiên nếu lách lấy nó gán vào 1 name xong lấy ra từ cái name đó gán vào ListBox1.RowSource = "Name" thì tạm ok ===> quá lằng nhằng

3/ còn hình sau là tây nó nói...
View attachment 251528
4/ Còn 1 cách trên GPE này là họ làm giả cái tiêu đề bài #380
Các câu hỏi về Form trong Excel VBA | Page 19 | Giải Pháp Excel (giaiphapexcel.com)

5/ File đính kèm là cho hình số 1

6/ hy vọng ai đó có thể xài ADODB lấy vào 1 Array xong gán vào listbox có 1 cái tiêu đề mà ko phải làm giả nó Or xài name phụ

ngon lành chưa ?

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

phuoclocvl đã viết:
ngon lành chưa ?

View attachment 251547

Người ta đang nói về ListBox chứ không phải Listview nha bạn.

phuoclocvl · 21/12/20

Hai Lúa Miền Tây đã viết:
Người ta đang nói về ListBox chứ không phải Listview nha bạn.

vậy cũng bị phát hiện, bài này em đang hỏi á? bí quá hong ai giúp giùm nên em định hù chơi thôi, vậy mà anh phát hiện rồi thiệt là...

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

phuoclocvl đã viết:
vậy cũng bị phát hiện, bài này em đang hỏi á? bí quá hong ai giúp giùm nên em định hù chơi thôi, vậy mà anh phát hiện rồi thiệt là...

tính mang long đao ra ... ?? -0-0-0-

tigertiger · 21/12/20

Nếu muốn listbox có tiêu đề giống như khi gán rowsource hay như listview mà không muốn tự làm (giả với sử dụng thêm listbox hay labels) thì đợi microsoft cập nhật vậy (chắc có lý do gì đó mà họ không làm )

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

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

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

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

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!!!

File đính kèm

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

❆❆❆❆❆❆❆❆

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

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

Coming back ...

Thời gian đếm ngược.