Xin giúp đỡ về ado (3 người xem)

[tn001]

Chào các anh chị
Em tìm kiếm trên diễn đàn thấy file NHAP DU LIEU(ADO) của bác Hai lúa miền tây
Cảm ơn bác rất nhiều, tiện ích này rất phù hợp với công việc của em
Bác Hai lúa miền tây hoặc các anh chị có thể giúp em thêm môt chút nữa là em muốn dữ liệu được đồng thời nhập vào 3 sheet file và cấu trúc vẫn nguyên như file gốc của bác Hai lúa miền tây
Chỉ có điều em muốn được thay đổi chút là
Dữ liệu trên form từ D3-D9 được nhập vào sheet KHAI SINH
Dữ liệu trên form từ D10-D14 được nhập vào sheet KHAI SINH1
Dữ liệu trên form từ D15-D19 được nhập vào sheet KHAI SINH2
em xin cảm ơn nhiều ạ!

 

[dhn46]

Truy vấn của bạn:

                 .Source = "UPDATE [KHAI SINH$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH$].C28=" & Sheet1.Range("E22")

Đó là truy vấn update cho KHAI SINH
Bạn muốn thêm cho sheet KHAI SINH1 nữa thì bạn tạo 1 truy vấn tương tự rồi open nó là được.

 

[tn001]

Truy vấn của bạn:

                 .Source = "UPDATE [KHAI SINH$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH$].C28=" & Sheet1.Range("E22")

Đó là truy vấn update cho KHAI SINH
Bạn muốn thêm cho sheet KHAI SINH1 nữa thì bạn tạo 1 truy vấn tương tự rồi open nó là được.

anh dhn46 ơi, ý em là khi lưu dữ liệu ấy, lưu đồng thời luôn, sheet KHAISINH chi nhập dư liệu từ D3-D9
sheet KHAISINH1 chi nhập dư liệu từ D10-D14
sheet KHAISINH2 chi nhập dư liệu từ D15-D19

em làm thế vì từ file dữ liệu này em có thể mở rộng ra trong công việc cụ thể của em khi dữ liệu lớn hơn 256 trường dữ liệu trong 1 bản ghi anh ah. Vì hình như ADO trong file excel này tối đa được 256 trường dữ liệu thôi ạ (không biết có phải không)
Nêu giả sử có có một form có khoảng 700 trường dữ liệu thì em dự định ghép 3 sheet vào

Mong anh và các anh chị giúp đỡ ạ, em xin cảm ơn!
như vậy em sẽ ghép

 

[dhn46]

Giới hạn 255 Fields và 65535 records là chuẩn đấy bạn. Nếu có ý tiếp tục dùng ADO thì bạn chế biến các sheet đó sao cho vừa số Filed, chỉ gồm 1 cột tham chiếu số thứ tự còn lại chia ra để trị

Một cách khác cho 700 fields là dùng code bình thường để gán vào là được.

 

[tn001]

giới hạn 255 fields và 65535 records là chuẩn đấy bạn. Nếu có ý tiếp tục dùng ado thì bạn chế biến các sheet đó sao cho vừa số filed, chỉ gồm 1 cột tham chiếu số thứ tự còn lại chia ra để trị

một cách khác cho 700 fields là dùng code bình thường để gán vào là được.

anh có thể hướng dẫn chi tiết hơn và cụ thể cho em được không? Em xin cảm ơn

 

[dhn46]

Do file của bạn không đầy đủ nên viết Code sẽ phải viết lại nên tôi hướng dẫn bạn theo ADO nhé

Bạn tách dữ liệu ra các sheet với cấu trúc các sheet như sau

Cột A là cột tham chiếu ở đây chính là số thứ tự
254 cột còn lại mỗi sheet tương ứng các trường

Ví dụ: sheet KHAI SINH từ Field 1 => 254
sheet KHAI SINH1 từ Field 255 =>255+254...

Sau đó dùng Query Update để update vào các sheet.

 

[tn001]

Do file của bạn không đầy đủ nên viết Code sẽ phải viết lại nên tôi hướng dẫn bạn theo ADO nhé

Bạn tách dữ liệu ra các sheet với cấu trúc các sheet như sau

Cột A là cột tham chiếu ở đây chính là số thứ tự
254 cột còn lại mỗi sheet tương ứng các trường

Ví dụ: sheet KHAI SINH từ Field 1 => 254
sheet KHAI SINH1 từ Field 255 =>255+254...

Sau đó dùng Query Update để update vào các sheet.

