Đố vui về ADO, DAO.

[ongke0711]

Cám ơn bạn, mời bạn cho kết quả nhé.

hehe..Toang rồi. Vẫn bị vòng lặp từ Collection -> Array. Để ngâm cứu tiếp.

 

[thuyyeu99]

Rồi em mò ra được rồi

 

[Hai Lúa Miền Tây]

Rồi em mò ra được rồi

Ra lẹ thế? Đang chờ bài giải của em.

 

[thuyyeu99]

Sub GetFiled_Thuyyeu99()
Dim SheetName As String
Dim cn As Object, rs As Object, arr() As Variant
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
SheetName = InputBox(prompt:="Nhap ten Sheet", Title:="Lay Filed tren Excel", Default:="Sheet1")
If StrPtr(SheetName) = 0 Then Exit Sub
If SheetName = NullString Then Exit Sub
    SheetName = SheetName & "$"
cn.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "data source=" & ThisWorkbook.FullName & ";" & _
                "extended properties=excel 12.0 macro;"
Set rs = cn.OpenSchema(4, Array(Empty, Empty, SheetName))
arr = rs.GetRows(, , "COLUMN_NAME")
ActiveCell.Resize(UBound(arr, 2) - LBound(arr, 2) + 1, 1).Value = Application.Transpose(arr)
rs.Close
cn.Close
End Sub

 

[Hai Lúa Miền Tây]

Sub GetFiled_Thuyyeu99()
Dim SheetName As String
Dim cn As Object, rs As Object, arr() As Variant
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
SheetName = InputBox(prompt:="Nhap ten Sheet", Title:="Lay Filed tren Excel", Default:="Sheet1")
If StrPtr(SheetName) = 0 Then Exit Sub
If SheetName = NullString Then Exit Sub
    SheetName = SheetName & "$"
cn.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                "data source=" & ThisWorkbook.FullName & ";" & _
                "extended properties=excel 12.0 macro;"
Set rs = cn.OpenSchema(4, Array(Empty, Empty, SheetName))
arr = rs.GetRows(, , "COLUMN_NAME")
ActiveCell.Resize(UBound(arr, 2) - LBound(arr, 2) + 1, 1).Value = Application.Transpose(arr)
rs.Close
cn.Close
End Sub

Chính xác là chỗ đó, đáp án như sau:

Sub ColumnsName_HLMT()
    Dim Arr() As Variant
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + ThisWorkbook.FullName + ";Extended Properties=""Excel 12.0"";")
        Arr = .OpenSchema(4, Array(Empty, Empty, "Sheet2$", Empty)).getrows(, , "COLUMN_NAME")
    End With
    ActiveCell.Resize(UBound(Arr, 2) + 1, 1).Value = Application.Transpose(Arr)
End Sub

 

[Kiều Mạnh]

Lâu quá không trở lại đề tài này, hôm nay mình xin đố các bạn là làm sao lấy được danh sách tên cột của một bảng cho trước mà không dùng vòng lặp?
Trong file mẫu tôi gửi có 3 sheets (Sheet1, Sheet2, Sheet3), và 1 sheet KetQua. Khi tôi muốn lấy tên cột của sheet nào thì nó lấy kết quả tên cột của sheet ấy.

View attachment 241663

Không xài chữ to mà xài Application.Transpose
Mạnh đoán là hàm đó Bill cũng chạy 2 dòng For đấy

 

[Hai Lúa Miền Tây]

Không xài chữ to mà xài Application.Transpose
Mạnh đoán là hàm đó Bill cũng chạy 2 dòng For đấy

Anh hơi đi xa quá rồi

 

[ongke0711]

arr = rs.GetRows(, , "COLUMN_NAME")

Anh cũng dùng ADO OpenSchema nhưng lại không biết chuyển thành array như thế nào... Ai ngờ cái getRows có các tham số như vậy, đúng là chưa khai thác hết nó... hehe.

 

[Kiều Mạnh]

Anh cũng dùng ADO OpenSchema nhưng lại không biết chuyển thành array như thế nào... Ai ngờ cái getRows có các tham số như vậy, đúng là chưa khai thác hết nó... hehe.

