ASP.NET

Mark Nischalke wrote:

Not a very secure method.

<br />
'label already in aspx page            <br />
Dim lblShowDetails As Label<br />
<br />
            Dim intCount As Integer = 0<br />
            Do While intCount < arrErrors.Count<br />
                lblShowDetails.Text += arrErrors(intCount).ToString<br />
                intCount += 1<br />
            Loop<br />

<br />
<br />
        Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
           Dim strSuccess As String = Invoice.SelectInvoiceToAS400()<br />
<br />
            If strSuccess = 1 Then<br />
                lblSuccess.Text = "Successfully added to DB2"<br />
            Else<br />
                lblSuccess.text = "Unsuccessful entries"<br />
            End If<br />
            <br />
        End Sub<br />
<br />

        <br />
Public Shared Function SelectInvoiceToAS400() As Integer<br />
            Return ExportXLSDA.SelectInvoiceToAS400()<br />
End Function

<br />
 Public Shared Function SelectInvoiceToAS400() As Integer<br />
<br />
            Dim arrErrors As New ArrayList()<br />
<br />
            Dim objInvoice As Invoice = Nothing<br />
<br />
            'Create new dataset to hold information<br />
            Dim objInvoiceDetails As New List(Of Invoice)()<br />
            Dim objConn As SqlConnection = New SqlConnection(ConnectionString())<br />
            Dim objCmd As SqlCommand = New SqlCommand("sp_SelectInvoiceDetails", objConn)<br />
<br />
            'Mark the command as a TEXT Select<br />
            objCmd.CommandType = CommandType.StoredProcedure<br />
<br />
            'Open the connection<br />
<br />
            objConn.Open()<br />
<br />
            Try<br />
                Dim objDr As SqlDataReader = objCmd.ExecuteReader()<br />
<br />
dim arrErrors as new Arraylist()<br />
<br />
While (objDr.Read())<br />
objInvoice = New Invoice()<br />
objInvoice.InvoiceDate = objDr(0).ToString<br />
objInvoice.InvoiceNumber = objDr(1).ToString<br />
objInvoice.InvoiceSubHead = objDr(2).ToString<br />
objInvoice.InvoiceTotal = objDr(3).ToString<br />
objInvoice.InvoiceSignoffBy = objDr(4).ToString<br />
objInvoice.InvoiceSubmittedBy = objDr(5).ToString<br />
<br />
<br />
If objInvoice.InvoiceSubmittedBy = "" Then<br />
arrErrors.Add("An error occured retrieving record" & objInvoice.InvoiceNumber)<br />
<br />
Else<br />
<br />
objInvoiceDetails.Add(objInvoice)<br />
End If<br />
<br />
End While<br />
<br />
            Catch ex As Exception<br />
<br />
                Dim strExceptionMsg As String = "Error Executing GetAS400InvoiceDetails(): " & ex.Message & "\r\n"<br />
                Throw New Exception(strExceptionMsg, ex)<br />
<br />
            Finally<br />
                objConn.Close()<br />
<br />
            End Try<br />
<br />
<br />
                Dim intCount As Integer = 0<br />
                Do While intCount < arrShowDetails.Count<br />
                    lblShowDetails.Text += arrShowDetails(intCount).ToString<br />
                    intCount += 1<br />
                Loop<br />
<br />
            Return 1<br />
<br />
        End Function

Apurva Kaushal wrote:

You just check whether data is there in the arraylist or not.