Public Shared Function EmployeesData(ByVal idval As String) As DataSet

you need to set your idval to something like:

idval="20"
the reason why its not showing anything its because is empety

            Try

                _con = New OleDbConnection(_sqlstr)

                _con.Open()

                _com = New OleDbCommand()

                With _com

                    .Connection = _con

                    .CommandType = CommandType.Text

                    .CommandText = "SELECT Employee_ID, Employee_Name, Employee_Leave FROM Employees WHERE Employee_ID = @val"
                                   .Parameters.AddWithValue("@val", idval)

                End With

                _dap = New OleDbDataAdapter(_com)

                _dset = New DataSet("DSetEmployees")

                _dap.Fill(_dset)

            Catch ex As Exception

                _dset = Nothing

                Throw ex

            End Try

            Return _dset

         End Function

     End Class

     End Class 

update these lines like this and try it


_emptable = Employees.EmployeesData(Me.Labe1.Text).Tables(0)

Public Shared Function EmployeesData(ByVal idval As String) As DataSet

With _com
.Connection = _con
.CommandType = CommandType.Text
.CommandText = "SELECT Employee_ID, Employee_Name, Employee_Leave FROM Employees WHERE Employee_ID = @val"
.Parameters.AddWithValue("@val", idval)
End With

 


i don't know what your employee id data type is so you can adjust that in the employeesdata declaration for idval.  you would need to convert the text to the propert type for me.labe1.text in the first line in this post.

Thanx again Jeff for your help!!

I tried your code and now no more errors!

But sadly when i run the form nothing appears! The form just show the border of datarepeater and nothing else. It doesn't show the controls as well as no data.

The data type of employee_Id is number and field size is integer in my access table.

I know with your help i am almost there........ but cannot guess what may be the likely cause.

Again need your help!!!

This is my FINAL CODE WHICH I UPDATED AS PER YOUR HELP FROM YOUR PREVIOUS POST.

Public Class Form3

Private _emptable As DataTable = Nothing

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cursor = Cursors.WaitCursor

        Try

            '  _emptable = Employees.EmployeesData().Tables(0)

_emptable = Employees.EmployeesData(Me.Label1.Text).Tables(0)

 Label1.DataBindings.Add("Text", _emptable, "Employee_ID")

 Label2.DataBindings.Add("Text", _emptable, "Employee_Name")

 DataGridView1.DataSource = _emptable

 DataRepeater1.DataSource = _emptable

        Catch ex As Exception

            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

        Me.Cursor = Cursors.Default

    End Sub

Private Sub DataRepeater1_DrawItem(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) Handles DataRepeater1.DrawItem

If e.DataRepeaterItem.ItemIndex Mod 2 = 0 Then

e.DataRepeaterItem.BackColor = Color.FromArgb(213, 224, 211)

        Else

            e.DataRepeaterItem.BackColor = SystemColors.Control

        End If

    End Sub

Public Class Employees

        Private Shared _con As OleDbConnection = Nothing

        Private Shared _com As OleDbCommand = Nothing

        Private Shared _dap As OleDbDataAdapter = Nothing

        Private Shared _dset As DataSet = Nothing

        Private Shared _sqlstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=..\EMPLOYEEDETAILS.mdb"

' Public Shared Function EmployeesData() As DataSet

Public Shared Function EmployeesData(ByVal idval As String) As DataSet

            Try

                _con = New OleDbConnection(_sqlstr)

                _con.Open()

                _com = New OleDbCommand()

                With _com

                    .Connection = _con

                    .CommandType = CommandType.Text

                    .CommandText = "SELECT Employee_ID, Employee_Name, Employee_Leave FROM Employees WHERE Employee_ID = @val"
                                   .Parameters.AddWithValue("@val", idval)

                End With

                _dap = New OleDbDataAdapter(_com)

                _dset = New DataSet("DSetEmployees")

                _dap.Fill(_dset)

            Catch ex As Exception

                _dset = Nothing

                Throw ex

            End Try

            Return _dset

         End Function

     End Class

     End Class 

Public Shared Function EmployeesData(ByVal idval As String) As DataSet

you need to set your idval to something like:

idval="20"
the reason why its not showing anything its because is empety

            Try

                _con = New OleDbConnection(_sqlstr)

                _con.Open()

                _com = New OleDbCommand()

                With _com

                    .Connection = _con

                    .CommandType = CommandType.Text

                    .CommandText = "SELECT Employee_ID, Employee_Name, Employee_Leave FROM Employees WHERE Employee_ID = @val"
                                   .Parameters.AddWithValue("@val", idval)

                End With

                _dap = New OleDbDataAdapter(_com)

                _dset = New DataSet("DSetEmployees")

                _dap.Fill(_dset)

            Catch ex As Exception

                _dset = Nothing

                Throw ex

            End Try

            Return _dset

         End Function

     End Class

     End Class 

you should use Bindingsource.....

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Cursor = Cursors.WaitCursor

        Try

            '  _emptable = Employees.EmployeesData().Tables(0)

_emptable = Employees.EmployeesData(Me.Label1.Text).Tables(0)

 Label1.DataBindings.Add("Text", _emptable, "Employee_ID")

 Label2.DataBindings.Add("Text", _emptable, "Employee_Name")

 DataGridView1.DataSource = _emptable

 DataRepeater1.DataSource = _emptable

        Catch ex As Exception

            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try

        Me.Cursor = Cursors.Default

    End Sub

Using loveme As New OleDbConnection(StrCnn)

Dim commandme As New OleDbCommand("Select * from Employer ORDER BY ID ", loveme)

loveme.Open()

Dim reademe As OleDbDataReader = commandme.ExecuteReader()

