ADO căn bản: Kết nối truy vấn CSDL từ file Excel đến file Access.

Chia sẻ bởi:hands

★★★★★

‹ Tất cả những gì bạn cần biết... Căn bản về truy vấn CSDL online... ›

Quảng cáo

Mình rất đắng đo khi quyết định mở topic này, do kiến thức chấp vá, cách diễn đạt cũng như khả năng hiểu biết về ADO có hạn. Mong nhận được sự góp ý của các anh chị nhiều hơn.

Chuẩn bị môi trường làm việc: Vào cửa sổ code click chọn Tools>Refrences, xong chọn Microsoft ActiveX Data Objects x.x Library (ADO)

9g8izYUQrnE

Lưu ý: Để bài viết được liên tục, các bạn nếu có góp ý hay thảo luận về đề tài này, vui lòng ghé sang topic sau:
[URL='https://www.giaiphapexcel.com/forum/showthread.php?69630-Th%E1%BA%A3o-lu%E1%BA%ADn-v%E1%BB%81-b%C3%A0i-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access']Thảo luận về bài: ADO căn bản Kết nối truy vấn CSDL từ file Excel đến file Access.
Code kết nối với CSDL ví dụ file Access có tên là CSDL.mdb với Pass là 1234 , code kết nối sẽ như sau:

Public cnn As New ADODB.Connection
Sub Moketnoi()
Set cnn = New ADODB.Connection
Dim strCNString As String
strCNString = "Data Source=" & ThisWorkbook.Path & "CSDL.mdb"
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = strCNString
    .Properties("Jet OLEDB:Database Password") = "1234"
    .CursorLocation = adUseClient
    .Open

End With

End Sub

JicwsL8zrGY

Mình xin gửi Data mẫu để các bạn tiện thực hành.
Lưu ý các bạn chép file này vào chung với folder file excel truy vấn của các bạn nhé.
Phát biểu SQL SELECT

Phát biểu SQL SELECT: Chọn các cột theo ý muốn từ 1 cơ sở dữ liệu, ở đây là tên file cần kết nối là CSDL.mdb:
Dùng phát biểu này để chọn (SELECT) thông tin từ (FROM) một bảng như sau:

SELECT TenCotCanLay FROM TenBang

Ví dụ hình bên dưới là bảng dữ liệu có tên là tblData, trong bảng này có đầy đủ các trường (Cột) như sau:

2921

Bây giờ tôi lấy ví dụ là chỉ lấy 3 cột (TP, ,) Lưu ý đối với những cột có tên đặc biệt và có cách trắng chúng ta nên thêm [] vào tên cột đó.

SELECT TP, ,
FROM tblData;

Kết quả sẽ như sau:

2920

Lưu ý nếu muốn chọn tất cả các cột thì chỉ cần Select * from TenBang là đủ.
Bây giờ bắt đầu ta lấy dữ liệu từ bảng tblData ra Excel cell bắt đầu là A5.

1./ Lấy tất cả các cột có trong bảng:

Sub LayDuLieuTatCaCot()
On Error GoTo loi

Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State <> 1 Then Moketnoi

lsSQL = "SELECT * " & _
            "FROM tblData"

rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
    Cells.ClearContents
    Range("A5").CopyFromRecordset rst

rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

2./ Lấy 3 cột (SUPPLIER, , ) lưu ý nếu ta select cột nào trước thì nó sẽ ra cột đó trước, ví dụ tôi lấy cột Supplier trước thì nó sẽ hiển thị cột này trước, mặc dù vị trí thực của nó nằm trong bảng ở sau các cột kia.

Sub LayDuLieu3Cot()
On Error GoTo loi

Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State <> 1 Then Moketnoi

lsSQL = "SELECT SUPPLIER, [MATERIAL NAME], [COLOR NAME] " & _
            "FROM tblData"

rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
    Cells.ClearContents
    Range("E5").CopyFromRecordset rst

rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

MH2-fAElpXw

Mệnh đề SQL WHERE

