Import Dữ Liệu Lớn Từ Excel Vào Sql Server Nhanh Nhất.

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Import dữ liệu lớn từ excel vào sql server nhanh nhất. (1 người xem)

• Thread starter Thread starter quang0308
• Ngày gửi Ngày gửi 26/4/22

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0 Nhờ các anh, chị chỉ giúp có cách nào đưa dữ liệu từ excel vào sql server bằng VBA nhanh nhất đối với nguồn dữ liệu trên 10k dòng mà không bị treo file excel không ah, Em áp dụng câu lệnh insert into nó chậm và treo máy khi dữ liệu lớn. Sắp xếp theo thời gian sắp xếp theo bầu chọn

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

quang0308 đã viết: Nhờ các anh, chị chỉ giúp có cách nào đưa dữ liệu từ excel vào sql server bằng VBA nhanh nhất đối với nguồn dữ liệu trên 10k dòng nhanh nhất mà không bị treo file excel không ah, Em áp dụng câu lệnh insert into nó chậm và treo máy khi dữ liệu lớn. Nhấp chuột vào đây để mở rộng...

Vậy bạn thử for.. next dữ liệu rồi đưa hết vào câu lệnh insert into cuối cùng là ghi vào xem vấn đề gì không (nghĩa là ghi 1 lần) thay vì mỗi vòng lặp là 1 lần ghi vào. Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

Ngày mai trời lại sáng đã viết: Vậy bạn thử for.. next dữ liệu rồi đưa hết vào câu lệnh insert into cuối cùng là ghi vào xem vấn đề gì không (nghĩa là ghi 1 lần) thay vì mỗi vòng lặp là 1 lần ghi vào. Nhấp chuột vào đây để mở rộng...

Mình đã thử rất nhiều cách,trong đó có cách của bạn nhưng cũng không nhanh hơn dc vì nó phải chạy lệnh insert thì sẽ không nhanh được. Upvote 0

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

quang0308 đã viết: Mình đã thử rất nhiều cách,trong đó có cách của bạn nhưng cũng không nhanh hơn dc vì nó phải chạy lệnh insert thì sẽ không nhanh được. Nhấp chuột vào đây để mở rộng...

Cách nào chẳng phải for next bạn, cách của mình là câu lệnh insert sẽ nằm ngoài vòng lặp sau khi kết thúc mà bạn.. cách bạn có giống không? Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

Ngày mai trời lại sáng đã viết: Cách nào chẳng phải for next bạn, cách của mình là câu lệnh insert sẽ nằm ngoài vòng lặp sau khi kết thúc mà bạn.. cách bạn có giống không? Nhấp chuột vào đây để mở rộng...

Rồi insert vào kiểu gì bạn thử demo cho mình dc không? Upvote 0

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

quang0308 đã viết: Rồi insert vào kiểu gì bạn thử demo cho mình dc không? Nhấp chuột vào đây để mở rộng...

Vậy code của bạn đâu? Upvote 0 V

VetMini

Đang đi tìm hòn đá

Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta Bên SQL Server, lập cái SP nó import từ Excel. Chứ ai lại đi ngược vậy. SQL Server, dùng SP thì khá an toàn. Đi từ VBA qua thì câu kết nối phải cởi cái lớp an toàn của SQL Server. Đang không tự giao chìa khoá nhà cho người ngoài. Từ Excel vào nơi khác thì gọi là Export chứ đâu phải Import. Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

quang0308 đã viết: Rồi insert vào kiểu gì bạn thử demo cho mình dc không? Nhấp chuột vào đây để mở rộng...

Cách của ban có lẽ là tạo 1 chuỗi dữ liệu theo cấu trúc bảng rồi thực thi câu lệnh insert,cách này mình đã làm dữ liệu lớn nó chạy miệt mài bạn oi. Bài đã được tự động gộp: 26/4/22

VetMini đã viết: Bên SQL Server, lập cái SP nó import từ Excel. Chứ ai lại đi ngược vậy. SQL Server, dùng SP thì khá an toàn. Đi từ VBA qua thì câu kết nối phải cởi cái lớp an toàn của SQL Server. Đang không tự giao chìa khoá nhà cho người ngoài. Từ Excel vào nơi khác thì gọi là Export chứ đâu phải Import. Nhấp chuột vào đây để mở rộng...