Dim ligame As New BindingSource
ligame.DataSource = reademe

.DataGridView1.DataSource = ligame

reademe.Close()

End Using

Thank you very much Malange.

I was having problem with my inet connection and couldn't come back to the forums.

As you mentioned idval="20" where do i have to declare this. I tried the way you posted but still no results and datarepeater control is still empty.

Anymore suggestions, Please.

Cheers

Thank you very much Malange.

I was having problem with my inet connection and couldn't come back to the forums.

As you mentioned idval="20" where do i have to declare this. I tried the way you posted but still no results and datarepeater control is still empty.

Anymore suggestions, Please.

Cheers

Thanx again Malange,

I tried and only if i declare like idval="001" which is the employee ID for one of the employees it shows the records for this particular employee.

If i dont declare idval then it displays value cannot be null.

What i am trying is to show the employee_id in the label and their leave records in the datagridview and repeat for each employee inside each item template of the datarepeater.

Is this possible in the first place?? I mean during runtime  fill the datagridview with the value from Label1.text.

need help!!!
Thanx

Most people are having problem with DataR.Dataspource, they cannot fecth information to it, for some reason...
I try to do it as well to solve your problem, and I couldnt...Why, I dont know,
have a look here please:

http://www.bigresource.com/VB-dataRepeater-datasource-rRmcDMDQNV.html

con As New OleDbConnection(cnn)

Dim name As New OleDbCommand("Select * From Table1 Where Employees_ID=@Employees_ID", con)

'name.Parameters.AddWithValue(

"@Employees_ID", Me.label1.text)

con.Open()

Dim reader As OleDbDataReader = name.ExecuteReader()

With reader
Me.Bindingsource.Datasource=reader
Me.DVG.datasource=Bindingsource ' this will show the all Employees ID in your DGV and nothing else
End With


If you want to Hide something from your DGV do it:
Me.DataGridView1.Columns.Remove("Name") that remove the columns name.....from your DGV.

Am wordering, label control is not input control....you cannot type any thing there but asign it....

IS YOUR datarepeater  WORKING FINE? SHOW ME HOW YOU DID THAT PLEASE?

Pleasesee the code in my very first post..right on top it is working and the only problem i am facing is again DGV filtering.

Employee_ID and Employee_Name are displayed in label1.text and label2.text.
Leave_Records are displayed in DGV but sadly for all employees. I want filter the records in DGV accroding to the Employee_ID.

With the code in my first post i can achieve this.

______________________________________________________________________________________ ' Item_Template
Employee_ID: 001' Id displayed in Label1
Employee_Name: Sarah Jonson 'Name displayed in Label2

---------------------------------------------------
EMPLOYEE_ID LEAVE_RECORDS ' DGVit fills all employees leave records
---------------------------------------------------
001Sick' SHOULD ONLY DISPLAY LEAVE RECORDS FOR EMPLOYEE_ID 001
001Short
002Annual
003Short
---------------------------------------------------
_____________________________________________________________________________________
Employee_ID: 002' Id displayed in Label1
Employee_Name:Simon Cowell 'Name displayed in Label2

---------------------------------------------------
EMPLOYEE_ID LEAVE_RECORDS'DGV - Again it displays all leave records
---------------------------------------------------
001Sick
001Short
002Annual ' SHOULD ONLY DISPLAY LEAVE RECORDS FOR EMPLOYEE_ID 002
003Short
---------------------------------------------------
_____________________________________________________________________________________
Employee_ID: 003' Id displayed in Label1
Employee_Name:Mitchelle Young 'Name displayed in Label2

---------------------------------------------------
EMPLOYEE_ID LEAVE_RECORDS'DGV - AND Again it displays all leave recods
---------------------------------------------------
001 Sick
001 Short
002Annual
003 Short ' SHOULD ONLY DISPLAY LEAVE RECORDS FOR EMPLOYEE_ID 003
---------------------------------------------------
_____________________________________________________________________________________

I have hidden the Employee_Name Column from the DGV..butforgot tomention the code for that in my first post
Hope this now explains better to what i am trying to achieve.
Thanx

mydaaset As New DataSet

Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Users/Gift from above/Documents/oledb_Teste/Copy of LMS_Backup2.mdb"

Dim ok As String = "Select * from STUDENT ORDER BY ID"

Using con As New OleDbConnection(connectionString)

Dim name As New OleDbDataAdapter(ok, con)

mydaaset.Tables.Add("STUDENT")

name.Fill(mydaaset.Tables(

"STUDENT"))

MeBindingSource.DataSource = (mydaaset.Tables(

"STUDENT"))

Me.Label1.DataBindings.Add("Text", BindingSource, "ID", True)

Me.Label2.DataBindings.Add("Text", BindingSource, "FirstName", True)

Me.DataGridView1.DataSource = BindingSource

now hide or remove it from your DGV.

me.DatagridView1.Column.Remove("ID")
me.DatagridView1.Column.Remove("FirstName")

End

Using

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Users/Gift from above/Documents/oledb_Teste/Copy of LMS_Backup2.mdb"
Using loveme As New OleDbConnection(connectionString)
Dim commandme As New OleDbCommand("Select * from STUDENT Where ID=@ID", loveme) commandme.Parameters.AddWithValue("@ID", Me.ComboBox1.Text)
loveme.Open()
Dim reademe As OleDbDataReader = commandme.ExecuteReader()
Dim ligame As New BindingSource
ligame.DataSource = reademe
For Each Ctl As Control In Me.Controls
If TypeOf Ctl Is DataGrid Then
Ctl.DataBindings.Clear()

End If

Next
Me.DataGridView1.DataSource = ligame End Using

End Sub

reademe.Close()