Generating Combo Box items from an SQL Databse

[TS]

Hi all,
I posted this question here before, but I'm still having a problem with this
code.
From my windows form, I opened a connection to a SQL database. I need to
generate a combo box in my form from a SELECT statement that selects the last
name column
from an SQL table. I wrote the following code to do that, but when I run
this code it doesn't do anything!! It doesn't even return an error message to
let me know what's going on!!
All I need is generating this combo box from this table's column in SQL. I
am new to .net. Please help

This is the code I used:
Private Sub ConnectSQL_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s) Handles ConnectSQL.Clic k
Dim SQLEV As SqlClient.SqlCo nnection = New SqlClient.SqlCo nnection
Dim cmd As SqlClient.SqlCo mmand
Dim ClientName As SqlClient.SqlDa taReader

SQLEV.Connectio nString = "Persist Security Info=true;Integ rated
Security=false; User ID=sa;Password= xxxx;database=y yy;server=zzzz"
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
ClientName = cmd.ExecuteRead er
cbo_ChildName.I tems.Clear()
Do While ClientName.Read
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)
Loop
SQLEV.Close()
--
TS

[Bernie Yaeger]

Hi TS,

Two ideas:
1. Change the order from
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
to
SQLEV.Open()
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
2. Do it this way, which I find much easier:
Dim oconn As New SqlConnection(g lobalconnection string)

Dim dabranches As New SqlDataAdapter( "select brname from branches order by
brname", oconn)

Dim dsbranches As New DataSet("dsbran ches")

dabranches.Fill (dsbranches, "dsbranches ")

oconn.Connectio nString = globalconnectio nstring

' you don't really need the connectionstrin g for this, as a dataset opens
its own

oconn.Open()

Dim r As DataRow

For Each r In dsbranches.Tabl es("dsbranches" ).Rows

cbo.Items.Add(r ("brname"))

Next

HTH,

Bernie Yaeger
"TS" <TS@discussions .microsoft.com> wrote in message
news:AB******** *************** ***********@mic rosoft.com...

Hi all,
I posted this question here before, but I'm still having a problem with
this
code.
From my windows form, I opened a connection to a SQL database. I need to
generate a combo box in my form from a SELECT statement that selects the
last
name column
from an SQL table. I wrote the following code to do that, but when I run
this code it doesn't do anything!! It doesn't even return an error message
to
let me know what's going on!!
All I need is generating this combo box from this table's column in SQL. I
am new to .net. Please help

This is the code I used:
Private Sub ConnectSQL_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s) Handles ConnectSQL.Clic k
Dim SQLEV As SqlClient.SqlCo nnection = New SqlClient.SqlCo nnection
Dim cmd As SqlClient.SqlCo mmand
Dim ClientName As SqlClient.SqlDa taReader

SQLEV.Connectio nString = "Persist Security Info=true;Integ rated
Security=false; User ID=sa;Password= xxxx;database=y yy;server=zzzz"
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
ClientName = cmd.ExecuteRead er
cbo_ChildName.I tems.Clear()
Do While ClientName.Read
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)
Loop
SQLEV.Close()
--
TS

[TS]

I can't express how much I am thankful to you. It worked. One more thing, if
I want to include last name as well as first name in the combo box, what
change I have to make in the code?
Currently the code reads as:
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)

Thanks again for all your help.


"Bernie Yaeger" wrote:

Hi TS,

Two ideas:
1. Change the order from
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
to
SQLEV.Open()
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
2. Do it this way, which I find much easier:
Dim oconn As New SqlConnection(g lobalconnection string)

