Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Create Procedure dbo.GetStuff
AS
SELECT * FROM tbl_1
SELECT * FROM tbl_2
SELECT * FROM tbl_3
GO
// create connection, connection string etc.
// create command object
// create SqlDataAdapter
// fill the DataSet
// Load the first dropdown with ds.Tables[0].DefaultView as the DataSource
// set the DataValueField and DataTextField
// DataBind()
// Load the second dropdown with ds.Tables[1].DefaultView as the DataSource
// set the DataValueField and DataTextField
// DataBind()
// etc...
, Authority + ' | ' + "
strSQLNewName &= "Number AS Expr4 FROM Sig_Auth_Nms "
strSQLNewName &= "WHERE [Code]<>'' "
strSQLNewName &= "Order By Authority"
Dim sCon1 As New SqlConnection
sCon1.ConnectionString = Session("DBDDL")
sCon1.Open()
Dim cmdRes As New SqlCommand(strSQLNewName, sCon1)
Dim myNewNameRDR As SqlDataReader = cmdRes.ExecuteReader()
If myNewNameRDR.HasRows = True Then
KSddlNewName.DataSource = myNewNameRDR
KSddlNewName.DataTextField = "Expr4"
KSddlNewName.DataValueField = "Number"
KSddlNewName.DataBind()
KSddlNewName.Items.Insert(0, "")
ksddlNewName2.DataSource = myNewNameRDR
ksddlNewName2.DataTextField = "Expr4"
ksddlNewName2.DataValueField = "Number"
ksddlNewName2.DataBind()
ksddlNewName2.Items.Insert(0, "")
ksddlNewname3.DataSource = myNewNameRDR
ksddlNewname3.DataTextField = "Expr4"
ksddlNewname3.DataValueField = "Number"
ksddlNewname3.DataBind()
ksddlNewname3.Items.Insert(0, "")
End If
myNewNameRDR.Close()
myNewNameRDR = Nothing
sCon1.Close()
Call buildKSddlNewP3ResourceCode()
'Make SQL Statement to populate the third ddl, KSddlNewRateType
Dim strSQLNewRateType As String
strSQLNewRateType = "SELECT ComboCode + ' - ' + Description AS RtCdCnct, ComboCode FROM "
strSQLNewRateType &= "[Resource Table - Combo Codes]"
sCon1.Open()
Dim cmdRateType As New SqlCommand(strSQLNewRateType, sCon1)
Dim myNewRateTypeRDR As SqlDataReader = cmdRateType.ExecuteReader()
If myNewRateTypeRDR.HasRows = True Then
KSddlNewRateType.DataSource = myNewRateTypeRDR
KSddlNewRateType.DataTextField = "RtCdCnct"
KSddlNewRateType.DataValueField = "ComboCode"
KSddlNewRateType.DataBind()
KSddlNewRateType.Items.Insert(0, "")
End If
myNewRateTypeRDR.Close()
myNewRateTypeRDR = Nothing
sCon1.Close()
...but I'm going to try to use:
Dim cnn As New SqlConnection("data source = desktop; initial catalog= northwind; trusted_connection=true")
cnn.Open()
'
Dim cmd As New SqlCommand("Data_Reader", cnn)
cmd.CommandType = CommandType.StoredProcedure
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
With ddlLastName
.DataSource = dr
.DataTextField = "LastName"
.DataValueField = "LastName"
.DataBind()
End With
dr.NextResult()
With ddlCompanyName
.DataSource = dr
.DataTextField = "CompanyName"
.DataValueField = "CompanyName"
.DataBind()
End With
cnn.Close()
dr.Close()
DropDownList1.DataSource = myDataTable
DropDownList1.DataBind
DropDownList2.DataSource = myDataTable
DropDownList2.DataBind
etc...