Để bóc dữ liệu trong 1 bảng dữ liệu theo ý muốn ta có mệnh đề WHERE vào sau phát biểu SELECT với cú pháp như sau:
*./ Cú pháp:

Select TenCot.....
         From TenBang
         Where  Điều kiện của TenCot cần lọc

*./ Lưu ý: – Đối với các điều kiện lọc dữ liệu là chuổi ta nên bao quanh chúng bằng dấu nháy đơn ví dụ ta cần lọc cột là màu BLACK thì ta phải ghi 'BLACK' còn nếu là số thì không cần thêm gì hết.
– Nếu ta muốn lọc theo điều kiện 1 phần của chuổi thì ta thêm dấu % vào điều kiện lọc, ví dụ ta muốn lọc những loại vật tư có tên đầu tiên là POLY thì ta thêm như sau 'POLY%', thì nó sẽ cho ra kết quả là chỉ lọc những loại vật tư bắt đầu là chữ POLY

Ví dụ: Cũng CSDL trên ta có câu lệnh truy vấn so sánh chuổi của cột nào có dữ liệu thõa điều kiện là 'KOREA' thì bóc ra: TA DÙNG PHÉP TOÁN LIKE như sau:

Sub LayDuLieuDK()
On Error GoTo loi
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State <> 1 Then Moketnoi

[B][COLOR=#ff0000]    lsSQL = "SELECT * " & _
            "FROM tblData " & _
            "Where [ORIGIN] [/COLOR][COLOR=#0000ff]like [/COLOR][COLOR=#ff0000]'KOREA'"[/COLOR][/B]

rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly
    Cells.ClearContents
    Range("A5").CopyFromRecordset rst

rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

-mrG5xcUXus

www.giaiphapexcel.com/diendan/threads/ado-c%C4%83n-b%E1%BA%A3n-k%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-csdl-t%E1%BB%AB-file-excel-%C4%91%E1%BA%BFn-file-access.69450/

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học

★★★★★ 5 ★ 1 👤 4 ▥ 0

‹ Tất cả những gì bạn cần biết về... Căn bản về truy vấn CSDL online từ... ›

Quảng cáo

Bạn nên đọc

4 Responses

hands says:

02/02/2023 at 1:29 pm
Xin được góp ý thêm 1 chút:

SQL WHERE Clause:

The WHERE clause is used to filter records.

Mệnh đề WHERE được sử dụng để lọc records

The WHERE clause is used to extract only those records that fulfill a specified criterion.

Mệnh đề WHERE được sử dụng để trích xuất các records đáp ứng một tiêu chí xác định.

Cú pháp SQL WHERE:
```
SELECT column_name(s)
FROM table_name
WHERE column_name operator value
```
LƯU Ý:

SQL sử dụng dấu nháy đơn (') bao quanh các giá trị chuỗi (hầu hết các hệ thống cơ sở dữ liệu cũng sẽ chấp nhận dấu ngoặc kép).

Tuy nhiên, giá trị số không được kèm theo trong dấu nháy đơn!

1) Với giá trị chuỗi (text values):

Đúng:
```
SELECT * FROM Persons WHERE FirstName='NGHIA'
```
Sai:
```
SELECT * FROM Persons WHERE FirstName=NGHIA
```
2) Với giá trị số (numeric values):

Đúng:
```
SELECT * FROM Persons WHERE Year=1965
```
Sai:
```
SELECT * FROM Persons WHERE Year='1965'
```
Update

Đợi đã lâu mà anh HTN không viết tiếp, thôi thì mình viết tiếp cho xong phần dang dỡ này vậy:

*) Mệnh đề SQL UPDATE: Dùng để chỉnh sửa hay cập nhật nội dung vào CSDL
*) Cú Pháp:

UPDATE TenBangCanDuocCapNhat
SET TenCot1CanCapNhat=NoiDungCapNhatChoCot1,TenCot2CanCapNhat=NoiDungCapNhatChoCot2,…
WHERE TenCotLamDK=DKDeCapNhat

