>Sub btn_chgpwd(ByVal s As Object, ByVal e As EventArgs) > If IsValid Then > myConnection = New OracleConnection(odh) > myConnection.Open() > myTrans = myConnection.BeginTransaction() > myCommand = myConnection.CreateCommand() > With myCommand > .CommandText = "pkg_users.UPDATE_USERS_QUESTION" > .CommandType = CommandType.StoredProcedure > .Transaction = myTrans > Dim P_USER_ID, P_USER_QUESTION, P_ANSWER, P_MODIFIED_BY, P_ERROR_ID, P_ERROR_MSG As OracleParameter > With .Parameters > P_USER_ID = .Add("@P_USER_ID", OracleType.VarChar, 10) > P_USER_ID.Value = Session("UserName") > > P_USER_QUESTION = .Add("@P_USER_QUESTION", OracleType.VarChar, 120) > P_USER_QUESTION.Value = txtnewpassword.Text > > P_ANSWER = .Add("@P_ANSWER", OracleType.VarChar, 60) > P_ANSWER.Value = txtrenewpassword.Text > > P_MODIFIED_BY = .Add("@P_MODIFIED_BY", OracleType.VarChar, 10) > P_MODIFIED_BY.Value = Session("UserName") > > P_ERROR_ID = .Add("@P_ERROR_ID", OracleType.Double) > P_ERROR_ID.Direction = ParameterDirection.Output > > P_ERROR_MSG = .Add("@P_ERROR_MSG", OracleType.VarChar, 100) > P_ERROR_MSG.Direction = ParameterDirection.Output > End With > End With > > Try > myCommand.ExecuteNonQuery() > > If P_ERROR_ID.Value = 0 Then > Response.Write("before commit") > myTrans.Commit() > myConnection.Close() > Response.Redirect("/login/menu.aspx") > Else > myTrans.Commit() > myConnection.Close() > End If > Catch eex As Exception > Response.Write(eex.ToString()) > myTrans.Rollback() > myConnection.Close() > End Try > End If >End Sub > >>
>>>Dim strProvider As String = "OracleClient" >>> >>>If strProvider = "OracleClient" >>> Dim ConPubs As New OracleConnection(odh) >>>Else >>> Dim ConPubs As New OleDbConnection(odh) >>>End If >>> >>>ConPubs.Open() >>>>>>