Problèmes de construction d'un module DNN en utilisant Linq to SQL

Je construis un module en utilisant linq to SQL et je rencontre des problèmes. J'ai suivi le tutoriel de Michal Washington sur adefwebserver.com. Le problème est que VB ne reconnaît pas ma classe de plainte lorsque j'essaie de créer un nouvel objet de plainte. Une idée de pourquoi je suis incapable de Dim objet d'une plainte? Voici mon code:Problèmes de construction d'un module DNN en utilisant Linq to SQL

View.ascx.vb (

Imports Complaint 
    Protected Sub LinqDataSource1_Inserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.LinqDataSourceInsertEventArgs) Handles LinqDataSource1.Inserting 

     Dim Complaint As **Complaint** = DirectCast(e.NewObject, Complaint) 

     Complaint.UserID = Entities.Users.UserController.GetCurrentUserInfo().Username 
     Complaint.ModuleId = ModuleId 
     Complaint.System_Time_Date_Stamp = Format(DateTime.Now, "yyyy-MM-dd HH:mm:ss.fff") 

    End Sub 

    Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound 

     If (e.Row.RowType = DataControlRowType.DataRow) Then 
      Dim Complaint As Complaint = (DirectCast((e.Row.DataItem), Complaint)) 

      If (PortalSecurity.IsInRole("Administrators")) Then 
       e.Row.Cells(0).Enabled = True 
      Else 
       e.Row.Cells(0).Text = " " 
      End If 
     End If 

    End Sub

)

