Kết nối giữa các file Excel bằng ADODC.

[sealand]

Ôi! Thật là bí quyết. Cám ơn Ca_dafi.

 

[challenge98]

Sao em thay code thành mySQL = "SELECT * FROM [DATA$]" & Chr(13) & "WHERE tk like '111%'"mà khi đánh thêm dữ liệu nó không cập nhật nhỉ?

 

[cadafi]

Sao em thay code thành mySQL = "SELECT * FROM [DATA$]" & Chr(13) & "WHERE tk like '111%'"mà khi đánh thêm dữ liệu nó không cập nhật nhỉ?

Đánh thêm dữ liệu xong bạn có lưu file lại hay chưa!? Mà nếu có lưu hay không lưu thì đâu có ảnh hưởng gì đến việc lấy dữ liệu đâu ta!? Bạn nói rõ "nó không cập nhật" thì "nó" là cái gì không cập nhật!? Có ví dụ cụ thể càng tốt!?

 

[quochuy86]

Tiếc quá mình đã làm như bài #10 nhưng vẫn không được, nó vẫn báo lỗi như trên. Phần này hay quá, mình rất muốn tìm hiểu về nó. (

 

[sealand]

Bạn xem lại thêm ở đâu, sheet nguồn mới OK , chứ sheet đích thì nó y lệnh xóa thẳng tay trước khi nhập mới. Vậy bạn có nhập bao nhiêu cũng chẳng còn.
To Quoc huy: Thật khó hiểu với trường hợp của bạn vì với ADODC chỉ cần có Microsoft ActiveX Data Ojects 2.n là chạy tốt rồi.

 

[quochuy86]

to: sealand
Mình đã làm được rồi.
Bằng cách khai báo thêm như sau:
"Dim cnex, recex As Variant
Dim k As Long
Dim mypath As String"
Nếu ai chưa làm được thì thử làm như mình xem.
Thân

 

[challenge98]

Đánh thêm dữ liệu xong bạn có lưu file lại hay chưa!? Mà nếu có lưu hay không lưu thì đâu có ảnh hưởng gì đến việc lấy dữ liệu đâu ta!? Bạn nói rõ "nó không cập nhật" thì "nó" là cái gì không cập nhật!? Có ví dụ cụ thể càng tốt!?

Mình thêm các dòng dữ liệu bên dưới các dòng trong sheet DATA thì sau khi chạy prosese thì các dữ liệu mình đánh thêm không được cập nhật. mà theo như lệnh mySQL = "SELECT * FROM [DATA$]" & Chr(13) & "WHERE tk like '111%'" thì cả bảng phải được chọn chứ?. À bạn có thể giải thích Chr(13) & "WHERE tk like '111% có nghĩa là gì không? thanks nhiều.

 

[cadafi]

Mình thêm các dòng dữ liệu bên dưới các dòng trong sheet DATA thì sau khi chạy prosese thì các dữ liệu mình đánh thêm không được cập nhật. mà theo như lệnh mySQL = "SELECT * FROM [DATA$]" & Chr(13) & "WHERE tk like '111%'" thì cả bảng phải được chọn chứ?. À bạn có thể giải thích Chr(13) & "WHERE tk like '111% có nghĩa là gì không? thanks nhiều.

Vẫn cập nhật được trừ khi bạn thêm vào các dòng có mã TK không phải bắt đầu bằng "111".

Chr(13) là ký tự xuống dòng đó bạn.
[Where tk like '111%'] có thể phát biểu là: "khi tk bắt đầu bằng '111' "

 

[challenge98]

Em đang tạo lại hoàn chỉnh file theo như hướng dẫn của ca_dafi,sealand, Domfoodwear.. nhưng em vẫn chưa làm được mọi người cùng giúp em với em chuyển mấy file excel dữ liệu thành Text cho nhẹ. Em gửi file đi kèm.

 

[challenge98]

Em Search trên mạng tìm được tài liệu chuyển file text vào trong CS dữ liệu nhưng gọi dữ liệu thì bị đơ không biết sao. Em up lên cho mọi người coi dùm có vẻ hơi khó không thấy ai hồi âm cả huhu

 

[sealand]

Ví dụ 2 vê ADODC.

