• Hàm Kiểm tra kiểu dữ liệu của fields
  • 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ũ!