Mga master patulong naman Kapag po nagsesave ako ng information - TopicsExpress



          

Mga master patulong naman Kapag po nagsesave ako ng information dumadagdag ng dumadagdag yung MALE at FEMALE sa Combobox . Ano po gagawin ko para maayos ? Heres my code: Private Sub CMDSAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDSAVE.Click Try If txtln.Text = Or txtfn.Text = Or txtage.Text = Or DateTimePicker1.Text = Or txtcontact.Text = Or txtemail.Text = Then MsgBox(Please complete the information, vbInformation + vbOKOnly, COMPLETE) Else Dim strins As String = INSERT into [CLIENT_INFO] (CLIENTNO,[LASTNAME],[FIRSTNAME],[AGE],[GENDER],[BIRTHDAY],[CONTACTNUMBER],[EMAIL],[ADDRESS]) VALUES (@cnum,@ln,@fn,@ages,@gen,@bday,@cont,@mail,@add) Dim cmd As New OleDbCommand With cmd .Connection = con .CommandText = strins con.Open() .Parameters.AddWithValue(@cnum, txtidnum.Text) .Parameters.AddWithValue(@ln, txtln.Text) .Parameters.AddWithValue(@fn, txtfn.Text) .Parameters.AddWithValue(@ages, txtage.Text) .Parameters.AddWithValue(@gen, ComboBox1.Text) .Parameters.AddWithValue(@bday, DateTimePicker1.Text) .Parameters.AddWithValue(@cont, txtcontact.Text) .Parameters.AddWithValue(@mail, txtemail.Text) .Parameters.AddWithValue(@add, txtadd.Text) .ExecuteNonQuery() MsgBox(New information has been saved, vbInformation, Record SAVE!!) End With cmd.Parameters.Clear() End If Catch ex As Exception MsgBox(ex.ToString) Finally con.Close() frminfo_Load(sender, e) End Try End Sub
Posted on: Sun, 16 Nov 2014 16:27:23 +0000

Trending Topics



Recently Viewed Topics




© 2015