Private Sub Save_Record()
Dim con As New OleDbConnection
Dim cmd As New OleDbCommand
Dim sSQL As String = String.Empty
Dim arrImage() As Byte
Dim myMs As New IO.MemoryStream
Dim bSaveImage As Boolean = False
Dim strImg As String = String.Empty
If Not IsNothing(Me.pic1.Image) Then
Me.pic1.Image.Save(myMs, Me.pic1.Image.RawFormat)
arrImage = myMs.GetBuffer
Else
arrImage = Nothing
End If
'get connection string declared in the Module1.vb and assing it to conn variable
con = New OleDbConnection(Get_Constring)
con.Open()
cmd.Connection = con
cmd.CommandType = CommandType.Text
'I just use the textbox tag property to idetify if the data is new or existing.
If Me.txtFacultyFirstName.Tag = 0 Then
sSQL = "INSERT INTO facultynew (FacultyFirstName,[FacultyLastName],[Password], [Course],[Lebel], [Address], [Image] " & _
" VALUES(?,?,?,?,?,?,?)"
cmd.CommandText = sSQL
Else
sSQL = "UPDATE facultynew set FacultyFirstName = @FacultyFirstName, FacultyLastName = @FacultyLastName, [Password]=[@Password], Course = @Course, Lebel=@Lebel, Address = @Address, Image = @Image where ID = @FacultyID"
cmd.CommandText = sSQL
End If
cmd.Parameters.AddWithValue("@FacultyFirstName", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtFacultyFirstName.Text)) > 0, Me.txtFacultyFirstName.Text, DBNull.Value)
cmd.Parameters.AddWithValue("@FacultyLastName", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtFacultyLastName.Text)) > 0, Me.txtFacultyLastName.Text, DBNull.Value)
cmd.Parameters.AddWithValue("@Password", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtpass.Text)) > 0, Me.txtpass.Text, DBNull.Value)
cmd.Parameters.Add("@Course", OleDbType.VarChar).Value = IIf(Len(Trim(Me.cbocourse.Text)) > 0, Me.cbocourse.Text, DBNull.Value)
cmd.Parameters.Add("@Lebel", OleDbType.VarChar).Value = IIf(Len(Trim(Me.cbolebel.Text)) > 0, Me.cbolebel.Text, DBNull.Value)
cmd.Parameters.Add("@Address", OleDbType.VarChar).Value = IIf(Len(Trim(Me.txtaddress.Text)) > 0, Me.txtaddress.Text, DBNull.Value)
' cmd.Parameters.Add("@Lebel", OleDbType.VarChar).Value = IIf(Len(Trim(Me.cbolebel.Text)) > 0, Me.cbolebel.Text, DBNull.Value)
cmd.Parameters.Add("@Image", OleDbType.Binary).Value = IIf(Not IsNothing(arrImage), arrImage, DBNull.Value)
cmd.ExecuteNonQuery()
'If the record is new then we have to get its ID so that we can edit it rightaway after the insertion.
If Me.txtFacultyFirstName.Tag = 0 Then
cmd.CommandText = "Select @@Identity"
'Set textbox tag property with the ID of new record
Me.txtFacultyFirstName.Tag = cmd.ExecuteScalar()
End If
MsgBox("Data has been save.")
' Catch ex As Exception
'MsgBox(ErrorToString)
'Finally
con.Close()
'End Try
Cant find the error:((
