how to add a new field to a records

[anhtri]

how to add a new field to a recordset?


dim rs as ADODB.recordset
....

rs.Append "Tracking number", adChar, 18

but it generated error

help me
thank you very much

 

[MarkSweetland]

Calling the fields.Append method for an open Recordset or a Recordset where the ActiveConnection property has been set, will cause a run-time error. You can only append fields to a Recordset that is not open and has not yet been connected to a data source. Typically, these are new Recordset objects that you create with the CreateRecordset method or by explicitly assigning a new Recordset object to an object variable.

Dim rs As New ADODB.Recordset
rs.Fields.Append "Tracking_Number", adChar, 18
rs.Open
rs.AddNew
rs("Tracking_Number") = "123456"
MsgBox rs.Fields("Tracking_Number")

Mark

 

[anhtri]

Thanks Mark,
i got it
anhtri