Mình tạo sẵn bảng trên sql và nguoi dùng họ nhấn nút để đẩy dữ liệu lên đó thì có gì sai bạn. Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam

quang0308 đã viết: Nhờ các anh, chị chỉ giúp có cách nào đưa dữ liệu từ excel vào sql server bằng VBA nhanh nhất đối với nguồn dữ liệu trên 10k dòng mà không bị treo file excel không ah, Em áp dụng câu lệnh insert into nó chậm và treo máy khi dữ liệu lớn. Nhấp chuột vào đây để mở rộng...

C1: Bạn đã thử dùng ADODB Recordset chưa? - Kết nối SQL Server, mở ADO Recordset từ Table đích. - Đưa dữ liệu Excel vào Array rồi AddNew vào ADO Recordset -> UpdateBatch. Cách này chắc chắn nhanh hơn Insert into. C2: Chuyển dữ liệu Excel thành CSV rồi Bulk Insert vào SQL SV. Cái này viết SP. Lần chỉnh sửa cuối: 26/4/22 Upvote 0

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

quang0308 đã viết: Cách của ban có lẽ là tạo 1 chuỗi dữ liệu theo cấu trúc bảng rồi thực thi câu lệnh insert,cách này mình đã làm dữ liệu lớn nó chạy miệt mài bạn oi. Bài đã được tự động gộp: 26/4/22 Mình tạo sẵn bảng trên sql và nguoi dùng họ nhấn nút để đẩy dữ liệu lên đó thì có gì sai bạn. Nhấp chuột vào đây để mở rộng...

quang0308 đã viết: Rồi insert vào kiểu gì bạn thử demo cho mình dc không? Nhấp chuột vào đây để mở rộng...

Kiểu này nè bạn: Mã: Sao chép. data = rng.Resize(lastRow, lastCol).Value For j = 1 To lastCol If j = 1 Then sColName = data(1, j) Else sColName = sColName & "," & data(1, j) End If Next j For i = 2 To lastRow For j = 1 To lastCol If i = 2 Then str = data(i, j) Else str = "'" & data(i, j) & "'" End If If j = 1 And i = 2 Then aInsert = "(" & str ElseIf j = 1 Then aInsert = aInsert & ",(" & str Else aInsert = aInsert & "," & str End If Next j aInsert = aInsert & ")" Next i strSQL = "INSERT INTO " & "[" & sDBName & "].[dbo].[" & sTbName & "] (" & sColName & ") VALUES " & aInsert cnn.Execute (strSQL) Upvote 0 V

VetMini

Đang đi tìm hòn đá

Tham gia 21/12/12 Bài viết 17,867 Được thích 24,788 Nghề nghiệp Thầy bói bài ta

quang0308 đã viết: ... Mình tạo sẵn bảng trên sql và nguoi dùng họ nhấn nút để đẩy dữ liệu lên đó thì có gì sai bạn. Nhấp chuột vào đây để mở rộng...

SQL Server phải cho phép VBA kết nối. Chính cái kết nối ấy mở đường cho acttack. Kiến thức về an toàn CSDL của người viết VBA là con số không tổ bố. Hầu hết các chuỗi kết nối chứa tên user và password. Khi làm việc trên SQL Server Management Studio (SSMS) thì chủ server cho phép máy con được kết nối với một số diều kiện. Người chạy SSMS phải có một số kiến thức về an toàn. Admin của Server có thể giới hạn rằng người dùng chỉ có quyền đọc, ghi thì phải dùng SP (stored procedure) Cách an toàn duy nhất cho VBA là đặt Schedule Task, đưa tham số tên file, tên bảng vào SP. Scheduled Task sẽ tự chạy SP. Vì SP chịu kiểm soát của Server cho nên khá an toàn. Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

