|
|
Viết bởi: danhxetnghiem 11-04-23, 11:57 AM Chuyên mục: Forms - Bài trả lời (23) |
|
|
Viết bởi: hoangdieuthuy82 28-03-23, 10:01 PM Chuyên mục: Query - Bài trả lời (10) |
|
|
Viết bởi: Đình Phán 25-03-23, 10:59 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
Public Sub Search_Debit()
Dim MyCnn As Object
Dim MyRs As Object
Dim MySQL As String
Application.ScreenUpdating = False
Set MyCnn = CreateObject("ADODB.Connection")
Set MyRs = CreateObject("ADODB.Recordset")
'ConnectionString Excel *xlsb
'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myBinaryExcel2007file.xlsb;Extended Properties="Excel 12.0;HDR=YES";
MyCnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES"";"
'MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like ""B"") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"
MySQL = "SELECT [Ngay_Thang],[So_Tien],[Dien_Giai] FROM [Debit$A:E] WHERE ((([Tai_Khoan] like " & [Account] & ") AND ([Ma_Doi_Tuong] like " & [MET] & ") AND ([Ngay_Thang] BETWEEN #" & [Date_1] & "# AND #" & [Date_2] & "#)));"
MyRs.Open MySQL, MyCnn
Sheets("Search").Range("A9:E1000").ClearContents
Sheets("Search").Range("B9").CopyFromRecordset MyRs
MyCnn.Close
Set MyRs = Nothing
Set MyCnn = Nothing
Application.ScreenUpdating = True
End Sub
|
|
Viết bởi: tt1212 23-03-23, 10:30 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (7) |
|
|
Viết bởi: Thanh Phat 11-03-23, 04:18 PM Chuyên mục: Report - Bài trả lời (4) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 659 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 185 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 630 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |