Converting VBA to VB.NET, getting compile error BC30311

Question

First of all, thanks to Jachen and Andy for their extreme help in my attempt to convert VBA app to VB.NET. The only error left (with this Winform) is Error BC30311 - Value of Type 'Parameter' cannot be converted to 'Integer'. I am attempting to call an SQL stored procedure using ADO. Below are the steps that I captured and the compiler error is on the last statement: returnValue = cmd.parameters("ReturnValue"). I would appreciate any help on this statement that compiles with VBA, but does not compile with Visual Studio's VB.NET. Thanks in advance, Giacomo

        storedProcName = "BackupHOHDatabase"
        cmd = New ADODB.Command
        With cmd
            .ActiveConnection = conn
            .CommandType = CommandTypeEnum.adCmdStoredProc
            .CommandText = storedProcName
            .NamedParameters = True
        End With

        param1 = cmd.CreateParameter("ReturnValue", DataTypeEnum.adInteger, ParameterDirectionEnum.adParamReturnValue)
        cmd.Parameters.Append(param1)
        '
        '  If TodaysDB = False, Then Previous Year's database is to be backuped up
        '  If TodaysDB = True, Then Current Year's database is to be backed up
        '
        If TodaysDB = False Then      ' The 1st parameter, the Previous Year's Database is to be backed up
            param2 = cmd.CreateParameter("@Databasename", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, lengthOfDBName, Database)
            cmd.Parameters.Append(param2)
        Else
            param2 = cmd.CreateParameter("@Suffix", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, lengthOfSuffix, Suffix)
            cmd.Parameters.Append(param2)
        End If
        param3 = cmd.CreateParameter("@TodaysDB", DataTypeEnum.adBoolean, ParameterDirectionEnum.adParamInput, , TodaysDB)
        cmd.Parameters.Append(param3)
        '
        ' Now execute Stored Procedure to Backup the HOHdatabase.
        '
        cmd.Execute()

        returnValue = cmd.Parameters("ReturnValue")

Answer 1

Hi @Giacomo Raucci ,

In vb.net, you can use the following code to cast it to Integer.

returnValue = CInt(cmd.Parameters("ReturnValue").Value)

Best Regards.

Jiachen Li

---

If the answer is helpful, please click "Accept Answer" and upvote it.

Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.

Answer 2

its cmd.Parameters("ReturnValue").Value, which is an object and must be cast to the correct datatype. in c# its:

returnValue = (int) cmd.Parameters("ReturnValue").Value;