*) Ví dụ: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 mình xin cập nhật cột Supplier = nội dung mới là 'Thu Test Cai coi cap nhat duoc khong?' và cột TP là 'hic hic', với điều kiện cập nhật là ID của dòng cần được cập nhật là 2. Vậy tôi sẽ viết như sau:
```
Sub CapNhat()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "UPDATE tblData " & _
            "SET Supplier='Thu Test Cai coi cap nhat duoc khong?', TP='hic hic'" & _
            "WHERE [ID]=2"
    rst.Open lsSQL, cnn
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
Select distinct

*) Mệnh đề SQL SELECT DISTINCT: Dùng để lọc duy nhất
*) Cú Pháp:

SELECT DISTINCT TenCot1, TenCot2…
FROM TenBang

*) Ví dụ: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi xin lấy dữ liệu duy nhất của cột Supplier và Origin thì tôi sẽ viết như sau:
```
Sub LocDuyNhat()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "SELECT DISTINCT SUPPLIER, ORIGIN " & _
            "FROM tblData"
    rst.Open lsSQL, cnn
    [A2].CopyFromRecordset rst
    rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
Order by

*) Mệnh đề SQL ORDER BY: Nằm ở cuối câu lệnh, dùng để sắp xếp lại dữ liệu các cột.
*) Cú Pháp:

SELECT COT1, COT2…
FROM TENBANG
ORDER BY COT1 ASC|DESC, COT2 ASC|DESC …

Lưu ý: Sắp xếp tăng dần thì ta thêm ASC, ngược lại muốn sắp xếp theo cách giảm dần thì ta thêm DESC ở sau tên cột cần muốn sắp xếp.
(Nếu không ghi ASC hoặc DESC gì hết thì nó sẽ tự sắp xếp theo cách tăng dần)

*) Ví dụ: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi xin sắp xếp lại cột TP tăng dần, ID giảm dần thì tôi sẽ viết như sau:
```
Sub SapXep()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "SELECT * " & _
            "FROM tblData " & _
            "ORDER BY TP, ID DESC"
    rst.Open lsSQL, cnn
    [A2].CopyFromRecordset rst
    rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
Insert into

*) Mệnh đề SQL INSERT INTO: Là dùng để thêm mới dữ liệu.
*) Cú Pháp:

Cách 1: Chèn thêm dòng không theo tên cột, dữ liệu sẽ được chèn vào CSDL theo thứ tự của cột.
Lưu ý: Cách này phải chèn toàn bộ cột theo thứ tự cột trong CSDL

INSERT INTO TênBảngCầnChèn
VALUES (GiáTrị1,GiáTrị2, GiáTrị3,…)

Cách 2: Chèn thêm dòng theo tên cột, dữ liệu sẽ được chèn vào CSDL theo tên cột.

INSERT INTO TênBảngCầnChèn (Cột1, Cột2, Cột3,…)
VALUES (GiáTrị1, GiáTrị2, GiáTrị3,…)

*) Ví dụ: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi xin minh họa chèn dữ liệu theo từng cách ở trên như sau:

Cách 1:
Tôi chèn dòng sau vào bảng:

ID|PONO|W_HDATE|TP|MATERIAL NAME|SPEC 2|COLOR NAME|POQTY|INPUTQTY|BALANCE|UNIT|PRICE|M_UNIT|AMOUNT|ORIGIN|SUPPLIER|REMARK

500

|DW13GW019|

01/06/2013

|AA|MESH 192|44|BLACK|

1000

|

0

|

-1000

|YDS|

1.9

|USD.|

1900

|VIETNAM|YOO SUNG MESH|
```
Sub ChenDong1()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "INSERT INTO tblData " & _
            "VALUES (500,'DW13GW019', #6/1/2013#,'AA','MESH 192','44','BLACK',1000,0,-1000,'YDS',1.9,'USD.',1900,'VIETNAM','YOO SUNG MESH', NULL)"
    rst.Open lsSQL, cnn
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
Cách 2: Ví dụ tôi chèn ID=501,W_HDate=30/01/2013,Supplier=YOO SUNG MESH thì tôi sẽ viết như sau:
```
Sub ChenDong2()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "INSERT INTO tblData (ID,W_HDate,Supplier) " & _
            "VALUES(501,#01/30/2013#,'YOO SUNG MESH')"
    rst.Open lsSQL, cnn
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
Thì chỉ duy nhất 3 giá trị trên được chèn vào các cột tương ứng với nó, các cột khác sẽ bị trống.
Delete

*) Mệnh đề SQL DELETE: Là dùng để xóa dữ liệu.
*) Cú Pháp:

– Xóa toàn bộ bảng dữ liệu:

DELETE
FROM TênBảngCầnXóa

Hoặc:

DELETE *
FROM TênBảngCầnXóa

– Xóa dữ liệu theo điều kiện:

DELETE
FROM TênBảngCầnXóa
WHERE ĐiềuKiệnXóa

Hoặc:

DELETE *
FROM TênBảngCầnXóa
WHERE ĐiềuKiệnXóa

*) Ví dụ: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi xin xóa dòng dữ liệu có ID=2 thì tôi sẽ viết như sau:
```
Sub XoaDong()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "DELETE * " & _
            "FROM tblData " & _
            "WHERE ID=2"
    rst.Open lsSQL, cnn
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
And & Or

