• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Shows how to fabricate a recordset, adding new fields to recordset structure and inserting a row in

Shows how to fabricate a recordset, adding new fields to recordset structure and inserting a row in

Shows how to fabricate a recordset, adding new fields to recordset structure and inserting a row in the table.

Rate Shows how to fabricate a recordset, adding new fields to recordset structure and inserting a row in

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    
    Dim rsResult As ADODB.Recordset

    Set rsResult = New ADODB.Recordset
    
    rsResult.CursorLocation = adUseClient
     
    rsResult.Fields.Append "EMPLOYEE_ID", adSingle
    rsResult.Fields.Append "EMPLOYEE_FIRSTNAME", adVarChar, 30
    rsResult.Fields.Append "EMPLOYEE_LASTNAME", adVarChar, 30
    
    rsResult.Open
        
   
    With rsResult
        .AddNew
        .Fields("EMPLOYEE_ID") = "1234"
        .Fields("EMPLOYEE_FIRSTNAME") = "John"
        .Fields("EMPLOYEE_LASTNAME") = "Bronson"
        .Update
    End With

    rsResult.Close
    
    Set rsResult = Nothing
    
End Sub