designaire
asked on
popluate combobox fill gridview from webservice
Create a window application to display sales for a selected store using multitier application. Allow the user to select store name from a drop down list.
Use sales and stores from the pubs database. sales table stor_id, ord_num, ord_date, qty, payterms, and title_id columns. Stores table has stor_id, stor_name, stor_address, city, state and zip columns.
Right the combobox is work. The GridView is displaying the id number I have in the sql statement. How do get it to display the results of the combobox?
Any help would be appreciated
Use sales and stores from the pubs database. sales table stor_id, ord_num, ord_date, qty, payterms, and title_id columns. Stores table has stor_id, stor_name, stor_address, city, state and zip columns.
Right the combobox is work. The GridView is displaying the id number I have in the sql statement. How do get it to display the results of the combobox?
Any help would be appreciated
<WebMethod()> Public Function dat(ByVal services As String) As DataSet
Dim cn As New SqlConnection
Dim da As SqlDataAdapter
Dim strSelect As String
Dim ds As DataSet
Dim cnstring As String
cnstring = "Data Source=.\SQLExpress; Initial Catalog=PUBS; Integrated Security=True;"
cn = New SqlConnection(cnstring)
cn.Open()
'strSelect = "SELECT DISTINCT stores.stor_name, sales.stor_id FROM (stores INNER JOIN sales ON stores.stor_id = sales.stor_id)"
strSelect = "SELECT * FROM Stores"
da = New SqlDataAdapter(strSelect, cn)
ds = New DataSet
da.Fill(ds, "Stores")
dat = ds
End Function
<WebMethod()> Public Function data(ByVal selected As String) As DataSet
Dim cnstring As String
Dim strSelect As String
Dim ds As DataSet
Dim da As SqlDataAdapter
cnstring = "Data Source=.\SQLExpress; Initial Catalog=PUBS; Integrated Security=True;"
strSelect = "SELECT stor_id, ord_num, ord_date, qty, payterms, title_id FROM Sales WHERE stor_id=7067"
Dim cn As New SqlConnection(cnstring)
cn.Open()
Dim cmd As New SqlCommand(strSelect, cn)
da = New SqlDataAdapter(strSelect, cn)
ds = New DataSet
da.Fill(ds, "Sales")
Return ds
End Function
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim combo As New localhost.Service()
ComboBox1.DataSource = combo.dat.Tables(0)
ComboBox1.DisplayMember = "stor_name"
ComboBox1.ValueMember = "stor_id"
End Sub
Public Sub ComboBox1_SelectedIndexChanged(ByVal test As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim combo1 As New localhost.Service()
DataGridView1.DataSource = combo1.data
End Sub
End Class
ASKER
I guess I know that's what I'm supposed to do but everytime I try it, I get some kind of error message.
I added the selection variable to the webservices though the public function and added it to the sql string. I"m doing something wrong because it doesn't work. It says there's an error message after the the = in the sql statement.
Thanks
I added the selection variable to the webservices though the public function and added it to the sql string. I"m doing something wrong because it doesn't work. It says there's an error message after the the = in the sql statement.
Thanks
selection = ComboBox1.SelectedValue.ToString
<WebMethod()> Public Function data(ByVal selection As String) As
cnstring = "Data Source=.\SQLExpress; Initial Catalog=PUBS; Integrated Security=True;"
'strSelect = "SELECT * from Sales"
strSelect = "SELECT stor_id, ord_num, ord_date, qty, payterms, title_id FROM Sales WHERE stor_id=selection = ComboBox1.SelectedValue.ToString" & selection & ""
ASKER
Sorry made a mistake on the sql statement...
selection = ComboBox1.SelectedValue.To String
<WebMethod()> Public Function data(ByVal selection As String) As
cnstring = "Data Source=.\SQLExpress; Initial Catalog=PUBS; Integrated Security=True;"
'strSelect = "SELECT * from Sales"
strSelect = "SELECT stor_id, ord_num, ord_date, qty, payterms, title_id FROM Sales WHERE stor_id=" & selection & """"
selection = ComboBox1.SelectedValue.To
<WebMethod()> Public Function data(ByVal selection As String) As
cnstring = "Data Source=.\SQLExpress; Initial Catalog=PUBS; Integrated Security=True;"
'strSelect = "SELECT * from Sales"
strSelect = "SELECT stor_id, ord_num, ord_date, qty, payterms, title_id FROM Sales WHERE stor_id=" & selection & """"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
e.g. combo1.data(ComboBox1.sele
make sure that that inside your webservice query the selected value ends up in your WHERE clause.
e.g.
strSelect = string.Format("SELECT stor_id, ord_num, ord_date, qty, payterms, title_id FROM Sales WHERE stor_id={0}", selected)