این کد ها در لایه BLL وجود دارند
Private _tbl_1 As Tbl_PostTAdapter = Nothing
Protected ReadOnly Property Adpter_test() As Tbl_1TAdapter
Get
If _tbl_1 Is Nothing Then
_tbl_1 = New Tbl_1TAdapter()
End If
Return _tbl_1
End Get
End Property
<System.ComponentModel.DataObjectMethodAttribute(S ystem.ComponentModel.DataObjectMethodType.Insert, False)> _
Public Function AddTest(ByVal CID As Long, ByVal Mem As String, ByVal title As String, _
ByVal Des As String, ByVal Text As String, _
ByVal ImgUrl As String, ByVal DateAdd As String, ByVal Active As Boolean) As Integer
Return Adpter_test.AddPost(CID, Mem, title, Des, Text, ImgUrl, DateAdd, Active))
End Function