Xin bài tập về truy vấn SQL

[hoabattu3387]

Mình đang tìm hiểu về ngôn ngữ truy vấn SQL, các tiền bối có bài tập (kèm lời giải) chia sẻ cho mình học hỏi nhé!

 

[haonlh]

Nhưng bạn thử nghiệm các câu lệnh này trên phần mềm nào. Sau đây là 1 vài ví dụ
1. Cho 2 tập (mỗi tập là 1 bảng có 1 cột). A={a,b,c,d}, B = {1,2,3}
Hãy liệt kê tích Đề các A x B
Câu này là dễ nhất đó.
2. Cho tập A như trên, Hãy liệt kê mọi tập con có 2 phần tử của A.

 

[hoabattu3387]

Nhưng bạn thử nghiệm các câu lệnh này trên phần mềm nào. Sau đây là 1 vài ví dụ
1. Cho 2 tập (mỗi tập là 1 bảng có 1 cột). A={a,b,c,d}, B = {1,2,3}
Hãy liệt kê tích Đề các A x B
Câu này là dễ nhất đó.
2. Cho tập A như trên, Hãy liệt kê mọi tập con có 2 phần tử của A.

BÀI TẬP ỨNG DỤNG TRÊN EXCEL BẠN Ạ.

 

[hoabattu3387]

Nhờ các bạn xem giúp file sau:
Mô tả: mình truy vấn dữ liệu bên sheet1 lưu vào sheet2, nhưng khi xóa dữ liệu sheet2 và truy vấn lại, thì dữ liệu ko được cập nhật vào ngay dưới dữ liệu trước đó mà phía sau các dòng trống (dữ liệu đã xóa)

Nhờ các bạn sửa lại giúp mình cho dữ liệu cập nhật liền mạch nhé!

 

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

Nhờ các bạn xem giúp file sau:
Mô tả: mình truy vấn dữ liệu bên sheet1 lưu vào sheet2, nhưng khi xóa dữ liệu sheet2 và truy vấn lại, thì dữ liệu ko được cập nhật vào ngay dưới dữ liệu trước đó mà phía sau các dòng trống (dữ liệu đã xóa)

Nhờ các bạn sửa lại giúp mình cho dữ liệu cập nhật liền mạch nhé!

Phải xóa nguyên dòng dữ liệu nhé. Code bạn lấy luôn tiêu đề và dòng trống, nên loại bỏ nó luôn.

Sub Oval1_Click()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No;"";")
        .Execute ("insert into [Sheet2$]([F1],[F2],[F3]) select DISTINCT [F1],[F2],[F3] FROM [Sheet1$A2:C65000] where F1 is not null")
        .Close
    End With
        
End Sub

 

[hoabattu3387]

Sub Oval1_Click()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No;"";")
        .Execute ("SELECT [F1],[F2],[F3] INTO [Sheet2$A2:C7]  FROM [Sheet1$A2:C7]")
        .Close
        End With
      
End Sub

a HLMT ơi check giúp em code này với sao e ko chạy được với select into thế ạ?

 

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

Sub Oval1_Click()
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No;"";")
        .Execute ("SELECT [F1],[F2],[F3] INTO [Sheet2$A2:C7]  FROM [Sheet1$A2:C7]")
        .Close
        End With
    
End Sub

a HLMT ơi check giúp em code này với sao e ko chạy được với select into thế ạ?

Không thể sử dụng câu lệnh này trên Excel. Thực hiện câu lệnh này nó sẽ xóa bảng cũ rồi sau đó tạo bảng mới. Mà trên Excel thì không thể xóa sheet = ADO được. Mà chỉ xóa được dữ liệu nguyên bảng

 

[VetMini]

Mình đang tìm hiểu về ngôn ngữ truy vấn SQL, các tiền bối có bài tập (kèm lời giải) chia sẻ cho mình học hỏi nhé!

Học SQL thì vào các diễn đàn chuyên SQL mà học. Mắc mớ gì phải học qua Excel, tự trói buộc mình vào những điều kiện khong cần thiết (Excel dùng phiên bản SQL của Access, không phải là bản tiêu chuẩn)

 

[hoabattu3387]

Nhờ anh HLMT xem giúp em có cách nào SQL từ dữ liệu gốc ở sheet "transactionlist" giống dữ liệu ở sheet1. (hiện e đang dùng bằng pivot table) không ạ?

 

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

Nhờ anh HLMT xem giúp em có cách nào SQL từ dữ liệu gốc ở sheet "transactionlist" giống dữ liệu ở sheet1. (hiện e đang dùng bằng pivot table) không ạ?

Nó phải như hình sau chứ bạn. Mà cột tỷ lệ ở đâu vậy bạn?