quậy đi là viết SQL OK đó ... lâu nay Mạnh đang xài nó ... biết vài tháng nay rồi từ trước khi Ông gì hỏi trên GPE lấy SheetName đó
bài số 4 link sau

Lấy sheet của file trong folder

Nhờ anh em trên Forums xem và giúp. Hiện đang bị lỗi - Hiện tên sheets nhưng chưa lấy được nội dung - Cùng là file *.xls trong 1 folder: file thì hiện tên các sheets, file thì lại không

www.giaiphapexcel.com

 

[thuyyeu99]

Anh cũng dùng ADO OpenSchema nhưng lại không biết chuyển thành array như thế nào... Ai ngờ cái getRows có các tham số như vậy, đúng là chưa khai thác hết nó... hehe.

 

[Hai Lúa Miền Tây]

quậy đi là viết SQL OK đó ... lâu nay Mạnh đang xài nó ... biết vài tháng nay rồi từ trước khi Ông gì hỏi trên GPE lấy SheetName đó
bài số 4 link sau

Lấy sheet của file trong folder

Nhờ anh em trên Forums xem và giúp. Hiện đang bị lỗi - Hiện tên sheets nhưng chưa lấy được nội dung - Cùng là file *.xls trong 1 folder: file thì hiện tên các sheets, file thì lại không

www.giaiphapexcel.com

View attachment 241689

Thật ra cái vụ tên sheet và tên cột đã được HLMT đố vui hồi năm 2015, tuy nhiên nó nằm ở đề tài khác, không nằm ở đây nên muốn "đố lại" cho "đủ bộ"

Tên sheet

Tên cột

Đố vui về ADO, DAO - T3/15

Lâu quá không khởi động chủ đề này, hôm nay xin đưa ra câu đố như sau: Làm thế nào ta có thể liệt kê tất cả tên sheet, name, vùng in... mà không dùng vòng lặp?

www.giaiphapexcel.com

 

[Kiều Mạnh]

Thật ra cái vụ tên sheet và tên cột đã được HLMT đố vui hồi năm 2015, tuy nhiên nó nằm ở đề tài khác, không nằm ở đây nên muốn "đố lại" cho "đủ bộ"

Tên sheet
View attachment 241716
Tên cột

View attachment 241717

Đố vui về ADO, DAO - T3/15

Lâu quá không khởi động chủ đề này, hôm nay xin đưa ra câu đố như sau: Làm thế nào ta có thể liệt kê tất cả tên sheet, name, vùng in... mà không dùng vòng lặp?

www.giaiphapexcel.com

Trên GPE này có rất nhiều code rất chi là hay ... quan trọng ai đó có biết vận dụng và kết hợp nó lại hay ko đó thôi ...!!!???
kết hợp 2 cái đó lại viết thêm cái hàm nối chuỗi nữa là có 1 cái SQL tùy chọn đấy .... ( Mạnh lấy ý tưởng từ đó )
Hy vọng có cái SQL cho Excel + Access thứ 2 + n xuất hiện trên GPE

Ngay cái Hàm Value kiểu Office 365 trên VBA Mạnh viết OK mà ko có liên quan gì tới khai báo API cả ... Nếu ai đó đam mê kiên trì mò là ra

 

[Kiều Mạnh]

Thấy mục này đang hay ... Tiếp theo Mạnh đố chứ ko có hỏi nhe
Câu lệnh SQL sau quá dài vậy có câu nào khác thay thế nó mà mục đích y trang vậy mà ngắn nhất hay ko ???

sSQL = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES " & _
           "WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG='" & Me.cboDatabaseName & "'"

Nếu lấy phần sau rồi đếm nó thì có 98 ký tự ( Len(SQL) )

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG

Với câu SQL trên Mạnh viết lại chỉ có 36 ký tự
Xin mời góp vui 1 tí

 

[Hai Lúa Miền Tây]

Thấy mục này đang hay ... Tiếp theo Mạnh đố chứ ko có hỏi nhe
Câu lệnh SQL sau quá dài vậy có câu nào khác thay thế nó mà mục đích y trang vậy mà ngắn nhất hay ko ???