vâng, vì dữ liệu nhiều nên em cũng dự định là dùng cách như vậy để lưu dữ liệu bác à, bác có thể sửa code luôn vào file excel trên được không ạ
coi như toàn bộ Dữ liệu trên form từ D3-D9 được nhập vào sheet KHAI SINH
Dữ liệu trên form từ D10-D14 được nhập vào sheet KHAI SINH1
Dữ liệu trên form từ D15-D19 được nhập vào sheet KHAI SINH2
bác cho em xin code cách update dữ liệu đồng thời vào she et KHAI SINH1 và SHEET SINH2 với
(Bác có thể sửa luôn trên file excel nhé, em xin cảm ơn nhiều)

 

[dhn46]

Bạn tự sửa theo ý như code dưới đây nhé. Bố trí lại dữ liệu lại đi bạn như mình đã nói tại bài #6.

            With rs
                 .ActiveConnection = cnn
                 'Sheet KHAI SINH
                 .Source = "UPDATE [KHAI SINH$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH$].C28=" & Sheet1.Range("E22")
                 .Open
                 'Sheet KHAI SINH1
                 .Source = "UPDATE [KHAI SINH1$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH1$].C28=" & Sheet1.Range("E22")
                 .Open
                 'Sheet KHAI SINH2
                 .Source = "UPDATE [KHAI SINH2$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH2$].C28=" & Sheet1.Range("E22")
                 .Open
            End With

Nhìn bạn viết code chắc bạn có tể tuyg biến!

 

[tn001]

Bạn tự sửa theo ý như code dưới đây nhé. Bố trí lại dữ liệu lại đi bạn như mình đã nói tại bài #6.

            With rs
                 .ActiveConnection = cnn
                 'Sheet KHAI SINH
                 .Source = "UPDATE [KHAI SINH$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH$].C28=" & Sheet1.Range("E22")
                 .Open
                 'Sheet KHAI SINH1
                 .Source = "UPDATE [KHAI SINH1$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH1$].C28=" & Sheet1.Range("E22")
                 .Open
                 'Sheet KHAI SINH2
                 .Source = "UPDATE [KHAI SINH2$] SET C1='" & Sheet1.Range("D3") & "', C2 = '" & Sheet1.Range("F3") & "', C3 = '" & Sheet1.Range("H3") & "', C4 = '" & Sheet1.Range("D4") & "', C5 = '" & Sheet1.Range("H4") & "', C6 = '" & Sheet1.Range("D5") & "', C7 = '" & Sheet1.Range("D6") & "' WHERE [KHAI SINH2$].C28=" & Sheet1.Range("E22")
                 .Open
            End With

Nhìn bạn viết code chắc bạn có tể tuyg biến!

Anh ơi, file này là em tìm trên diễn đàn, em làm sao viết được code như thế. Bác có thể chỉnh luôn vào code trong file hộ em được không ạ. Làm phiền bác quá.
Em xin cảm ơn nhiều ạ

 

[tn001]

anh dhn46 ơi có thể giúp em sửa thẳng vào code của file đính kèm NHAP DU LIEU(ADO).xls (146.0 KB, 4 lần tải) không?
Hoặc nếu không anh có thể sửa file em gửi thêm em tìm được trên diễn đàn
anh có thể sủa giúp em thêm mấy lệch load dữ liệu đầu tiên, load dữ liệu cuối cùng, di chuyển trước và sau dữ liệu đang làm việc hiện tại giống như các nút lệnh ở trên file NHAP DU LIEU(ADO).xls được không ạ
Em cảm ơn anh nhiều

 

[phihndhsp]

Vấn để không phải là Ado vài câu lệnh truy vấn. Mấy câu lệnh truy vấn kết nối bạn chỉ cần học vài mươi ngày là ok, nhưng mà để viết được 1 ứng dụng thì hơi khó đó à nha. Thiết kế csdl như thế nào, cái nào liên kết cái nào, các phép kết ra sao..., những cái đó mới khó. Mà đã sử dụng cái đó rồi thì mình nên sử dụng chuyên csdl luôn, excel không phải là thế mạnh

 

[tn001]

anh dhn46 ơi có thể giúp em sửa thẳng vào code của file đính kèm NHAP DU LIEU(ADO).xls (146.0 KB, 4 lần tải) không?
Hoặc nếu không anh có thể sửa file em gửi thêm em tìm được trên diễn đàn
anh có thể sủa giúp em thêm mấy lệch load dữ liệu đầu tiên, load dữ liệu cuối cùng, di chuyển trước và sau dữ liệu đang làm việc hiện tại giống như các nút lệnh ở trên file NHAP DU LIEU(ADO).xls được không ạ
Em cảm ơn anh nhiều

ai giúp em với ạ, cảm ơn mọi người nhiều!