Insert Into Command

Tech Talk vb.Net
1

Here is and example using and input box


Private Sub mnuAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAdd.Click 
        Dim DateAdded As Date 
        Dim SiteName, Username, Pass As String 
        Dim dbNewRow As DataRow = dsSites.Tables(0).NewRow 


        DateAdded = Date.Now.ToShortDateString ' Date Added 
        SiteName = InputBox("Site Name:", "Site Name") ' Site Name 
        Username = InputBox("Username:", "Username") ' Username 
        Pass = InputBox("Pass:", "Pass") ' Pass 

        dbNewRow("SiteID") = dsSites.Tables(0).Rows.Count() + 1 
        dbNewRow("DateAdded") = DateAdded 
        dbNewRow("SiteName") = SiteName 
        dbNewRow("Username") = Username 
        dbNewRow("Pass") = Pass 

        Dim SQL As String 
        SQL = "INSERT INTO Sites (DateAdded, SiteName, Username, Pass) " 
        SQL = SQL & "VALUES (" 
        SQL = SQL & DateAdded & ", " 
        SQL = SQL & SiteName & ", " 
        SQL = SQL & Username & ", " 
        SQL = SQL & Pass & ")" 

        Dim dbCommand As OleDb.OleDbCommand = New OleDb.OleDbCommand(SQL, dbConnection) 

        dbAdapter.InsertCommand = dbCommand 
        dsSites.Tables(0).Rows.Add(dbNewRow) 

        Try 
            dbAdapter.Update(dsSites)        <--- Err here 
        Catch ex As Exception 
            MsgBox("Error: " & ex.Message) 
            Exit Sub 
        End Try 

        Debug.WriteLine("Insert Command: " & dbAdapter.InsertCommand.CommandText.ToString & vbCrLf) 

        lblMessage.Text = "Entry Successfully Added." 
        lstSites.Items.Clear() ' Clear the listbox 
        Login() ' Refresh the listbox 
    End Sub