Ngày mai trời lại sáng đã viết: Kiểu này nè bạn: Mã: Sao chép. data = rng.Resize(lastRow, lastCol).Value For j = 1 To lastCol If j = 1 Then sColName = data(1, j) Else sColName = sColName & "," & data(1, j) End If Next j For i = 2 To lastRow For j = 1 To lastCol If i = 2 Then str = data(i, j) Else str = "'" & data(i, j) & "'" End If If j = 1 And i = 2 Then aInsert = "(" & str ElseIf j = 1 Then aInsert = aInsert & ",(" & str Else aInsert = aInsert & "," & str End If Next j aInsert = aInsert & ")" Next i strSQL = "INSERT INTO " & "[" & sDBName & "].[dbo].[" & sTbName & "] (" & sColName & ") VALUES " & aInsert cnn.Execute (strSQL) Nhấp chuột vào đây để mở rộng...

Ok nhưng dữ liệu lớn chạy chậm lắm bạn. Ban có cách nào nhanh hơn chỉ mình với. Upvote 0

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

quang0308 đã viết: Ok nhưng dữ liệu lớn chạy chậm lắm bạn. Ban có cách nào nhanh hơn chỉ mình với. Nhấp chuột vào đây để mở rộng...

Mình thấy bài 9 của anh @ongke0711 có gợi ý 2 cách đó mà chưa thấy bạn phản hồi. Rồi các nguy cơ liên quan đến máy chủ mà chú @VetMini nói tớ nữa đó bạn. Mình không có phòng thí nghiệm để thử nên chỉ có cách củ chuối đó thôi bạn. Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam Đang rảnh làm cái test transfer data các kiểu xem như thế nào nhé. - Dữ liệu: 30k dòng x 15 cột - Mới test 2 cách đã đề cập: dùng SP để bulk insert cực kỳ nhanh nhưng đổi lại là user phải có quyền Admin mới xài được lệnh này. - Dùng Bulk insert thì sẽ có những đánh đổi để được tốc độ như nó không kiểm tra các khóa, các ràng buộc dữ liệu (constraint) mà chỉ nạp một đống dữ liệu vào. Nếu ngoài việc chuyển dữ liệu lớn vào SQL SV thì không nên dùng cách này. (Lưu ý: là chỉ đang test trên cùng 1 máy cài SQL SV, không tính tới yếu tố băng thông khi đưa lên máy chủ, qua mạng LAN, WAN) Lần chỉnh sửa cuối: 27/4/22 Upvote 0

Ngày mai trời lại sáng

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

Tham gia 4/7/21 Bài viết 340 Được thích 139

ongke0711 đã viết: Đang rảnh làm cái test transfer data các kiểu xem như thế nào nhé. - Dữ liệu: 30k dòng x 15 cột - Mới test 2 cách đã đề cập: dùng SP để bulk insert cực kỳ nhanh nhưng đổi lại là user phải có quyền Admin mới xài được lệnh này. View attachment 275069 Nhấp chuột vào đây để mở rộng...

Nhìn hấp dẫn quá,chia sẻ cho em học để áp dụng với anh Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

ongke0711 đã viết: C1: Bạn đã thử dùng ADODB Recordset chưa? - Kết nối SQL Server, mở ADO Recordset từ Table đích. - Đưa dữ liệu Excel vào Array rồi AddNew vào ADO Recordset -> UpdateBatch. Cách này chắc chắn nhanh hơn Insert into. C2: Chuyển dữ liệu Excel thành CSV rồi Bulk Insert vào SQL SV. Cái này viết SP. Nhấp chuột vào đây để mở rộng...

C1 mình đã làm nhưng vần không nhanh hơn được. C2 thì mình không biết, bạn có thể hướng dẫn mình được không ? Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam

quang0308 đã viết: C1 mình đã làm nhưng vần không nhanh hơn được. C2 thì mình không biết, bạn có thể hướng dẫn mình được không ? Nhấp chuột vào đây để mở rộng...

Code bạn làm như thế nào? Xem thử nguyên nhân nó ra sao. Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

ongke0711 đã viết: Code bạn làm như thế nào? Xem thử nguyên nhân nó ra sao. Nhấp chuột vào đây để mở rộng...

