Dim cnnStr As String = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=C:\...\VB.net ester.mdb"
' the connection to database
Dim cnnProduct As New OleDb.OleDbConnection(cnnStr)
Dim odaProduct As OleDb.OleDbDataAdapter
Dim DsProduct As New DataSet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' selection statments
Dim selectText As String = "Select tblProduct.* From tblProduct;"
' initialize data adapter
odaProduct = New OleDb.OleDbDataAdapter(selectText, cnnStr)
' fill dataset
odaProduct.Fill(DsProduct, "tblProduct")
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Dim foundMatch() As DataRow
foundMatch = DsProduct.Tables("tblProduct").Select("ItemID='" & txtSearch.Text & "'")
If foundMatch.Length = 0 Then
MsgBox("item not found")
Else
MsgBox("item found")
End If
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Call addItem()
odaProduct.Update(DsProduct, "tblProduct")
DsProduct.AcceptChanges()
End Sub
Private Sub addItem()
Dim therecord As DataRow
Dim found() As DataRow
found = DsProduct.Tables("tblProduct").Select("ItemID='" & txtSearch.Text & "'")
If found.Length = 0 Then
therecord = DsProduct.Tables("tblProduct").NewRow()
therecord("ItemID") = txtSearch.Text
therecord("ItemName") = "something good"
DsProduct.Tables("tblProduct").Rows.Add(therecord)
Else
MsgBox("Item already exists")
End If
End Sub