• Trang chủ click to expand contents 

  • Dùng Array để AddNew một Recordset

  • Dùng Array để AddNew một Recordset

    Xuân Thanh > 08-12-12, 10:04 AM

    Thông thương chúng ta hay dùng cách sau để AddNew một Recordset
    Mã PHP:
    Public Sub AddNew()
          Dim DB As Database
      Dim rs     As Recordset
      Set DB     = CurrentDB
      Set rs     = DB.OpenRecordset("tblCompany", dbOpenTable)
          With rs
             .AddNew
             !CompanyName = "A"
             !Address = "B"
             !City = "C"
             .Update
      End With
      rs    .Close: Set DB = Nothing
    End Sub 

    Ta cũng có thể dùng Array như sau :

    Mã PHP:
    Public Sub AddNewArray()
          Dim DB As Database
      Dim rs     As Recordset
      Set DB     = CurrentDB
      Set rs     = DB.OpenRecordset("tblCompany", dbOpenTable)    
          varfields = Array("CompanyName", "Address", "City")
          varValues = Array("A", "B", "C")
          rs.AddNew varfields, varValues
      rs    .Update
      rs    .Close: Set DB = Nothing
    End Sub 

    Thân mến