Below is my code for dropdownlist that is populated from a SQL table.
After a selection from the ddl, a datagrid is suppose to come up
pertaining to the information selected, but I keep getting a DNS
error. I developed this "simple" page but so far it is not simple!
argh!
<%@ Page Language="VB" Debug="true" Explicit="true" %>
<%@ import Namespace="Syst em.Data" %>
<%@ import Namespace="Syst em.Data.SQLClie nt" %>
<script runat="server">
Dim strConn as string =
"server=abcdser ver;database=ac ct_payable;trus ted_connection= true"
Sub Page_Load(Sourc e as Object, E as EventArgs)
if not Page.IsPostBack then
doData()
end if
End Sub
Sub doQuery(Source as Object, E as EventArgs)
'Sub doQuery is for the datagrid
'This may be the source of DSN errors - the sql statement
Dim supname as string
Dim MySQL = "SELECT splr_name, splr_name, splr_addr, " & _
"splr_city FROM tbl_ap_vendors WHERE splr_name='" & supname &
"'"
Dim MyConn as New SQLConnection(s trConn)
Dim ds as DataSet=New DataSet()
Dim Cmd as New SQLDataAdapter( MySQL,MyConn)
Cmd.Fill(ds,"tb l_ap_vendors")
'MyDataGrid is for the datagrid to fill
MyDataGrid.Data source=ds.Table s("tbl_ap_vendo rs").DefaultVie w
MyDataGrid.Data Bind()
End Sub
Sub doData()
'Sub doData is for the dropdownlist
Dim strSQL =
"server=abcdser ver;database=ac ct_payable;trus ted_connection= true"
Dim Conn as new SQLconnection(s trConn)
strSQL = "select splr_name from tbl_ap_vendors ORDER BY
splr_name"
Dim Cmd as New SQLCommand(strS QL,Conn)
Conn.Open()
MyDropDownList. DataSource = Cmd.ExecuteRead er()
MyDropDownList. DataBind()
End Sub
Function FixDR (sItem) as String
'Function FixDR is for null fields
if Not sItem is System.DBNull.V alue then FixDR=sItem
End Function
</script>
<html>
<head>
<title>Testin g a dropdownlist and datagrid</title>
</head>
<body>
<Form id="form1" runat="server">
<div align="center"> <table> <tr>
</tr>
<tr>
<!-- HTML code to display the DropDownList on the screen for user
input
list is populated by a SQL table and selection bring up DataGrid -->
<td align="center" valign="Top" Colspan="2"><hr >
<b><i><font Color="#0000FF" >Using a DropDownList and a
DataGrid:</font></i></b>
<asp:DropDownLi st id="MyDropDownL ist" datatextfield=" splr_name"
runat="server" />
<asp:Button id="button" Text="Select Supplier Name" onClick="doQuer y"
runat="server" />
<!-- HTML code to display the DataGrid on the screen selection is
determined from user
input selection from DropDownList -->
<asp:Datagrid
Id="MyDataGrid "
Width="700"
BackColor="#ccc cff"
BorderColor="bl ack"
ShowFooter="fal se"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaa add"
EnableViewState ="false">
</asp:DataGrid>
</td>
</tr>
</table></div>
</Form>
</body>
</html>
