Đố vui về ADO, DAO.

[thuyyeu99]

Các anh chị cho em hỏi xíu
Trong query co cách nào mình xác dinh fiels nào là khóa chính trong câu lệnh sql không ah

 

[Hai Lúa Miền Tây]

Các anh chị cho em hỏi xíu
Trong query co cách nào mình xác dinh fiels nào là khóa chính trong câu lệnh sql không ah

Bạn hỏi là lấy trong Access hay là SQLServer?

 

[thuyyeu99]

Bạn hỏi là lấy trong Access hay là SQLServer?

nếu được thì cả 2 anh hihi

 

[Hai Lúa Miền Tây]

nếu được thì cả 2 anh hihi

SQLServer thì bạn thử như sau:

select schema_name(tab.schema_id) as [schema_name],
    pk.[name] as pk_name,
    ic.index_column_id as column_id,
    col.[name] as column_name,
    tab.[name] as table_name
from sys.tables tab
    inner join sys.indexes pk
        on tab.object_id = pk.object_id
        and pk.is_primary_key = 1
    inner join sys.index_columns ic
        on ic.object_id = pk.object_id
        and ic.index_id = pk.index_id
    inner join sys.columns col
        on pk.object_id = col.object_id
        and col.column_id = ic.column_id
order by schema_name(tab.schema_id),
    pk.[name],
    ic.index_column_id

Bạn phải truy vấn bảng nào đó bạn cần. Ở trên là nó sẽ liệt kê tất cả các bảng có trong CSDL

Còn ở Access thì bạn có thể tham khảo Bài này

 

[Ngô Vương Thông]

Cám ơn các anh/chị , Topic rất hay ạ

 

[quanluu]

Không biết là trong VBA code ADO có kết nối được file dạng này hay không?

Mình không biết .prt là file định dạng dữ liệu của cái nào, để dùng được ADO bạn phải biết chuỗi kết nối đến nguồn dữ liệu nên bạn check link này xem có không https://www.connectionstrings.com/

 

[ThangCuAnh]

File text thôi bà con, cứ notepad mà phang

 

[ongke0711]

File này dùng Notepad.exe là mở được rồi.
Nếu muốn dùng code thì bạn dùng FSO (File System Object)

 

[ThangCuAnh]

Hì hì, wow cái gì mà wow @appl . Parse file text này có phần mềm chuyên dùng của NH. Chứ bạn code dùng FSO, readall rồi parse nổi không ?
Liên quan đến tiền bạc nữa, parse sai 1 byte thôi cũng đủ tiêu

 

[Kiều Mạnh]

Lâu lắm ko vào đây nay đố vui 1 tẹo

1/ File sau nếu mắt thường nhìn nó thì chỉ có 83 dòng hay chọn nguyên cột B thì Count cũng chỉ có 83 dòng ??!!
2/ trên thực tế thì nó có tới 271 RecordCount ( nếu xài ADO mà đếm)
3/ chênh lệch nhau là: 271 - 83 = 188 RecordCount

Vậy muốn đố là:
1/ sự chênh lệch nhau 188 đó ở đâu ra mà có ... tại sao ???!!!
2/ Cách xử lý nó ??? ... có mấy cách ??!!!
3/ đó là 1 trong những nguyên nhân làm File Excel phình to ra theo thời gian mặc dù dữ liệu có 1 tẹo
.....
đó cũng là 1 cái gì đó giúp ai đó đang và sẻ xài ADO hiểu thêm nó 1 chút

 

[ongke0711]

Lâu lắm ko vào đây nay đố vui 1 tẹo

1/ File sau nếu mắt thường nhìn nó thì chỉ có 83 dòng hay chọn nguyên cột B thì Count cũng chỉ có 83 dòng ??!!
2/ trên thực tế thì nó có tới 271 RecordCount ( nếu xài ADO mà đếm)
3/ chênh lệch nhau là: 271 - 83 = 188 RecordCount

Vậy muốn đố là:
1/ sự chênh lệch nhau 188 đó ở đâu ra mà có ... tại sao ???!!!
2/ Cách xử lý nó ??? ... có mấy cách ??!!!
3/ đó là 1 trong những nguyên nhân làm File Excel phình to ra theo thời gian mặc dù dữ liệu có 1 tẹo
.....
đó cũng là 1 cái gì đó giúp ai đó đang và sẻ xài ADO hiểu thêm nó 1 chút

