i need to list users ids on a combo box from users table. i'm using dataset from component.but it retrives only 1st record. i used C# to component and vb.net in desktop application.please, some one help
me. i need to retrive all user ids to combo box.


component :


public SqlConnection Con;
public SqlCommand Com;
public SqlDataReader DR;
public SqlDataAdapter AD;
public DataSet DS;
public DataTable DT;
int result;
public string SCon;
SqlCon .SqlCon ConObj=new SqlCon.SqlCon();

public Class1()
{ }

public DataSet RetriveEMP()

{
SCon=ConObj.SetConnection();
Con=new SqlConnection(SCon);
Con.Open();
AD= new SqlDataAdapter("select * from users", Con);
DS=new DataSet();
AD.Fill(DS,"users");
return DS;
}//End Of DataSet RetriveEMP()


Desktop Application:


Public Function am()
Try
Dim a As New ClassLibrary1.Class1
Dim dsa As New DataSet
dsa = a.RetriveEMP()
Dim dt As DataTable
dt = dsa.Tables(0)
ComboBox1.DataBindings.Add("Text", dt, "cEmpID")

Catch Ex As Exception
MsgBox(Ex.Message)
End Try

End Function

: i need to list users ids on a combo box from users table. i'm using dataset from component.but it retrives only 1st record. i used C# to component and vb.net in desktop application.please, some one help
: me. i need to retrive all user ids to combo box.
:
:
: component :
:
:
: public SqlConnection Con;
: public SqlCommand Com;
: public SqlDataReader DR;
: public SqlDataAdapter AD;
: public DataSet DS;
: public DataTable DT;
: int result;
: public string SCon;
: SqlCon .SqlCon ConObj=new SqlCon.SqlCon();
:
: public Class1()
: { }
:
: public DataSet RetriveEMP()
:
: {
: SCon=ConObj.SetConnection();
: Con=new SqlConnection(SCon);
: Con.Open();
: AD= new SqlDataAdapter("select * from users", Con);
: DS=new DataSet();
: AD.Fill(DS,"users");
: return DS;
: }//End Of DataSet RetriveEMP()
:
:
: Desktop Application:
:
:
: Public Function am()
: Try
: Dim a As New ClassLibrary1.Class1
: Dim dsa As New DataSet
: dsa = a.RetriveEMP()
: Dim dt As DataTable
: dt = dsa.Tables(0)
: ComboBox1.DataBindings.Add("Text", dt, "cEmpID")
:
: Catch Ex As Exception
: MsgBox(Ex.Message)
: End Try
:
: End Function
:
:
:
:
Try this instead of DataBindings.

  ComboBox1.ValueMember = "cEmpID"
  ComboBox1.DataSource = dt

Pavlin II[/size]

Don't take life too seriously anyway you won't escape alive from it!