• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• ¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡

¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡

¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡

Rate ¡An OleDbParameter with ParameterName '@ID' is not contained by this OleDbParameterCollection.¡

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

        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]