this is the code behind
Private Sub PSG_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PSG.CheckedChanged
Dim dcmdb As New ASPNetPortal.CustConfig()
Dim dn As New DataSet()
If AMK.Checked Then
dn = dcmdb.GetProdCode_PSG_AMK()
ElseIf WUXI.Checked Then
dn = dcmdb.GetProdCode_PSG_WUXI()
End If
ProdCode.DataSource = dn
ProdCode.DataTextField = "PRODUCT"
ProdCode.DataBind()
End Sub
Private Sub ESG_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ESG.CheckedChanged
Dim dcmdb As New ASPNetPortal.CustConfig()
Dim dn As New DataSet()
If AMK.Checked Then
dn = dcmdb.GetProdCode_ESG_AMK()
ElseIf WUXI.Checked Then
dn = dcmdb.GetProdCode_ESG_WUXI()
End If
ProdCode.DataSource = dn
ProdCode.DataTextField = "PRODUCT"
ProdCode.DataBind()
End Sub
Private Sub ProdCode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProdCode.SelectedIndexChanged
Dim dcmdb As New ASPNetPortal.CustConfig()
Dim dn As New DataSet()
If AMK.Checked Then
If PSG.Checked Then
dn = dcmdb.GetPartNum_PSG_AMK(ProdCode.SelectedItem.Value)
PartNum.DataSource = dn
PartNum.DataTextField = "PART_NUM"
PartNum.DataBind()
ElseIf ESG.Checked Then
dn = dcmdb.GetPartNum_ESG_AMK(ProdCode.SelectedItem.Value)
PartNum.DataSource = dn
PartNum.DataTextField = "MEPNUM"
PartNum.DataBind()
End If
ElseIf WUXI.Checked Then
If PSG.Checked Then
dn = dcmdb.GetPartNum_PSG_WUXI(ProdCode.SelectedItem.Value)
PartNum.DataSource = dn
PartNum.DataTextField = "PART_NUM"
PartNum.DataBind()
ElseIf ESG.Checked Then
dn = dcmdb.GetPartNum_ESG_WUXI(ProdCode.SelectedItem.Value)
PartNum.DataSource = dn
PartNum.DataTextField = "MEPNUM"
PartNum.DataBind()
End If
End If
This is the vb code which contain those sql query
Public Function GetProdCode_PSG_AMK()
Dim myconnect1 As New OracleConnection()
myconnect1.ConnectionString = ConfigurationSettings.AppSettings("DCMConnectionString")
myconnect1.Open()
Dim mycommand As New OracleDataAdapter("select PRODUCT from PRODUCT_MATRIX where PRODUCT_TYPE = 'PSG' order by PRODUCT", myconnect1)
mycommand.SelectCommand.CommandType = CommandType.Text
Dim mydataset As New DataSet()
mycommand.Fill(mydataset)
Return mydataset
myconnect1.Close()
End Function
Public Function GetPartNum_PSG_AMK(ByVal prodcode As String) As DataSet
Dim myconnect1 As New OracleConnection()
myconnect1.ConnectionString = ConfigurationSettings.AppSettings("DCMConnectionString")
myconnect1.Open()
Dim mycommand As New OracleDataAdapter("select distinct PART_NUM from DCC_MASTER where PART_NUM like '" & prodcode & "%' order by PART_NUM", myconnect1)
mycommand.SelectCommand.CommandType = CommandType.Text
Dim mydataset As New DataSet()
mycommand.Fill(mydataset)
Return mydataset
myconnect1.Close()
End Function