CboBox problem.

well...its very simple...following is the code....
i have not decleared variables
com->command object
con->connection object
reader->DataReader Object
VB.NET:
[size=2]com.CommandText = "Select Id from Table_name"
 
com.Connection = con
 
[/size][size=2][color=#0000ff]Try
 
[/color][/size][size=2][color=#0000ff]If[/color][/size][size=2] con.State = ConnectionState.Closed [/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2]con.Open()
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
 
[/color][/size][size=2]reader = com.ExecuteReader()
 
[/size][size=2][color=#0000ff]Do[/color][/size][size=2][color=#0000ff]While[/color][/size][size=2] reader.Read
 
cmbId.Items.Add(reader(0))
 
[/size][size=2][color=#0000ff]Loop
 
[/color][/size][size=2]reader.Close()
 
con.Close()
 
[/size][size=2][color=#0000ff]Catch[/color][/size][size=2] ex [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception
 
MsgBox(ex.Message)
 
[/size][size=2][color=#0000ff]If[/color][/size][size=2] con.State = ConnectionState.Open [/size][size=2][color=#0000ff]Then
 
[/color][/size][size=2]con.Close()
 
[/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
 
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]Try[/color][/size]

 
Back
Top