Re: VB.NET Programming Corner! UPDATED!!!
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
If validation() = False Then
Exit Sub
Else
cmd = New OleDbCommand("insert into empmaster values (@empno, @empfirst, @empmiddle, @emplast, @empaddress, @empcontact, @empemailid, @empgender, @empdob, @empbloodgroup, @empdoj, @empnamebank, @empposition, @empbankbranch, @empbankno, @empimage)", con)
cmd.Parameters.Add("@empno", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empfirst", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empmiddle", OleDbType.VarChar, 200)
cmd.Parameters.Add("@emplast", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empaddress", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empcontact", OleDbType.VarChar, 255)
cmd.Parameters.Add("@empemailid", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empgender", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empdob", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbloodgroup", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empdoj", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empnamebank", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empposition", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbankbranch", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empbankno", OleDbType.VarChar, 200)
cmd.Parameters.Add("@empimage", OleDbType.VarChar, 200)
cmd.Parameters("@empno").Value = txtempno.Text
cmd.Parameters("@empfirst").Value = txtempname.Text
cmd.Parameters("@empmiddle").Value = empmiddle.Text
cmd.Parameters("@emplast").Value = emplast.Text
cmd.Parameters("@empaddress").Value = txtempaddress.Text
cmd.Parameters("@empcontact").Value = txtcontact.Text
cmd.Parameters("@empemailid").Value = txtemailid.Text
cmd.Parameters("@empgender").Value = cmbgender.Text
cmd.Parameters("@empdob").Value = dtpdob.Text
cmd.Parameters("@empbloodgroup").Value = txtbloodgroup.Text
cmd.Parameters("@empdoj").Value = dtpdoj.Text
cmd.Parameters("@empnamebank").Value = txtbankname.Text
cmd.Parameters("@empposition").Value = cmbposition.Text()
cmd.Parameters("@empbankbranch").Value = txtbankbranch.Text
cmd.Parameters("@empbankno").Value = txtbankacno.Text
cmd.Parameters("@empimage").Value = txtimgpath.Text
con.Open()
cmd.ExecuteNonQuery()
con.Close()
databinding()
MsgBox("Data Succesffuly Add To Database", MsgBoxStyle.Information, "Congratulation")
txtempno.Text = " "
txtempname.Text = " "
empmiddle.Text = ""
emplast.Text = ""
txtempaddress.Text = " "
txtcontact.Text = " "
txtemailid.Text = " "
cmbgender.Text = " "
dtpdob.Text = ""
txtbloodgroup.Text = " "
dtpdoj.Text = ""
cmbposition.Text = ""
txtbankname.Text = " "
txtbankbranch.Text = " "
txtbankacno.Text = " "
txtimgpath.Text = " "
PictureBox1.Image = System.Drawing.Bitmap.FromFile("C:\Users\AxLroSe\Desktop\CNPH CPS\CNPH CPS\Employee Images\blank.jpg")
btnupdate.Enabled = True
btnsave.Enabled = False
End If
End Sub
data type mismatch in criteria expression po ang error nya...nalilito n ko!!!phelp nmn plz