*) AND & OR: Là dùng để kết hợp điều kiện truy vấn dữ liệu.

– AND: Là sự kết hợp 1 điều kiện thứ nhất và thứ 2 (Đk n). Dữ liệu sẽ xuất hiện nếu cả 2 (Đk n) điều kiện đều được thỏa mãn.
– OR: Dữ liệu sẽ xuất hiện khi thỏa mãn 1 trong nhiều điều kiện.
*) Ví dụ:
– AND: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi lọc ra những mặc hàng có điều kiện cột TP='A' và ORIGIN='KOREA' thì tôi sẽ viết như sau:
```
Sub Dk_And()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "SELECT * " & _
            "FROM tblData " & _
            "WHERE TP='A' AND ORIGIN='KOREA'"
    rst.Open lsSQL, cnn
    Cells.ClearContents
    [A2].CopyFromRecordset rst
    rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
==> Dữ liệu sẽ được xuất hiện 7 dòng với cột TP=A và ORIGIN=KOREA

– OR: Cũng với CSDL ở bài [URL="https://www.giaiphapexcel.com/forum/showthread.php?69450-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=426814#post426814"%5D2 tôi lọc ra những mặc hàng có điều kiện cột TP='A' hoặc ORIGIN='KOREA' thì tôi sẽ viết như sau:
```
Sub Dk_Or()
Dim cnn As Object: Dim rst As Object
Dim lsSQL As String
Set cnn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = ThisWorkbook.Path & "CSDL.mdb"
    .Properties("Jet OLEDB:Database Password") = "1234"
    .Open
End With
    lsSQL = "SELECT * " & _
            "FROM tblData " & _
            "WHERE TP='A' OR ORIGIN='KOREA'"
    rst.Open lsSQL, cnn
    Cells.ClearContents
    [A2].CopyFromRecordset rst
    rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing

End Sub
```
==> Dữ liệu sẽ được xuất hiện 188 dòng với điều kiện dòng dữ liệu cột thỏa mãn 1 trong 2 điều kiện TP=A hoặc ORIGIN=KOREA.

Reply
hands says:

02/02/2023 at 1:30 pm

Hai Lúa Miền Tây ơi cho mình hỏi tí.

ADO có toán tử LIKE để so sánh

VBA của Excel cũng có LIKE

Nếu VBA dùng LIKE, trong cấu trúc của LIKE có một thủ tục mà ít ai dùng đến đó là so sánh không phân biệt hoa thường đó là đặt thủ tục "Option Compare Text" trên cùng của Module (nếu không có thủ tục đó, mặc nhiên nó là "Option Compare Binary").

Nhưng khi dùng trong ADO vì mọi câu lệnh nó là dạng chuỗi nên không thể thực hiện được như trong VBA để chuyển hóa thuộc tính toán tử LIKE, vì thế, có đặt "Option Compare Text" đi chăng nữa nó cũng không có tác dụng gì!

Vậy câu lệnh nào có tác dụng như "Option Compare Text" trong ADO?

Cám ơn rất nhiều!

——————————————————
P/s: Mặc dù có thể ta chữa cháy bằng UCase hoặc LCase cho 2 vế, nhưng cứ tìm hiểu xem có hay không cái đã hen!

Anh thử dùng = thay vì dùng like.

Dù là "A" Like "a" hay "A" = "a" đều cho giá trị False

Thôi thì ta cứ UCase hoặc LCase cho 2 vế vậy!

Thanks.

Không biết anh test sao trên máy em vẫn là phân biệt được cho dù dùng like hoặc dùng =, đây là file em kiểm đã thử trên máy em
Không hiểu anh hỏi gì hả nmhung49, anh cần cái sự so sánh không phân biệt chữ hoa và chữ thường đấy mà, chứ ai chẳng biết "a" = "a" là True, nhưng "a" = "A" chắc chắn sẽ cho ra False rồi.

Thí dụ nè:
```
Sub test()
    Dim DK As String
    Dim Arr(), ftrArr