Complaint.designer.vb (

Option Strict On 
Option Explicit On 

Imports System 
Imports System.Collections.Generic 
Imports System.ComponentModel 
Imports System.Data 
Imports System.Data.Linq 
Imports System.Data.Linq.Mapping 
Imports System.Linq 
Imports System.Linq.Expressions 
Imports System.Reflection 

Namespace Complaint 


<System.Data.Linq.Mapping.DatabaseAttribute(Name:="NewDnn")> _ 
Partial Public Class ComplaintDataContext 
    Inherits System.Data.Linq.DataContext 

    Private Shared mappingSource As System.Data.Linq.Mapping.MappingSource = New AttributeMappingSource 

#Region "Extensibility Method Definitions" 
Partial Private Sub OnCreated() 
End Sub 
Partial Private Sub InsertComplaint(instance As Complaint) 
End Sub 
Partial Private Sub UpdateComplaint(instance As Complaint) 
End Sub 
Partial Private Sub DeleteComplaint(instance As Complaint) 
End Sub 
#End Region 

    Public Sub New() 
     MyBase.New(Global.System.Configuration.ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString, mappingSource) 
     OnCreated 
    End Sub 

    Public Sub New(ByVal connection As String) 
     MyBase.New(connection, mappingSource) 
     OnCreated 
    End Sub 

    Public Sub New(ByVal connection As System.Data.IDbConnection) 
     MyBase.New(connection, mappingSource) 
     OnCreated 
    End Sub 

    Public Sub New(ByVal connection As String, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource) 
     MyBase.New(connection, mappingSource) 
     OnCreated 
    End Sub 

    Public Sub New(ByVal connection As System.Data.IDbConnection, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource) 
     MyBase.New(connection, mappingSource) 
     OnCreated 
    End Sub 

    Public ReadOnly Property Complaints() As System.Data.Linq.Table(Of Complaint) 
     Get 
      Return Me.GetTable(Of Complaint) 
     End Get 
    End Property 
End Class 

<Table(Name:="dbo.Complaint")> _ 
Partial Public Class Complaint 
    Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged 

    Private Shared emptyChangingEventArgs As PropertyChangingEventArgs = New PropertyChangingEventArgs(String.Empty) 

    Private _ID As Integer 

    Private _ModuleID As System.Nullable(Of Integer) 

    Private _Member_UserName As String 

    Private _Reporter_Preffered_Contact As String 

    Private _Target_FName As String 

    Private _Target_LName As String 

    Private _Target_Street_Address As String 

    Private _Target_City As String 

    Private _Target_State As String 

    Private _Target_Zip As String 

    Private _Complaint_Details As String 

    Private _Status As String 

    Private _System_Time_Date_Stamp As System.Nullable(Of Date) 

#Region "Extensibility Method Definitions" 
Partial Private Sub OnLoaded() 
End Sub 
Partial Private Sub OnValidate(action As System.Data.Linq.ChangeAction) 
End Sub 
Partial Private Sub OnCreated() 
End Sub 
Partial Private Sub OnIDChanging(value As Integer) 
End Sub 
Partial Private Sub OnIDChanged() 
End Sub 
Partial Private Sub OnModuleIDChanging(value As System.Nullable(Of Integer)) 
End Sub 
Partial Private Sub OnModuleIDChanged() 
End Sub 
Partial Private Sub OnMember_UserNameChanging(value As String) 
End Sub 
Partial Private Sub OnMember_UserNameChanged() 
End Sub 
Partial Private Sub OnReporter_Preffered_ContactChanging(value As String) 
End Sub 
Partial Private Sub OnReporter_Preffered_ContactChanged() 
End Sub 
Partial Private Sub OnTarget_FNameChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_FNameChanged() 
End Sub 
Partial Private Sub OnTarget_LNameChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_LNameChanged() 
End Sub 
Partial Private Sub OnTarget_Street_AddressChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_Street_AddressChanged() 
End Sub 
Partial Private Sub OnTarget_CityChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_CityChanged() 
End Sub 
Partial Private Sub OnTarget_StateChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_StateChanged() 
End Sub 
Partial Private Sub OnTarget_ZipChanging(value As String) 
End Sub 
Partial Private Sub OnTarget_ZipChanged() 
End Sub 
Partial Private Sub OnComplaint_DetailsChanging(value As String) 
End Sub 
Partial Private Sub OnComplaint_DetailsChanged() 
End Sub 
Partial Private Sub OnStatusChanging(value As String) 
End Sub 
Partial Private Sub OnStatusChanged() 
End Sub 
Partial Private Sub OnSystem_Time_Date_StampChanging(value As System.Nullable(Of Date)) 
End Sub 
Partial Private Sub OnSystem_Time_Date_StampChanged() 
End Sub 
#End Region 

    Public Sub New() 
     MyBase.New 
     OnCreated 
    End Sub 

    <Column(Storage:="_ID", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=true, IsDbGenerated:=true)> _ 
    Public Property ID() As Integer 
     Get 
      Return Me._ID 
     End Get 
     Set 
      If ((Me._ID = value) _ 
         = false) Then 
       Me.OnIDChanging(value) 
       Me.SendPropertyChanging 
       Me._ID = value 
       Me.SendPropertyChanged("ID") 
       Me.OnIDChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_ModuleID", DbType:="Int")> _ 
    Public Property ModuleID() As System.Nullable(Of Integer) 
     Get 
      Return Me._ModuleID 
     End Get 
     Set 
      If (Me._ModuleID.Equals(value) = false) Then 
       Me.OnModuleIDChanging(value) 
       Me.SendPropertyChanging 
       Me._ModuleID = value 
       Me.SendPropertyChanged("ModuleID") 
       Me.OnModuleIDChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Member_UserName", DbType:="NVarChar(50)")> _ 
    Public Property Member_UserName() As String 
     Get 
      Return Me._Member_UserName 
     End Get 
     Set 
      If (String.Equals(Me._Member_UserName, value) = false) Then 
       Me.OnMember_UserNameChanging(value) 
       Me.SendPropertyChanging 
       Me._Member_UserName = value 
       Me.SendPropertyChanged("Member_UserName") 
       Me.OnMember_UserNameChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Reporter_Preffered_Contact", DbType:="NVarChar(50)")> _ 
    Public Property Reporter_Preffered_Contact() As String 
     Get 
      Return Me._Reporter_Preffered_Contact 
     End Get 
     Set 
      If (String.Equals(Me._Reporter_Preffered_Contact, value) = false) Then 
       Me.OnReporter_Preffered_ContactChanging(value) 
       Me.SendPropertyChanging 
       Me._Reporter_Preffered_Contact = value 
       Me.SendPropertyChanged("Reporter_Preffered_Contact") 
       Me.OnReporter_Preffered_ContactChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_FName", DbType:="NVarChar(50)")> _ 
    Public Property Target_FName() As String 
     Get 
      Return Me._Target_FName 
     End Get 
     Set 
      If (String.Equals(Me._Target_FName, value) = false) Then 
       Me.OnTarget_FNameChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_FName = value 
       Me.SendPropertyChanged("Target_FName") 
       Me.OnTarget_FNameChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_LName", DbType:="NVarChar(50)")> _ 
    Public Property Target_LName() As String 
     Get 
      Return Me._Target_LName 
     End Get 
     Set 
      If (String.Equals(Me._Target_LName, value) = false) Then 
       Me.OnTarget_LNameChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_LName = value 
       Me.SendPropertyChanged("Target_LName") 
       Me.OnTarget_LNameChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_Street_Address", DbType:="NVarChar(100)")> _ 
    Public Property Target_Street_Address() As String 
     Get 
      Return Me._Target_Street_Address 
     End Get 
     Set 
      If (String.Equals(Me._Target_Street_Address, value) = false) Then 
       Me.OnTarget_Street_AddressChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_Street_Address = value 
       Me.SendPropertyChanged("Target_Street_Address") 
       Me.OnTarget_Street_AddressChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_City", DbType:="NVarChar(50)")> _ 
    Public Property Target_City() As String 
     Get 
      Return Me._Target_City 
     End Get 
     Set 
      If (String.Equals(Me._Target_City, value) = false) Then 
       Me.OnTarget_CityChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_City = value 
       Me.SendPropertyChanged("Target_City") 
       Me.OnTarget_CityChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_State", DbType:="NVarChar(50)")> _ 
    Public Property Target_State() As String 
     Get 
      Return Me._Target_State 
     End Get 
     Set 
      If (String.Equals(Me._Target_State, value) = false) Then 
       Me.OnTarget_StateChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_State = value 
       Me.SendPropertyChanged("Target_State") 
       Me.OnTarget_StateChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Target_Zip", DbType:="NVarChar(50)")> _ 
    Public Property Target_Zip() As String 
     Get 
      Return Me._Target_Zip 
     End Get 
     Set 
      If (String.Equals(Me._Target_Zip, value) = false) Then 
       Me.OnTarget_ZipChanging(value) 
       Me.SendPropertyChanging 
       Me._Target_Zip = value 
       Me.SendPropertyChanged("Target_Zip") 
       Me.OnTarget_ZipChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Complaint_Details", DbType:="NVarChar(4000)")> _ 
    Public Property Complaint_Details() As String 
     Get 
      Return Me._Complaint_Details 
     End Get 
     Set 
      If (String.Equals(Me._Complaint_Details, value) = false) Then 
       Me.OnComplaint_DetailsChanging(value) 
       Me.SendPropertyChanging 
       Me._Complaint_Details = value 
       Me.SendPropertyChanged("Complaint_Details") 
       Me.OnComplaint_DetailsChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_Status", DbType:="NVarChar(4000)")> _ 
    Public Property Status() As String 
     Get 
      Return Me._Status 
     End Get 
     Set 
      If (String.Equals(Me._Status, value) = false) Then 
       Me.OnStatusChanging(value) 
       Me.SendPropertyChanging 
       Me._Status = value 
       Me.SendPropertyChanged("Status") 
       Me.OnStatusChanged 
      End If 
     End Set 
    End Property 

    <Column(Storage:="_System_Time_Date_Stamp", DbType:="DateTime")> _ 
    Public Property System_Time_Date_Stamp() As System.Nullable(Of Date) 
     Get 
      Return Me._System_Time_Date_Stamp 
     End Get 
     Set 
      If (Me._System_Time_Date_Stamp.Equals(value) = false) Then 
       Me.OnSystem_Time_Date_StampChanging(value) 
       Me.SendPropertyChanging 
       Me._System_Time_Date_Stamp = value 
       Me.SendPropertyChanged("System_Time_Date_Stamp") 
       Me.OnSystem_Time_Date_StampChanged 
      End If 
     End Set 
    End Property 

    Public Event PropertyChanging As PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging 

    Public Event PropertyChanged As PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged 

    Protected Overridable Sub SendPropertyChanging() 
     If ((Me.PropertyChangingEvent Is Nothing) _ 
        = false) Then 
      RaiseEvent PropertyChanging(Me, emptyChangingEventArgs) 
     End If 
    End Sub 

    Protected Overridable Sub SendPropertyChanged(ByVal propertyName As [String]) 
     If ((Me.PropertyChangedEvent Is Nothing) _ 
        = false) Then 
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName)) 
     End If 
    End Sub 
