Я работаю над приложением 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>