ASP.NET

Real Coder wrote:

I'd like to use "smart client" for listing what software someone who visits my website uses.

Real Coder wrote:

if you visit my homepage, my program will run to check your software for security.

Real Coder wrote:

A problem is CAS.

Public Function Get_TransDetails(ByVal iTransId As Long, ByRef TransData As String) As System.Text.StringBuilder<br />
        Dim Rs As New ADODB.Recordset()<br />
        Dim Cmd As New ADODB.Command()<br />
        Dim Str As New System.Text.StringBuilder()<br />
<br />
        Try<br />
            Verify_Connectivity()<br />
            Cmd.ActiveConnection = Con<br />
            Cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc<br />
            Cmd.Parameters.Append(Cmd.CreateParameter("TransId", ADODB.DataTypeEnum.adBigInt, 1, , iTransId)) '<-the error happens here<br />
            Cmd.Parameters.Append(Cmd.CreateParameter("TransData", ADODB.DataTypeEnum.adVarChar, 2, 60, TransData))<br />
            Cmd.CommandText = "[QTransDetails]"<br />
            Rs.CursorType = 0 : Rs.LockType = 1 : Rs = Cmd.Execute()<br />
            While Not Rs.EOF<br />
                Str.Append(CType(Rs.Fields(0).Value, String).Replace(Chr(13), "") & Chr(10))<br />
                Rs.MoveNext()<br />
            End While<br />
            Rs.Close() : WagerData = Cmd.Parameters(1).Value<br />
            Return Str<br />
        Catch<br />
            Handle_Error(Err, "Get_TransDetails")<br />
        End Try<br />
    End Function

alexvw wrote:

Cmd.Parameters.Append(Cmd.CreateParameter("TransId", ADODB.DataTypeEnum.adBigInt, 1, , iTransId)) '<-the error happens here

alexvw wrote:

Although it works, I think I will have re-write it into ADO.NET.

alexvw wrote:

To work around the issue by treating a BIGINT as a Double Precesion number does not quite make me feel confident it won't eventually fail.

alexvw wrote:

I have only needed to size string-like parametes, apparently both ADODB and ADO.NET take good care of all other data types.

alexvw wrote:

Thank you very much for following up my request for help. Your tip did work!

dandamudi padma wrote:

Dim dt As DataTable
dt = trackFac.FullReportCR()
CrystalReportViewer1.ReportSource = dt