Dim dabranches As New SqlDataAdapter( "select brname from branches order by
brname", oconn)

Dim dsbranches As New DataSet("dsbran ches")

dabranches.Fill (dsbranches, "dsbranches ")

oconn.Connectio nString = globalconnectio nstring

' you don't really need the connectionstrin g for this, as a dataset opens
its own

oconn.Open()

Dim r As DataRow

For Each r In dsbranches.Tabl es("dsbranches" ).Rows

cbo.Items.Add(r ("brname"))

Next

HTH,

Bernie Yaeger
"TS" <TS@discussions .microsoft.com> wrote in message
news:AB******** *************** ***********@mic rosoft.com...

Hi all,
I posted this question here before, but I'm still having a problem with
this
code.
From my windows form, I opened a connection to a SQL database. I need to
generate a combo box in my form from a SELECT statement that selects the
last
name column
from an SQL table. I wrote the following code to do that, but when I run
this code it doesn't do anything!! It doesn't even return an error message
to
let me know what's going on!!
All I need is generating this combo box from this table's column in SQL. I
am new to .net. Please help

This is the code I used:
Private Sub ConnectSQL_Clic k(ByVal sender As Object, ByVal e As
System.EventArg s) Handles ConnectSQL.Clic k
Dim SQLEV As SqlClient.SqlCo nnection = New SqlClient.SqlCo nnection
Dim cmd As SqlClient.SqlCo mmand
Dim ClientName As SqlClient.SqlDa taReader

SQLEV.Connectio nString = "Persist Security Info=true;Integ rated
Security=false; User ID=sa;Password= xxxx;database=y yy;server=zzzz"
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
ClientName = cmd.ExecuteRead er
cbo_ChildName.I tems.Clear()
Do While ClientName.Read
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)
Loop
SQLEV.Close()
--
TS

[Bernie Yaeger]

Hi TS,

You're very welcome.

Here's the change:
this
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)

changes to this
cbo_ChildName.I tems.Add(Trim(C lientName.Item( "First_Name").T oString) & " " &
ClientName.Item ("Last_Name").T oString)

Notice that I put first name first and trimmed it so that it is no longer
than the letters in the first name; then I added one space; then the last
name.

HTH,

Bernie

"TS" <TS@discussions .microsoft.com> wrote in message
news:F0******** *************** ***********@mic rosoft.com...

I can't express how much I am thankful to you. It worked. One more thing,
if
I want to include last name as well as first name in the combo box, what
change I have to make in the code?
Currently the code reads as:
cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)

Thanks again for all your help.


"Bernie Yaeger" wrote:

Hi TS,

Two ideas:
1. Change the order from
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
SQLEV.Open()
to
SQLEV.Open()
cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
2. Do it this way, which I find much easier:
Dim oconn As New SqlConnection(g lobalconnection string)

Dim dabranches As New SqlDataAdapter( "select brname from branches order
by
brname", oconn)

Dim dsbranches As New DataSet("dsbran ches")

dabranches.Fill (dsbranches, "dsbranches ")

oconn.Connectio nString = globalconnectio nstring

' you don't really need the connectionstrin g for this, as a dataset opens
its own

oconn.Open()

Dim r As DataRow

For Each r In dsbranches.Tabl es("dsbranches" ).Rows

cbo.Items.Add(r ("brname"))

Next

HTH,

Bernie Yaeger
"TS" <TS@discussions .microsoft.com> wrote in message
news:AB******** *************** ***********@mic rosoft.com...

> Hi all,
> I posted this question here before, but I'm still having a problem with
> this
> code.
> From my windows form, I opened a connection to a SQL database. I need
> to
> generate a combo box in my form from a SELECT statement that selects
> the
> last
> name column
> from an SQL table. I wrote the following code to do that, but when I
> run
> this code it doesn't do anything!! It doesn't even return an error
> message
> to
> let me know what's going on!!
> All I need is generating this combo box from this table's column in
> SQL. I
> am new to .net. Please help
>
> This is the code I used:
> Private Sub ConnectSQL_Clic k(ByVal sender As Object, ByVal e As
> System.EventArg s) Handles ConnectSQL.Clic k
> Dim SQLEV As SqlClient.SqlCo nnection = New
> SqlClient.SqlCo nnection
> Dim cmd As SqlClient.SqlCo mmand
> Dim ClientName As SqlClient.SqlDa taReader
>
> SQLEV.Connectio nString = "Persist Security Info=true;Integ rated
> Security=false; User ID=sa;Password= xxxx;database=y yy;server=zzzz"
> cmd = New SqlClient.SqlCo mmand("SELECT * FROM qmf_cint", SQLEV)
> SQLEV.Open()
> ClientName = cmd.ExecuteRead er
> cbo_ChildName.I tems.Clear()
> Do While ClientName.Read
>
> cbo_ChildName.I tems.Add(Client Name.Item("Last _Name").ToStrin g)
> Loop
> SQLEV.Close()
>
>
> --
> TS