Member 11011853 Ответов: 2

Необработанное исключение типа "system. argumentexception" произошло в microsoft.visualbasic.dll дополнительная информация: аргумент 'prompt' не может быть преобразован в тип 'string'.


Привет..
Я получаю
An unhandled exception of type 'System.ArgumentException' occurred in microsoft.visualbasic.dll

Additional information: Argument 'Prompt' cannot be converted to type 'String'.
ошибка в приложении Windows Visual Studio 2002.

If MsgBox("Are you sure Do you want to delete MTR?".ToString(), MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question, Me.Text) = MsgBoxResult.Yes Then


        Dim sqlcon As New SqlConnection(BusinessObject.ConnectionString)
        If sqlcon.State = ConnectionState.Closed Then sqlcon.Open()
        'sqlTrans = BusinessLayer.BusinessObject.Connection.BeginTransaction
        sqlTrans = sqlcon.BeginTransaction()
        sqlCmd.Transaction = sqlTrans
        sqlCmd.CommandType = CommandType.Text

        '' updating stock place in barcodebin
        Dim rsBarCode As New ADODB.Recordset()
        rsBarCode.Open("SELECT * FROM BarcodeBin WHERE MTRId='" & Trim(selMTR.Id) & "' AND CalculatedFor IS NOT NULL", con, 2, 3)
        Dim tmpFlg As Boolean = False
        If rsBarCode.EOF = True Then
            '' If any of the MTR item not alloted to OC , can delete MTR
            tmpFlg = True
        End If
        rsBarCode.Close()
        If tmpFlg = True Then
            Dim qry As String = "UPDATE BarcodeBin SET MTRId=NULL, MTRRaised=0, DeBondDate =NULL, DeBondNumber=NULL, StockPlace='B' WHERE MTRId='" & Trim(Me.selMTR.Id) & "'"
            sqlCmd.CommandText = qry
            sqlCmd.ExecuteNonQuery()
        Else
            Exit Sub
        End If

        sqlTrans.Commit()
        MsgBox("MTR : '" & Me.selMTR.MTRNo & "' has been deleted.", MsgBoxStyle.Information, Me.Text)
        ShowingMTR()
        Me.txtReason.Text = ""

    End If
Else
    MsgBox("Please select MTR.", MsgBoxStyle.Information, Me.Text)
    Exit Sub

End If


Получение ошибки при "
sqlCmd.ExecuteNonQuery()
" столкновения.

Любая помощь будет оценена по достоинству.


Спасибо....

Что я уже пробовал:

Я ссылался почти на всех .форум net help. я не получаю никакого решения. Даже я удалил подтверждение Yes/No из кода, все еще вызывая ту же ошибку.

Tomas Takac

Вы уверены, что ошибка возникает в sqlCmd?ExecuteNonQuery () а не в другом месте? Исключение происходит от microsoft.visualbasic.dll и это не то место, где находится SqlCommand. Может быть, это функция MsgBox? Вот почему вы добавили туда функцию ToString ()?

2 Ответов

Рейтинг:
2

Richard MacCutchan

If MsgBox("Are you sure Do you want to delete MTR?".ToString(), MsgBoxStyle.YesNo + 

Зачем ты звонишь ToString на постоянном строковом значении?


Рейтинг:
0

Jochen Arndt

Сообщение об ошибке указывает на то, что существует проблема с Prompt параметр Функция MsgBox (Visual Basic)[^].

Попробуйте что-нибудь вроде этого:

Dim prompt = "Are you sure Do you want to delete MTR?"
Dim style = MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2 + MsgBoxStyle.Question
Dim response = MsgBox(prompt, style, Me.Text)
If response = MsgBoxResult.Yes Then
' ...
End If