sSQL = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES " & _
           "WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG='" & Me.cboDatabaseName & "'"

Nếu lấy phần sau rồi đếm nó thì có 98 ký tự ( Len(SQL) )

SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' AND TABLE_CATALOG

Với câu SQL trên Mạnh viết lại chỉ có 36 ký tự
Xin mời góp vui 1 tí

Nó nằm trong cái sys.Tables. Nếu dùng câu lệnh ngắn hơn để lấy danh sách Table thì có thể vào đây lấy.

Select name from sys.Tables

 

[Kiều Mạnh]

Nó nằm trong cái sys.Tables. Nếu dùng câu lệnh ngắn hơn để lấy danh sách Table thì có thể vào đây lấy.

Select name from sys.Tables

chính xác là nó và cái này chạy trên VBA + VB6 + Delphi Ok đó

 

[Hai Lúa Miền Tây]

chạy trên VBA + VB6 + Delphi Ok đó

Anh hơi vui tính, nó không những cho lấy được từ những cái trên mà còn hơn thế nữa. Vì sao thì ai cũng có thể hiểu.

 

[Kiều Mạnh]

Anh hơi vui tính, nó không những cho lấy được từ những cái trên mà còn hơn thế nữa. Vì sao thì ai cũng có thể hiểu.

Vì ngày qua có hỏi thớt bên kia cái chuỗi đó sao trên Delphi nó Ứ có chạy ... mò diết tối qua mới biết...
vậy là cái chuỗi đó là ok nhất chạy chung cho tất cả đó

 

[ongke0711]

Vì ngày qua có hỏi thớt bên kia cái chuỗi đó sao trên Delphi nó Ứ có chạy ... mò diết tối qua mới biết...
vậy là cái chuỗi đó là ok nhất chạy chung cho tất cả đó

Vụ này ngộ à.
Cùng là câu lệnh truy vấn Table hệ thống của SQL Server mà có Table cho lấy dữ liệu, có Table không chạy được là sao nhỉ?
Bạn dùng SQL Server phiên bản bao nhiêu?
Mỗi Table hệ thống của SQL SV đều chứa những thông tin riêng của nó, tuỳ nhu cầu, tính tiện dụng mà sử dụng thôi.
Cách ngắn nữa: chạy "Exec sp_tables"

 

[Hai Lúa Miền Tây]

Cách ngắn nữa: chạy "Exec sp_tables"

Đôi khi ngắn quá cũng không hay, ví dụ để trả về những cái Tables thì còn phải xử lý tiếp lằng nhằng sau đó. Tùy biến mà dùng, dài cũng có lợi thế của nó.

 

[Kiều Mạnh]

Vụ này ngộ à.
Cùng là câu lệnh truy vấn Table hệ thống của SQL Server mà có Table cho lấy dữ liệu, có Table không chạy được là sao nhỉ?
Bạn dùng SQL Server phiên bản bao nhiêu?
Mỗi Table hệ thống của SQL SV đều chứa những thông tin riêng của nó, tuỳ nhu cầu, tính tiện dụng mà sử dụng thôi.
Cách ngắn nữa: chạy "Exec sp_tables"

cái này là do Delphi mình khai báo nó chưa có hiễu hay là xài TADOConnection.Create(nil); mà cách khai báo khác nó mới hiểu
Thớt bên kia ngày qua Mạnh có mô tả đó bài 44

Vậy là cái SQL Server Ms trên Delphi của Mạnh có tùy chọn TableName + Cột lấy dữ liệu cơ bản đã xong

Add-ins SQL VB6 cho Excel, Access Và SQL Server + TCPIP

Vậy là 1 thời gian ngắn được sự chỉ thêm của @Nguyễn Duy Tuân , Anh @batman1 + HLMT Mạnh đã chuyển cái SQL từ VBA lên VB6 xong từ VB6 vào Delphi thành công ... Úp lên đây tặng cho Bạn nào iU nó ... lấy dữ liệu File Excel + Access rất đơn giản chỉ việc tích chon ===> thế là xong Thời gian tới...

www.giaiphapexcel.com