End Class 
End Namespace

)

Source

2009-10-26 Ross

Quelle erreur obtenez-vous? En passant, ** Linq ** est épelé avec un ** q ** – SLaks

"Plainte faible que la plainte" marque la deuxième plainte et dit type attendu – Ross

Avez-vous fait des progrès avec cela? –

Utilisation de "plainte" comme le NameSpace, le nom de la classe et le nom de l'objet sont une mauvaise idée et pourraient être à l'origine de votre problème. Je sais que vous pouvez nommer la variable comme la classe en C# mais je ne suis pas sûr que ce soit légal dans VB.NET, ce n'est pas quelque chose que je fais car cela peut être déroutant si vous faites référence à l'instance ou la classe.

Source

2009-11-18 18:11:03 EfficionDave

J'ai rencontré un problème similaire à celui-ci. Le code de mon application se trouvait dans un dossier situé au-dessus de mon dossier DesktopModules. Le concepteur a donc placé l'espace de noms incorrect dans mon fichier designer.vb.

Tous mes autres fichiers .vb avaient Namespace Modules.CGaming mais généré automatiquement on n'avait Namespace CGaming

Une fois que je l'ai modifié l'espace de noms sur mon fichier designer.vb, il était disponible dans le contexte .

Espérons que cela aide!

Source

2010-02-02 16:05:38 Robert

Problèmes de construction d'un module DNN en utilisant Linq to SQL

Répondre

Questions connexes