AddNew Method Example (VB)

This example uses the AddNew method to create a new record with the specified name.
'BeginAddNewVB

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string

Public Sub AddNewX()

    'recordset and connection variables
   Dim Cnxn As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnxn As String
   Dim strSQL As String
    'record variables
   Dim strID As String
   Dim strFirstName As String
   Dim strLastName As String
   Dim blnRecordAdded As Boolean

   ' Open a connection
   Set Cnxn = New ADODB.Connection
   strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Northwind;User Id=sa;Password=;"
   Cnxn.Open strCnxn
      
   ' Open Employees Table with a cursor that allows updates
   Set rstEmployees = New ADODB.Recordset
   strSQL = "Employees"
   rstEmployees.Open strSQL, strCnxn, adOpenKeyset, adLockOptimistic, adCmdTable

   ' Get data from the user
   strFirstName = Trim(InputBox("Enter first name:"))
   strLastName = Trim(InputBox("Enter last name:"))

   ' Proceed only if the user actually entered something
   ' for both the first and last names
   If strFirstName <> "" And strLastName <> "" Then

      rstEmployees.AddNew
        rstEmployees!FirstName = strFirstName
        rstEmployees!LastName = strLastName
      rstEmployees.Update
      blnRecordAdded = True

      ' Show the newly added data
      MsgBox "New record: " & rstEmployees!EmployeeID & " " & _
         rstEmployees!FirstName & " " & rstEmployees!LastName

   Else
      MsgBox "Please enter a first name and last name."
   End If
      
   ' Delete the new record because this is a demonstration
   Cnxn.Execute "DELETE FROM Employees WHERE EmployeeID = '" & strID & "'"
      
    ' clean up
   rstEmployees.Close
   Cnxn.Close
   Set rstEmployees = Nothing
   Set Cnxn = Nothing

End Sub
'EndAddNewVB
AddNew Method Example (VB)

See Also
