Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KantdataDataSet.Model' table. You can move, or remove it, as needed.
Me.ModelTableAdapter.Fill(Me.KantdataDataSet.Model)
TextBox8.Text = Me.BindingContext(KantdataDataSet, "Model").Count
CollectAll()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GroupBox1.BackColor = Color.Gray
ModelBindingSource.AddNew()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ModelBindingSource.EndEdit()
ModelTableAdapter.Update(KantdataDataSet.Model)
CollectAll()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ModelBindingSource.RemoveCurrent()
ModelTableAdapter.Update(KantdataDataSet.Model)
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح")
CollectAll()
End Sub
Private Function GetCarBy_Name(ByVal CarName As String) As Integer
Using Con As New OleDbConnection(My.Settings.KantdataConnectionString)
Dim Serch As String = "Select count(id1) As Couning From Model Where id1 = @carName"
Using SerChCommand As New OleDbCommand(Serch, Con)
With SerChCommand
.Parameters.AddWithValue(" @carName", CarName)
.Connection.Open()
End With
Using Reader As OleDbDataReader = SerChCommand.ExecuteReader
With Reader
While .Read
If .HasRows Then
Return CInt(Reader.Item("Couning"))
Else
Return 0
End If
End While
End With
End Using
End Using
End Using
Return 0
End Function
Private Sub CollectAll()
TextBox3.Text = GetCarBy_Name("تيوتا")
TextBox7.Text = GetCarBy_Name("مازدا")
TextBox6.Text = GetCarBy_Name("نيسان")
End Sub
End Class