<function> не является членом ошибки <class>при публикации в Azure - PullRequest
0 голосов
/ 24 сентября 2018

Я работаю над приложением MVC и построил функцию для обработки соединений с БД, которая называется DBConn.В DBConn у меня есть функция InsertSQL (qry, parr ()), которая является публичной и общей.Когда я тестирую на своей локальной машине, все работает нормально, но когда я публикую в Azure и просматриваю работающий сайт, я получаю следующее:

BC30456: «InsertSQL» не является членом «DBConn».

У меня есть следующая функция:

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data

Public Class DBConn
    Public Shared Connstr As String
    Public Shared Querystr As String

    Public Shared Function InsertSQL(qryStr As String, ByRef parr() As Object) As Integer
        Dim connection As SqlConnection = New SqlConnection()
        Dim cmd As New SqlCommand
        Dim qry As String = ""

        connection.ConnectionString = ConfigurationManager.ConnectionStrings(Connstr).ConnectionString
        connection.Open()

        cmd.Connection = connection

        Select Case qryStr
            Case "addForumPost"
                qry = "INSERT INTO ForumPosts(CreatedBy, CreatedDate, Sticky, Message, ForumID) VALUES ('" & parr(1) & "','" & parr(3) & "'," & "0" & ",'" & parr(0) & "'," & parr(2) & ")"

        End Select

        If qry <> "" Then cmd.CommandText = qry

        cmd.ExecuteNonQuery()
        connection.Close()

        Return 0
    End Function
End Class

Я только для краткости включил функцию InsertSQL, но есть другие функции, настроенные точно так же, как и другие.не та же проблема.Есть идеи?Я думаю, что это должна быть либо вещь Azure, либо вещь доступа / разрешения.

Вот как я вызываю функцию на моей странице asp:

@<form method = "post" action="@HttpContext.Current.Request.Url.AbsolutePath">
                            <fieldset>
                                <p>Add Comment</p>
                                <p><textarea style="width:100%" rows="10" name = "comment" ></textarea></p>
                                <p><input type = "submit" name="addPost" value="Post" /></p>

                            @If IsPost = True Then
                                Dim rtnCode As Integer
                                Dim cn As New DBConn
                                Dim arr(0 To 3) As Object

                                If Request.Form("comment") <> "" Then
                                    cn.Connstr = "kbl"

                                    arr(0) = Request.Form("comment")
                                    arr(1) = Session("userObject").username
                                    arr(2) = HttpContext.Current.Request.RequestContext.RouteData.Values("id")
                                    arr(3) = Now().ToString("yyyyMMdd hh:mm:ss")

                                    rtnCode = cn.InsertSQL("addForumPost", arr)
                                End If
                                @<meta http-equiv='refresh' content='0'>
                            End If

                            </fieldset>

                        </form>
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...