hpl
Jun 24th, 2003, 08:25 AM
I have this code, which works fine in my Page_load. But if I try to run the sub from SelectedIndexChanged then nothing happens. Do I have to specify something for my label like 'autopostback=true' for drpLists?
Protected Sub bindKappeDimension()
If Not Page.IsPostBack Then
Dim strCn As String = "Provider=Microsoft.jet.oledb.4.0;"
strCn += "Data Source=" & Server.MapPath("priser04.MDB") & ";"
Dim strSql As String = "Select Dim,Serie1 FROM SerieMat WHERE matId=" & intMatNr
Dim strResultsHolder As Integer
Dim objConnection As New OleDbConnection(strCn)
Dim objCommand As New OleDbCommand(strSql, objConnection)
Dim objDataReader As OleDbDataReader
objConnection.Open()
objDataReader = objCommand.ExecuteReader()
Dim medieDim As Integer
medieDim = CInt(Dim1.SelectedItem.Text)
Do While objDataReader.Read() = True
strResultsHolder = objDataReader("Dim")
kappe1.Text = strResultsHolder
Loop
objDataReader.Close()
objConnection.Close()
End If
End Sub
Protected Sub bindKappeDimension()
If Not Page.IsPostBack Then
Dim strCn As String = "Provider=Microsoft.jet.oledb.4.0;"
strCn += "Data Source=" & Server.MapPath("priser04.MDB") & ";"
Dim strSql As String = "Select Dim,Serie1 FROM SerieMat WHERE matId=" & intMatNr
Dim strResultsHolder As Integer
Dim objConnection As New OleDbConnection(strCn)
Dim objCommand As New OleDbCommand(strSql, objConnection)
Dim objDataReader As OleDbDataReader
objConnection.Open()
objDataReader = objCommand.ExecuteReader()
Dim medieDim As Integer
medieDim = CInt(Dim1.SelectedItem.Text)
Do While objDataReader.Read() = True
strResultsHolder = objDataReader("Dim")
kappe1.Text = strResultsHolder
Loop
objDataReader.Close()
objConnection.Close()
End If
End Sub