'Sub NL_TH_KHTT() ' 'FORM_LOG.Show ' Call connect_data.connect_sql ' Dim rs, rs1 As Object ' Dim delete_query, select_query As String ' delete_query = "truncate table [CSDL_LDA].[KHOAN_PHONG].[NL_TH_KHTT]" ' Set rs = cn.Execute(delete_query) ' select_query = "Select * from [CSDL_LDA].[KHOAN_PHONG].[NL_TH_KHTT] " ' Set rs1 = CreateObject("adodb.RecordSet") ' rs1.Open select_query, cn, 1, 3 ' Dim xlRow, last_row As Long ' Dim xlCol As Integer ' last_row = ThisWorkbook.Worksheets("NL_TH_KHTT").Cells(Rows.Count, 1).End(xlUp).Row ' For xlRow = 2 To last_row ' rs1.AddNew ' For xlCol = 1 To 20 ' rs1.Fields(Cells(1, xlCol).Value) = Cells(xlRow, xlCol).Value ' Next xlCol 'Next xlRow 'rs1.updateBatch ' cn.Close ' Set cn = Nothing ' Set rs1 = Nothing ' Set rs = Nothing ' End Sub Bạn xem thử vì sao nó chậm lắm luôn á, còn chậm hơn cả cách insert into ngoài vòng for .. next Upvote 0

thuyyeu99

Trùm Nhiều Chuyện

Tham gia 6/6/08 Bài viết 1,729 Được thích 875

quang0308 đã viết: 'Sub NL_TH_KHTT() ' 'FORM_LOG.Show ' Call connect_data.connect_sql ' Dim rs, rs1 As Object ' Dim delete_query, select_query As String ' delete_query = "truncate table [CSDL_LDA].[KHOAN_PHONG].[NL_TH_KHTT]" ' Set rs = cn.Execute(delete_query) ' select_query = "Select * from [CSDL_LDA].[KHOAN_PHONG].[NL_TH_KHTT] " ' Set rs1 = CreateObject("adodb.RecordSet") ' rs1.Open select_query, cn, 1, 3 ' Dim xlRow, last_row As Long ' Dim xlCol As Integer ' last_row = ThisWorkbook.Worksheets("NL_TH_KHTT").Cells(Rows.Count, 1).End(xlUp).Row ' For xlRow = 2 To last_row ' rs1.AddNew ' For xlCol = 1 To 20 ' rs1.Fields(Cells(1, xlCol).Value) = Cells(xlRow, xlCol).Value ' Next xlCol 'Next xlRow 'rs1.updateBatch ' cn.Close ' Set cn = Nothing ' Set rs1 = Nothing ' Set rs = Nothing ' End Sub Bạn xem thử vì sao nó chậm lắm luôn á, còn chậm hơn cả cách insert into ngoài vòng for .. next Nhấp chuột vào đây để mở rộng...

Theo tôi thấy code bạn làm sai ý rồi, cố gắng mò đi cho nhớ Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam

quang0308 đã viết: ' Dim rs, rs1 As Object ' For xlCol = 1 To 20 ' rs1.Fields(Cells(1, xlCol).Value) = Cells(xlRow, xlCol).Value ' Next xlCol 'Next xlRow Bạn xem thử vì sao nó chậm lắm luôn á, còn chậm hơn cả cách insert into ngoài vòng for .. next Nhấp chuột vào đây để mở rộng...

- Dính lỗi khai báo biến gộp. Có bài nói rồi. - Mỗi lần lấy dữ liệu là mỗi lần tương tác với Sheet. - Các Action query (Delete, Insert, update) thì chỉ cần thực thi, không cần phải qua đối tượng Recordset. Dùng thẳng đối tượng ADO Connection hoặc ADO Command. - Code VBA còn lủng củng thì sẽ khó hơn khi tương tác với stored procedure của SQL Server. Thông thường khi nhập liệu lên table của SQL Server người ta thường truyền tham số cho stored procedure của SQL Sv để chạy trên máy chủ chứ không chạy bằng câu lệnh SQL ở phía khách như anh Vetmini đã đề cập ở trên. (Tránh bị SQL injection). Lần chỉnh sửa cuối: 27/4/22 Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