bác đố hay là bác hỏi vậy?
- Đối với ADO và theo như file mẫu thì lỗi này do một nguyên nhân và nhớ có lần tôi đề cập rồi.
- Xử lý thì tôi cũng biết 2, 3 cách.
- Cái ý số 3 tôi không nghĩ nó làm phìn file Excel lên đâu.
Thôi đố thì từ từ giải đố vậy.

 

[Kiều Mạnh]

bác đố hay là bác hỏi vậy?
- Đối với ADO và theo như file mẫu thì lỗi này do một nguyên nhân và nhớ có lần tôi đề cập rồi.
- Xử lý thì tôi cũng biết 2, 3 cách.
- Cái ý số 3 tôi không nghĩ nó làm phìn file Excel lên đâu.
Thôi đố thì từ từ giải đố vậy.

cái ý số 3 là có đấy ( nếu nó lên 1048576 ... thì mới thấy ) ... đố chứ ko hỏi he

 

[ongke0711]

cái ý số 3 là có đấy ( nếu nó lên 1048576 ... thì mới thấy ) ... đố chứ ko hỏi he

À đúng. Nó phình lên thật.

 

[Hai Lúa Miền Tây]

Lâu lắm ko vào đây nay đố vui 1 tẹo

1/ File sau nếu mắt thường nhìn nó thì chỉ có 83 dòng hay chọn nguyên cột B thì Count cũng chỉ có 83 dòng ??!!
2/ trên thực tế thì nó có tới 271 RecordCount ( nếu xài ADO mà đếm)
3/ chênh lệch nhau là: 271 - 83 = 188 RecordCount

Vậy muốn đố là:
1/ sự chênh lệch nhau 188 đó ở đâu ra mà có ... tại sao ???!!!
2/ Cách xử lý nó ??? ... có mấy cách ??!!!
3/ đó là 1 trong những nguyên nhân làm File Excel phình to ra theo thời gian mặc dù dữ liệu có 1 tẹo
.....
đó cũng là 1 cái gì đó giúp ai đó đang và sẻ xài ADO hiểu thêm nó 1 chút

View attachment 241246

Do trong bảng tính có định dạng (Cột I) đến dòng 271. Nếu bảng dữ liệu có định dạng hoặc dòng đã được nhập dữ liệu cho dù đã xóa bằng phím Delete trên bàn phím thì nó vẫn tính là có dữ liệu.
Cách khắc phục đơn giản là xuống cuối bảng dòng số 86 nhấn tổ hợp phím Shift+Phím cách trắng >> Shift+Ctrl+Mũi tên xuống >> Ctrl+dấu trừ

 

[Hai Lúa Miền Tây]

Lâu quá không trở lại đề tài này, hôm nay mình xin đố các bạn là làm sao lấy được danh sách tên cột của một bảng cho trước mà không dùng vòng lặp?
Trong file mẫu tôi gửi có 3 sheets (Sheet1, Sheet2, Sheet3), và 1 sheet KetQua. Khi tôi muốn lấy tên cột của sheet nào thì nó lấy kết quả tên cột của sheet ấy.

 

[ongke0711]

Lâu quá không trở lại đề tài này, hôm nay mình xin đố các bạn là làm sao lấy được danh sách tên cột của một bảng cho trước mà không dùng vòng lặp?

Lưu xuống Sheet cũng không cho dùng vòng lặp luôn hả bác HLMT?

 

[thuyyeu99]

hihi em cũng đang mò đây lâu quá không đụng vô

 

[Hai Lúa Miền Tây]

Lưu xuống Sheet cũng không cho dùng vòng lặp luôn hả bác HLMT?

Đúng rồi bạn.

 

[ongke0711]

Lâu quá không trở lại đề tài này, hôm nay mình xin đố các bạn là làm sao lấy được danh sách tên cột của một bảng cho trước mà không dùng vòng lặp?
Trong file mẫu tôi gửi có 3 sheets (Sheet1, Sheet2, Sheet3), và 1 sheet KetQua. Khi tôi muốn lấy tên cột của sheet nào thì nó lấy kết quả tên cột của sheet ấy.

Tôi sẽ dùng Fields Collection của ADODB recordset.
Lưu xuống Sheet thì dùng hàm Transpose().

 

[Hai Lúa Miền Tây]

Tôi sẽ dùng Fields Collection của ADODB recordset.
Lưu xuống Sheet thì dùng hàm Transpose().

Cám ơn bạn, mời bạn cho kết quả nhé.