Bài này, mình thêm 1 ví dụ thô sử dụng ADODC để trích rút dữ liệu từ chính file Excel này để thiết lập báo cáo, chưa thêm phần nội lực của Excel. Điều mình muốn đề cập ở đây không phải giới thiệu kỹ thuật ADODC (Vì mình còn kém về vấn đề này lắm, nhưng không lo với sự hỗ trợ của GPE mình cho là không phải không làm được) mà mình muốn bàn là giải pháp nâng cao khả năng và có thể sử dụng Exc phục vụ công tác Kế toán thống kê mà thôi.
Trước đây, qua sách vở quảng bá và thực tế mình đã viết file Kế toán trên Exc khá kỳ công. Khi ở dạng Demo vài chục dòng thì chương trình trôi chảy, sổ sách báo báo cáo nhanh chóng, đẹp đẽ. Nhưng đau nhất lại là cuối năm, khi thời gian gấp rút không làm lại được với vài ngàn chứng từ (Tương ứng hàng chục ngàn dòng data) thì file sinh sự ỳ ra không chạy nổi, nhiều khi đơ luôn. Mỗi khi nhập 1 ô phải đợi mãi mới cập nhật được. Lý do, từ việc liên kết công thức từ quá nhiều sổ sách báo cáo đến sheet data. Biết bao nhiêu phép tính thường trực mỗi khi file hoạt động, nó làm cạn kiệt tài nguyên tưởng là khổng lồ của máy tính hiện nay.
Nhưng với ADODC trích dữ liệu xong thì cắt quan hệ với dữ liệu nguồn, các báo cáo gần như độc lập thì việc tạo thêm bao nhiêu báo cáo có hạn chế gì mấy, trong khi dùng công thức thì phải đắn đo mỗi báo cáo phải hy sinh bao nhiêu tốc độ. Mình mạn phép ví Excel -ADODC với khả năng kết hợp SQL thì như các cung thủ thời Tam Quốc được trang bị thêm kính La ze.
Mình xúi vậy thôi, nhưng các bạn cứ thử xem.
(Dữ liệu tháng 4/2009 các ô từ ngày, đến ngày thì bạn gõ tuỳ ý trong tháng 4)

 

[challenge98]

Không có cao thủ nào giúp mình vụ này sao? Dang tim hiểu ADO thấy cái này hay mà khó tiếp cận ghê vui lòng xem câu hỏi ở bài 30 (#30) hộ mình nhé.

 

[sealand]

Mình có cảm giác bạn sưu tầm đoạn code chưa hoạt động được. Việc đọc các file text mình chưa thấy tài liệu nào như vậy cả.

 

[challenge98]

Mình sưu tìm thấy đoạn code đó trên trang vbforums.com nhưng kiến thức chưa tốt nên chưa biết chỉnh sửa thế nào cho đúng cả, nhờ các pro chỉ giáo.

 

[sealand]

I found some code that may help me, but it doesn't work and I know nothing about ADO. So I cannot debug. On the "oRS.Open" I get an error ("-2147217911"). Any suggestions?

Đây là câu hỏi của người đưa ra đoạn code đó. Nó đâu có chạy được và người ta đang tìm cách cho nó chạy mà. Cơ cấu lấy dữ liêuk trên file text không giống với các file database.

Bạn dùng từ khóa #write và #Input để tìm các thông tin có liên quan.

 

[anhduc.bkhn]

to: sealand
Mình đã làm được rồi.
Bằng cách khai báo thêm như sau:
"Dim cnex, recex As Variant
Dim k As Long
Dim mypath As String"
Nếu ai chưa làm được thì thử làm như mình xem.
Thân

Làm rồi thì lại bị lỗi này bạn ơi

 

[anhduc.bkhn]

Mình khai báo 2 biến đó là Variant thì chạy mở được hộp thoại opendialog nhưng rồi đơ máy

 

[sealand]

Bạn chưa khai báo thư viên đối tượng rồi

 

[challenge98]

Sao sau khi mình tách đôi chia ra có hộp thoại chọn đường dẫn và nạp list lại không chạy nhỉ? báo lỗi đơ máy à

 

[sealand]

Đơ máy là đúng vì bạn cắt mất phần chọn file rồi nên FName ="". Máy tìm cả ngày cũng không thấy cái file có tên là "". Còn nửa kia chọn xong chả để làm gì cả.