by lovejeet (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Tue 4th September 2007
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡
VBcoders
End
End Sub
Load data from
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim strid As String
Dim strname As String
OleDbDataAdapter1.Fill(DataSet11)
For i = 1 To DataSet11.Tables("patient").Rows.Count
strid = DataSet11.Tables("patient").Rows(i - 1).Item("id")
strname = DataSet11.Tables("patient").Rows(i - 1).Item("name")
ComboBox1.Items.Add(strid)
ComboBox2.Items.Add(strname)
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
BindingContext(DataSet11, "patient").Position += 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
BindingContext(DataSet11, "patient").Position -= 1
End Sub
‘Clear textbox
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'BindingContext(DataSet11, "patient").AddNew()
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
DateTimePicker1.Refresh()
DateTimePicker2.Refresh()
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
DataSet11.Clear()
OleDbDataAdapter2.SelectCommand.Parameters("id").Value = ComboBox1.Text
OleDbDataAdapter2.Fill(DataSet11)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
DataSet11.Clear()
OleDbDataAdapter2.SelectCommand.Parameters("id").Value = TextBox8.Text
OleDbDataAdapter2.Fill(DataSet11)
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
DataSet11.Clear()
OleDbDataAdapter3.SelectCommand.Parameters("name").Value = ComboBox2.Text
OleDbDataAdapter3.Fill(DataSet11)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
DataSet11.Clear()
OleDbDataAdapter3.SelectCommand.Parameters("name").Value = TextBox4.Text
OleDbDataAdapter3.Fill(DataSet11)
End Sub
‘Type name in textbox to search by name
Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
DataSet11.Clear()
OleDbDataAdapter3.SelectCommand.Parameters("name").Value = TextBox4.Text
OleDbDataAdapter3.Fill(DataSet11)
End Sub
‘ to delete record
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim bind As BindingManagerBase
Dim del As DialogResult = MessageBox.Show("Record deleted do you want " & TextBox2.Text & "?", "Conform Delete", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
If del = DialogResult.Yes Then
bind.RemoveAt(bind.Position)
OleDbDataAdapter4.Update(DataSet11)
ComboBox1.SelectedIndex = -1
ComboBox2.SelectedIndex = -1
End If
End Sub
‘ Add data to database I use datarow
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim dsrow As DataRow
dsrow = DataSet11.Tables("patient").NewRow
dsrow.Item("id") = TextBox1.Text
dsrow.Item("name") = TextBox2.Text
dsrow.Item("address") = TextBox3.Text
dsrow.Item("dateofbirth") = DateTimePicker2.Text
dsrow.Item("phone") = TextBox5.Text
dsrow.Item("emc") = TextBox6.Text
dsrow.Item("dateofre") = DateTimePicker1.Text
DataSet11.Tables("patient").Rows.Add(dsrow)
OleDbDataAdapter1.Update(DataSet11, "patient")
End Sub
Comment and suggestion are welcome my email id is
[email protected]
No comments have been posted about ¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡. Why not be the first to post a comment about ¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡.
