-
Hàm Kiểm tra kiểu dữ liệu của fields
Noname > 31-08-10, 09:19 AM
Hàm Dưới đây giúp chúng ta kiểm tra field đang có kiểu dữ liệu gì!
'----------------------------------------Mã:Function TypeField(T As String, F As String)
'T: tên table, F: tên Field
TypeField = FieldType(CurrentDb.TableDefs(T).Fields(F).Type)
End Function
Mã:Function FieldType(intType As Integer) As String
Select Case intType
Case dbBoolean
FieldType = "dbBoolean"
Case dbByte
FieldType = "dbByte"
Case dbInteger
FieldType = "dbInteger"
Case dbLong
FieldType = "dbLong"
Case dbCurrency
FieldType = "dbCurrency"
Case dbSingle
FieldType = "dbSingle"
Case dbDouble
FieldType = "dbDouble"
Case dbDate
FieldType = "dbDate"
Case dbText
FieldType = "dbText"
Case dbLongBinary
FieldType = "dbLongBinary"
Case dbMemo
FieldType = "dbMemo"
Case dbGUID
FieldType = "dbGUID"
End Select
End Function
Sửa Dụng:
Giải sử ta có 1 field trong table và muốn biết nó có kiểu dữ liệu là gì , ta có thể gọi hàm này kiểm tra
Mã:Private Sub Command0_Click()
MsgBox TypeField("Table1", "MASO")
End Sub -
RE: Hàm Kiểm tra kiểu dữ liệu của fields
haquocquan > 31-08-10, 03:27 PM
Tiếp tuc nhờ Noname giúp đoạn code thay đổi kiểu dữ liệu của một field bất kỳ nhé.
-
RE: Hàm Kiểm tra kiểu dữ liệu của fields
Noname > 31-08-10, 03:33 PM
(31-08-10, 03:27 PM)haquocquan Đã viết: Tiếp tuc nhờ Noname giúp đoạn code thay đổi kiểu dữ liệu của một field bất kỳ nhé.
Việc thêm 1 field mới thì không có gì khó khăn. Tuy nhiên thay đổi là cả 1 vấn đề vì có thể xảy ra rủi ro làm mất dữ liệu!
Chưa kể nếu dữ liệu khoảng 100 ngàn record thôi, bạn mất cả giờ để thay đổi đấy!
Cách tốt nhất là làm thế này!
b1/Tạo 1 cột mới với kiểu dữ liệu mới
b2/ Dùng câu lệnh SQL update dữ liệu cũ sang, nếu không có trục trặc gì thì xóa filed cũ đi. Và sửa tên field mới thành field cũ!