[B]    DK = [COLOR=#ff0000]"a"[/COLOR][/B]
    Arr = Array([COLOR=#ff0000][B]"A"[/B][/COLOR], "B", "C")

[COLOR=#008000]    ''Buoc 1: Không phân biệt chữ hoa chữ thường[/COLOR]
    ftrArr = Filter(Arr, DK, True, [COLOR=#0000ff]vbTextCompare[/COLOR])
    MsgBox ftrArr(0)

[COLOR=#008000]    ''Buoc 2: Có phân biệt chữ hoa chữ thường:[/COLOR]
    ftrArr = Filter(Arr, DK, True, [COLOR=#ff0000]vbBinaryCompare[/COLOR])
    MsgBox ftrArr(0)
End Sub
```
Reply
hands says:

02/02/2023 at 1:33 pm

Chưa đọc hết topic không biết phía sau có cau trả lời của mình không? Nhưng mình cũng xin hỏi luôn
muốn kết nối tới access 2007 viết sao vay?. Mong sơm nhận được trả lời!

Bạn thử tham khảo bài này:

[URL='https://www.giaiphapexcel.com/forum/showthread.php?69630-Th%E1%BA%A3o-lu%E1%BA%ADn-v%E1%BB%81-b%C3%A0i-ADO-c%C4%83n-b%E1%BA%A3n-K%E1%BA%BFt-n%E1%BB%91i-truy-v%E1%BA%A5n-CSDL-t%E1%BB%AB-file-Excel-%C4%91%E1%BA%BFn-file-Access&p=492170#post492170']https://www.giaiphapexcel.com/forum/…ile-Excel-đến-file-Access&p=492170#post492170

ACE cho mình hỏi, nếu lọc từ ngày tháng này đến ngày tháng khác thì cấu trúc như thế nào ạ.
Cho mình hỏi lấy dữ liệu từ nhiều table trong 1 file access thì thực hiện như thế nào. cảm ơn!

Thanks!

1. Union
2. Join
```
Public cnn As New ADODB.Connection
Sub Moketnoi()
Set cnn = New ADODB.Connection
Dim strCNString As String
strCNString = "Data Source=" & ThisWorkbook.Path & "CSDL.mdb"
With cnn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .ConnectionString = strCNString
    .Properties("Jet OLEDB:Database Password") = "1234"
    .CursorLocation = adUseClient
    .Open

End With

End Sub
```
Các bạn cho mình hỏi là kết nối với csdl accdb có pass như thế nào vây? như Sub trên mình thay csdl mdb thanh accdb thì chỉ có thể kết nối khi không có pass. file accdb có pass thì không kết nối được

cảm ơn mọi người nhiều!
1. accdb thì provider phải là ACE chứ. (Provider)

2. ACE hay Jet gì thì cũng mở password qua Jet. (Properties)
Tuy nhiên, vì nó là Jet cho nên nó không mở được những files được password encrypted theo kiểu của 2007 trở lên.
Muốn mở bằng connection string này thì phải encrypt nó lại theo kiểu cũ (2003).
– Vào Access, tháo password. Đóng lại.
– vào Access->File->Options->Client
Settings->Advanced, tích "use legacy encryption"
– Đặt password trở lại.
Encrypt kiểu cũ như vầy không an toàn bằng kiểu mới. Nhưng đó là cách duy nhất để kết nối với ADO.

các pro cho mình hỏi, ta có thể dùng excel để tạo hoặc xóa đi 1 trường dữ liệu của 1 bảng trong access được không, nếu có thì có thể cho em code ví dụ đc không. Rất mong câu trả lời của các pro, em cảm ơn./.

Bạn hoàn toàn có thể thêm và xóa trường dữ liệu bình thường bằng ví dụ sau:

1. Xóa
```
ALTER TABLE TenTable DROP COLUMN TenTruongDLCanXoa
```
2. Thêm
```
ALTER TABLE TenTable ADD COLUMN TenTruongDLCanThem  KieuDuLieu
```
Cho mình hỏi, ở code trên bạn sẽ copy dữ liệu trường SUPPLIER, , liền nhau vào excel, bắt đầu từ ô A5. Nếu mình muốn trên excel A5 để dữ liệu SUPPLIER, C5 để dữ liệu MATERIAL NAME, T5 để COLOR NAME thì có cách nào nhanh không bạn?

Mình hỏi thêm hỏi thêm một vấn đề khác, giả sử trong CSDL của bạn có trường POQTY
2924
Nếu ở excel mình có một dự liệu nhập hàng hôm đó, muốn: Cứ có hàng hóa mã ID là 1 thì sẽ cộng số excel vào số đã có trên POQTY thì cách cộng trực tiếp vào access không bạn? (mình chưa rành access, hiện thì mình phải dùng code copy dữ liệu POQTY của ID 1 ra ngoài excel, cộng rồi update lại vào excel)

1. Dùng câu lệnh truy vấn bỏ trống cột.
```
Select Supplier,'',MaterialName,'','',.... From...
```
2. Tạo bảng mới, lấy ID làm mối quan hệ với bảng gốc. Rồi xử lý bằng câu lệnh SQL chứ ai lại cập nhật trực tiếp vào bảng gốc.

Tầm 30 năm về trước nhiều con xe máy cỗ lỗ phải chế xăng pha nhớt mới chạy được, mỗi lần ra đường chạy bành bạch là khói mù mịt nhưng lại là niềm kiêu hãnh của nhiều bác thuở xe đạp vẫn còn chưa rẻ. Cũng may mấy hãng xe cải tiến công nghệ để người dùng đỡ phải tay can xăng, tay chai nhớt mà khói bụi ít hơn. Nếu hổng lập trình mà làm nghề sửa xe, có khi nào Anh Kiều Mạnh chế cháo mấy con xe đời mới bây giờ phải chạy bằng được xăng pha nhớt không nhỉ?

Động cơ hai thì mới chạy xăng pha nhớt. Động cơ 4 thì bắt buộc chạy xăng không pha. Tuy vậy hồi 1976 – 1980 thời mua xăng dầu phải có tem phiếu, xe hai thì dám chạy bằng xăng pha dầu hoả, xe bốn thì cũng pha nhưng pha ít chứ pha nhiều không nổ máy

Cái này thì hầu như người lớn ai cũng biết cả nhưng chú ptm0412 có thể lý giải tại sao động cơ sản xuất bây giờ không chạy bằng nguyên liệu pha chế như thế không? Nếu chú giải thích được thì chắc cháu cũng không cần lan man về vấn đề này.

Microsoft hầu như mỗi năm đều chào hàng một bộ Office mới nhưng họ phải mất trên dưới chục năm để ra đời một phiên bản data mới cho bộ Office. Điều đó chứng tỏ Microsoft đã nghiên cứu rất kỹ lưỡng, biết bỏ đi cái gì hạn chế, thêm mới cái gì cần thiết mà xài ổn định 10-20 năm vẫn không lỗi thời, đặc biệt là tương thích với bộ Office của hãng kể cả việc tương thích ngược. Mấy trăm anh kỹ sư MS đã tính kỹ lắm thì cần quái gì phải cố công làm cái việc họ cho là vô bổ, không cần thiết?

Reply
hands says:

02/02/2023 at 1:34 pm

Tầm 30 năm về trước nhiều con xe máy cỗ lỗ phải chế xăng pha nhớt mới chạy được, mỗi lần ra đường chạy bành bạch là khói mù mịt nhưng lại là niềm kiêu hãnh của nhiều bác thuở xe đạp vẫn còn chưa rẻ. Cũng may mấy hãng xe cải tiến công nghệ để người dùng đỡ phải tay can xăng, tay chai nhớt mà khói bụi ít hơn. Nếu hổng lập trình mà làm nghề sửa xe, có khi nào Anh Kiều Mạnh chế cháo mấy con xe đời mới bây giờ phải chạy bằng được xăng pha nhớt không nhỉ?

Nói gì ko hiểu lắm … văn vẻ triều tượng quá chậm tiếp thu như mạnh thì hơi khó hiểu … Chi tiết chút thì OK

Sơ bộ vầy :
nếu Viết cái Tools xxx.EXE để làm như bài số 40 thì Thứ 2 rảnh làm lại chút Úp cho … chiều nay kẹt lắm + mai chủ nhật càng kẹt
nếu Viết thành 1 Hàm API thì có thời gian Mạnh viết cho … keo nó trên Excel hay gì đó tùy …

Khả năng mạnh cho vào cái Add-Ins COM delphi của mạnh …. như tiện ích cần xài khi cần vì thấy có 1 số phần mềm củ vẫn xài cái Data của Access 1997 – 2000
Thực ra có mấy dòng code à có gì to tát đâu mà ( Mà nó xài chung cho cả Access từ 1997 to 2019 nữa đấy )

Nếu coi data là nhiên liệu và app là động cơ thì chuyện chọn nhiên liệu phù hợp với đời động cơ là hợp lý đúng không anh @Kiều Mạnh? Phiên bản Delphi của anh ra năm nào mà sao phải cố nuốt cái data đời 1997 khổ thế?:rolleyes:

khổ lắm làm cái Tools đó xài chung cho tất cả các Build Access mà từ Access 1997 to 2019 mà vốn nó có sẳn thế chứ ai rảnh đi làm riêng cho Access 1997

Tôi xin lỗi vì chỉ khoe mấy cái nhớ linh tinh về xăng dầu mà tôi nhớ. Còn về phiên bản office và tại sao " Mấy trăm anh kỹ sư MS đã tính kỹ lắm " mà vẫn không mở được Access 1997-2000 thì tôi mù tịt.

Thấy chú ptm0412 tỏ vẻ biêt́ về mấy cái động cơ ấy nên cháu hỏi ạ. Còn cái "Mấy trăm anh kỹ sư MS đã tính kỹ lắm" ̣(trong trường hợp nầy) là nhận định của cháu dựa vào những gì đã từng đọc chứ không phải câu hỏi để mất công chú trả lời ạ. Nếu chú ptm0412 hoặc ai thấy nhận định của cháu không đúng thì cứ nói ra, cứ giấu giếm để người như cháu ngu dốt mãi thì khổ quá ạ.:wounded1:

Reply