Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click Try Dim sqlconn As New OleDb.OleDbConnection Dim sqlquery As New OleDb.OleDbCommand Dim connString As String connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\PrMas.accdb" sqlconn.ConnectionString = connString sqlquery.Connection = sqlconn sqlconn.Open() sqlquery.CommandText = "INSERT INTO Project(ProjectName,Abstract,SemesterCreated,AuthorName) VALUES (@projectname,@abstract,@semestercreated,@authname)" sqlquery.Parameters.AddWithValue("@projectname", txtProjectName.Text) sqlquery.Parameters.AddWithValue("@abstract", txtAbstract.Text) ' cmd.Parameters.AddWithValue("@creationDate", Convert.ToDateTime(DPCreationDate.Value.ToString)) sqlquery.Parameters.AddWithValue("@semestercreated", CBSemCreated.Text) 'cmd.Parameters.AddWithValue("@addeddate", DateTime.Now) sqlquery.Parameters.AddWithValue("@authname", txtAuthorName.Text) Dim a As Integer a = sqlquery.ExecuteNonQuery() If a > 0 Then MessageBox.Show("New User successfully added.") Else MessageBox.Show("Try Again") End If sqlconn.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)