ongke0711 đã viết: - Dính lỗi khai báo biến gộp. Có bài nói rồi. - Mỗi lần lấy dữ liệu là mỗi lần tương tác với Sheet. - Các Action query (Delete, Insert, update) thì chỉ cần thực thi, không cần phải qua đối tượng Recordset. Dùng thẳng đối tượng ADO Connection hoặc ADO Command. - Code VBA còn lủng củng thì sẽ khó hơn khi tương tác với stored procedure của SQL Server. Nhấp chuột vào đây để mở rộng...

Hic nó chi chạy chậm chứ nó không hề báo lỗi gì.Bạn có thể chia sẽ cho mình cách bulk insert vba được không? Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840 Ợ. Tưởng vướng mắc gì, sao ngay bài #1 không úp code đã làm lên cho rồi. Vậy mà phương án nào đưa ra cũng kêu chậm. Gọi tới từng cell thế kia thì siêu rùa chứ chậm gì. last_row còn gọi tới sheet cụ thể, lúc lấy dữ liệu thì gọi cell trống không. Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,941 Được thích 1,907

quang0308 đã viết: Nhờ các anh, chị chỉ giúp có cách nào đưa dữ liệu từ excel vào sql server bằng VBA nhanh nhất đối với nguồn dữ liệu trên 10k dòng mà không bị treo file excel không ah, Em áp dụng câu lệnh insert into nó chậm và treo máy khi dữ liệu lớn. Nhấp chuột vào đây để mở rộng...

Nên hỏi IT phụ trách cơ sở dữ liệu đó. Nếu bạn là IT phụ trách luôn: thì sẽ biết nên hỏi vấn đề này ở đâu thay vì Excel Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam

quang0308 đã viết: C1 mình đã làm nhưng vần không nhanh hơn được. C2 thì mình không biết, bạn có thể hướng dẫn mình được không ? Nhấp chuột vào đây để mở rộng...

Bạn xem file đính kèm. - Mở SQL Server và chạy lần lượt 3 cái SQL script để tạo: TestDB, tblRawData và cái stored procedure Bulk insert. - Chạy file Excel và nhập các thông số kết nối tới máy chủ SQL Server của bạn. Bổ sung: Tùy phiên bản và thiết lập SQL Server của bạn mà thay đổi Connection String cho phù hợp nhé. Mã: Sao chép. mConnectionString = "Network Library=DBMSSOCN;" & _ "PROVIDER=MSOLEDBSQL;DATA SOURCE=" & mServerName & _ ";INITIAL CATALOG=" & mDatabaseName & _ ";User Id=" & mUserName & ";Password=" & mPassword & ";" Mã: Sao chép. mConnectionString = "Driver={SQL Server};" & _ "Server=" & mServerName & _ ";Database=" & mDatabaseName & _ ";Uid=" & mUserName & _ ";Pwd=" & mPassword & ";" '";DataTypeCompatibility=80;" 'dung cho SQL SV 2019 với các datatype moi'

File đính kèm

• TransferExcelTableToSQLServer.zip TransferExcelTableToSQLServer.zip 3 MB · Đọc: 45

Lần chỉnh sửa cuối: 29/4/22 Upvote 0 H

hvnhpro

Thành viên hoạt động

Tham gia 3/3/11 Bài viết 163 Được thích 93 Giới tính Nam

ongke0711 đã viết: Bạn xem file đính kèm. - Mở SQL Server và chạy lần lượt 3 cái SQL script để tạo: TestDB, tblRawData và cái stored procedure Bulk insert. - Chạy file Excel và nhập các thông số kết nối tới máy chủ SQL Server của bạn. Nhấp chuột vào đây để mở rộng...

