• Trang chủ click to expand contents 

  • Thêm Field vào 1 table trong file Access khác

  • Thêm Field vào 1 table trong file Access khác

    Noname > 26-08-10, 11:13 AM

    Hỏi: Tôi có 2 file DB, một file lưu dữ liệu DBLUU.mdb, một file chương trình DBSYS.mdb. Trong file DBLUU.MDB có 1 tblLuu.
    Làm Sao code từ một nút lệnh trên FORM tại DBSYS.mdb có thể thêm field vào tblLuu trong DBLUU.mdb

    Đáp:
    Đoạn Code dưới đây cho phép bạn thêm các field vào tblLuu với kiểu dữ liệu theo kèm. Bạn có thể tùy biến lại đuồng dẫn, tên và các file cũng như format của chúng theo ý riêng!



    Mã:
    Sub CreateField()
    Dim db As Database
    Dim tdfChungTu As TableDef
    Dim sAppPath As String
    sAppPath = Application.CurrentProject.Path
    Set db = OpenDatabase(sAppPath & "\DBLUU.mdb")
    ' Gan doi tuong table
    Set tdfChungTu = db.TableDefs("tblLuu")
    ' Thêm các field
    tdfChungTu.Fields.Append tdfChungTu.CreateField("Ngay_ChungTu", dbDate)
    tdfChungTu.Fields.Append tdfChungTu.CreateField("So_ChungTu", dbLong)
    tdfChungTu.Fields.Append tdfChungTu.CreateField("Dien_Giai", dbText, 30)
    tdfChungTu.Fields.Append tdfChungTu.CreateField("Ho_Ten", dbText, 25)
    tdfChungTu.Fields.Append tdfChungTu.CreateField("So_Tien", dbCurrency)
    tdfChungTu.Fields.Append tdfChungTu.CreateField("Ghi_Chu", dbMemo)
    db.TableDefs.Refresh
    db.Close
    Set db = Nothing
    End Sub