Đánh giá chủ đề:
  • 6 Votes - 3.33 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm Kiểm tra kiểu dữ liệu của fields
#1
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn bvchauthanh
#2
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é.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(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ũ!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Truong Van Truong


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hàm tìm kiếm giá trị gần dúng Xuân Thanh 0 1,142 04-02-13, 01:00 PM
Bài mới nhất: Xuân Thanh
  Hàm tìm kiếm một chuỗi trong một chuỗi cho trước Xuân Thanh 2 2,333 17-01-13, 10:24 PM
Bài mới nhất: duyhiep
  Hàm kiểm tra 1 file được mở hay chưa Noname 0 1,775 03-10-10, 11:53 PM
Bài mới nhất: Noname

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