Cảm ơn Ongke0711 đã chia sẻ. Em đang tìm hiểu về ADODB, bác có thể cho em xin thêm tài liệu hoặc link tham khảo được ko, em cảm ơn!!! vd như qua ngâm cứu file bác gửi, em thấy bác khai báo mấy biến chung này mà vẫn ko hiểu khai báo này có mục đích để làm gì? Private Const adUseClient As Long = 3 Private Const adLockReadOnly As Long = 1 Private Const adStateOpen As Long = 1 Private Const adCmdStoredProc As Long = 4 Private Const adParamOutput As Long = 2 Private Const adOpenDynamic As Long = 2 Private Const adOpenStatic As Long = 3 Public Enum DBaseType dbSQLServer = 1 dbAccess = 2 dbIBMDADB2 = 3 End Enum Upvote 0

ongke0711

Thành viên gắn bó

Tham gia 7/9/06 Bài viết 2,423 Được thích 3,313 Giới tính Nam

hvnhpro đã viết: Private Const adUseClient As Long = 3 Private Const adLockReadOnly As Long = 1 Private Const adStateOpen As Long = 1 Private Const adCmdStoredProc As Long = 4 Private Const adParamOutput As Long = 2 Private Const adOpenDynamic As Long = 2 Private Const adOpenStatic As Long = 3 Public Enum DBaseType dbSQLServer = 1 dbAccess = 2 dbIBMDADB2 = 3 End Enum Nhấp chuột vào đây để mở rộng...

Code gốc của tôi dùng khai báo muộn (Late binding) với thư viện ADODB, nên nếu dùng tên hằng như: rs1.Open select_query, cn , adOpenKeySet, adLockOptimistic sẽ báo lỗi ngay vì VBA nó không hiểu các tham số đó là gì nếu chưa khai báo nó. Nếu truyền tham số trong câu lệnh bằng các con số thì sẽ không báo lỗi nhưng không phải ai cũng nhớ nó là tham số gì. Người ta hay gọi là Magic number. Mã: Sao chép. rs1.Open select_query, cn, 1, 3 Do đó tôi khai báo các hằng trên để có thể dùng cái tên nó luôn trong câu lệnh đối với Late binding. Còn phần khai báo: DBType là vì tôi dùng bộ code này để kết nối với 2 loại CSDL khác là Access và IBMDB. Khi kết nối với CSDL nào thì cung cấp tham số này để code nó tạo chuỗi kết nối phù hợp với loại CSDL đó. Tài liệu tham khảo: đính kèm bên dưới.

File đính kèm

• ADO_Activex_Data_Objects.pdf ADO_Activex_Data_Objects.pdf 2.4 MB · Đọc: 19

Upvote 0 H

hvnhpro

Thành viên hoạt động

Tham gia 3/3/11 Bài viết 163 Được thích 93 Giới tính Nam

ongke0711 đã viết: Code gốc của tôi dùng khai báo muộn (Late binding) với thư viện ADODB, nên nếu dùng tên hằng như: rs1.Open select_query, cn , adOpenKeySet, adLockOptimistic sẽ báo lỗi ngay vì VBA nó không hiểu các tham số đó là gì nếu chưa khai báo nó. Nếu truyền tham số trong câu lệnh bằng các con số thì sẽ không báo lỗi nhưng không phải ai cũng nhớ nó là tham số gì. Người ta hay gọi là Magic number. Mã: Sao chép. rs1.Open select_query, cn, 1, 3 Do đó tôi khai báo các hằng trên để có thể dùng cái tên nó luôn trong câu lệnh đối với Late binding. Còn phần khai báo: DBType là vì tôi dùng bộ code này để kết nối với 2 loại CSDL khác là Access và IBMDB. Khi kết nối với CSDL nào thì cung cấp tham số này để code nó tạo chuỗi kết nối phù hợp với loại CSDL đó. Tài liệu tham khảo: đính kèm bên dưới. Nhấp chuột vào đây để mở rộng...

lần thứ n cảm ơn Bác. Có tài liệu đọc sẽ hiểu gốc vấn đề hơn học mót. Upvote 0 Q

quang0308

Thành viên mới

Tham gia 21/7/21 Bài viết 11 Được thích 0

