im still checking my code if there is something wrong with it. as of now all are working fine.
i can also save new rows in database and update. but whenever i close my program the values returns back to its previous value.
i can also save new rows in database and update. but whenever i close my program the values returns back to its previous value.
Code:
Public Sub dbAddmyContacts()
Dim checktxt(4) As String
Dim i As Integer
checktxt(0) = TxtMobile.Text
checktxt(1) = TxtFax.Text
checktxt(2) = Txtemail.Text
checktxt(3) = TxtCompany.Text
checktxt(4) = TxtOfficenum.Text
Try
Dim addContact As String = "select * from mycontacts"
dbCOnn = New System.Data.OleDb.OleDbConnection
dbCOnn.ConnectionString = conString
dbCOnn.Open()
dbAdap = New System.Data.OleDb.OleDbDataAdapter(addContact, dbCOnn)
dbcommB = New System.Data.OleDb.OleDbCommandBuilder(dbAdap)
dbdataset = New DataSet
dbAdap.Fill(dbdataset, "mycontacts")
Dim dbNewrow As DataRow = dbdataset.Tables("mycontacts").NewRow
If String.IsNullOrEmpty(TxtName.Text.ToString().Trim) = True Then
MessageBox.Show("Please enter a contact name", "Add Contact")
Exit Sub
Else
dbNewrow.Item("contactname") = TxtName.Text
End If
For i = 0 To 4
If String.IsNullOrEmpty(checktxt(i).ToString().Trim) = True Then
Select Case i
Case 0
dbNewrow.Item("mobileno") = DBNull.Value
Case 1
dbNewrow.Item("fax") = DBNull.Value
Case 2
dbNewrow.Item("email") = DBNull.Value
Case 3
dbNewrow.Item("company") = DBNull.Value
Case 4
dbNewrow.Item("businesstel") = DBNull.Value
End Select
Else
Select Case i
Case 4
dbNewrow.Item("Businesstel") = TxtOfficenum.Text
Case 0
dbNewrow.Item("mobileno") = TxtMobile.Text
Case 1
dbNewrow.Item("fax") = TxtFax.Text
Case 2
dbNewrow.Item("email") = Txtemail.Text
Case 3
dbNewrow.Item("company") = TxtCompany.Text
End Select
End If
Next i
dbNewrow.Item("officeadd") = TxtAddress.Text
dbNewrow.Item("jobtitle") = Txttitle.Text
dbNewrow.Item("homeaddress") = txthome.Text
dbNewrow.Item("othernumber") = txtother.Text
dbNewrow.Item("photolocation") = imagepath
dbdataset.Tables("mycontacts").Rows.Add(dbNewrow)
dbdataset.Tables("mycontacts").AcceptChanges()
dbAdap.Update(dbdataset, "mycontacts")
dbAdap.Fill(dbdataset, "mycontacts")
dbCOnn.Close()
dbCOnn = Nothing
Call cleartxt()
MsgBox("New Contact has been added", vbInformation, "My Contacts")
PBimage.ImageLocation = ""
Catch ex As Exception
MessageBox.Show(ex.Message, "Duplicate Entry")
End Try
End Sub