ongke0711 đã viết: Bạn xem file đính kèm. - Mở SQL Server và chạy lần lượt 3 cái SQL script để tạo: TestDB, tblRawData và cái stored procedure Bulk insert. - Chạy file Excel và nhập các thông số kết nối tới máy chủ SQL Server của bạn. Bổ sung: Tùy phiên bản và thiết lập SQL Server của bạn mà thay đổi Connection String cho phù hợp nhé. Mã: Sao chép. mConnectionString = "Network Library=DBMSSOCN;" & _ "PROVIDER=MSOLEDBSQL;DATA SOURCE=" & mServerName & _ ";INITIAL CATALOG=" & mDatabaseName & _ ";User Id=" & mUserName & ";Password=" & mPassword & ";" Mã: Sao chép. mConnectionString = "Driver={SQL Server};" & _ "Server=" & mServerName & _ ";Database=" & mDatabaseName & _ ";Uid=" & mUserName & _ ";Pwd=" & mPassword & ";" '";DataTypeCompatibility=80;" 'dung cho SQL SV 2019 với các datatype moi' Nhấp chuột vào đây để mở rộng...

cảm ơn bạn rất nhiều. Upvote 0

befaint

|||||||||||||

Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840

hvnhpro đã viết: khai báo mấy biến chung này Nhấp chuột vào đây để mở rộng...

Cái đó gọi là enum (value of Constant). Khi dùng kết nối sớm thì dùng Constant (cũng có thể dùng value). Lúc gõ phương thức/ thuộc tính môi trường lập trình đưa sẵn gợi ý constant để lựa chọn. Khi dùng kết nối muộn, object chỉ chấp nhận dùng enum. Và lập trình tường minh, rõ ràng thì phải khai báo các trị đó rõ ràng dạng hằng, để dễ nhận biết, quản trị. Muốn biết enum của Constant tương ứng là gì thì gõ vào Google là thấy. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

P Tìm giá trị tồn kho đầu ngày (2 người xem)

• ptthuongtn
• Hôm qua, lúc 15:15
• Hàm và công thức Excel

Trả lời 1 Đọc 50 Hôm qua, lúc 22:19 thanthanhan K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ... (1 người xem)

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 6 Đọc 135 Hôm qua, lúc 18:40 ptm0412 M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (1 người xem)

• • 

• Mr_Siro
• Hôm qua, lúc 10:57
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 80 Hôm qua, lúc 17:38 SA_DQ Tính định mức sản phẩm (2 người xem)

• • 

• Nguyenkhang2404
• 24/7/25
• Hàm và công thức Excel

Trả lời 10 Đọc 824 Hôm qua, lúc 15:54 thaodang88 T Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (2 người xem)

• skygatevn
• Hôm qua, lúc 11:59
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 61 Hôm qua, lúc 13:52 skygatevn Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025! (1 người xem)

• • 

• PhanTuHuong
• 10/12/25
• Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 281 Hôm qua, lúc 12:43 GPE-Trợ Lý D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 14 Đọc 372 Hôm qua, lúc 10:20 dieppk.nb92 D Nếu diễn đàn GPE đóng cửa? (2 người xem)

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 17 Đọc 510 Hôm qua, lúc 09:21 anhtuanle123 A CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

• • 

• GPE-Trợ Lý
• 24/11/25
• Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 843 Hôm qua, lúc 07:38 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (1 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 152 Thứ ba lúc 13:59 phamdinh.huy.aladin@gmail P D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 299 Thứ ba lúc 09:00 ptm0412

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 535 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 164 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 128 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 163 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 148 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

• Dinh Hong Nhung
• 11/12/25
• Hàm và công thức Excel

Trả lời 14 Đọc 816 Thứ bảy lúc 10:43 Cúc Hr C Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 33
• thanthanhan 22
• dungpham01 19
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• ptm0412 14
• Phan Thế Hiệp 13
• HUONGHCKT 12
• vic_it 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• dieppk.nb92 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 63
• Maika8008 26
• thanthanhan 18
• ongke0711 17
• ptm0412 15
• HeSanbi 12
• dungpham01 11
• HUONGHCKT 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• Mr.hieudoanxd 5
• pycckuu410 5
• befaint 5
• Phuocam 4
• nguyenanhtruong2409 4
• SA_DQ 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 2

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

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom