here's w i use
(keep in mind i use the data access application block for .NET, its all for
sqlserver and the collection class is a work in progress)
take your time, have a look at it (yust paste the things in vs and mind
linebreaks)
extra note the classes all work together (an fk is a class of that type) if
you have recursive relations you need to change some things.
/* SP INSERT */
/*** Drop Stored Procedure Insert tblPrijsType*/
If exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[spInserttblPrijsType]') and OBJECTPROPERTY(id,
N'IsProcedure') = 1) drop procedure [dbo].[spInserttblPrijsType]
GO
/* Stored Procedure Insert tblPrijsType*/
CREATE PROCEDURE spInserttblPrijsType
@ID bigint output,
-- FK tblEenheidType.ETID
@ptETID int,
@ptCode varchar(50),
@ptOms varchar(200),
@ptFactor float,
@ptIDat datetime,
@ptUDat datetime,
@ptVDat datetime,
@ptIUsr int,
@ptUUsr int,
@ptVUsr int
As Insert INTO tblPrijsType
(ptETID,
ptCode,
ptOms,
ptFactor,
ptIDat,
ptUDat,
ptVDat,
ptIUsr,
ptUUsr,
ptVUsr
)
VALUES
(
@ptETID,
@ptCode,
@ptOms,
@ptFactor,
@ptIDat,
@ptUDat,
@ptVDat,
@ptIUsr,
@ptUUsr,
@ptVUsr
)
SET @ID = SCOPE_IDENTITY()
GO
/* SP UPDATE */
/*** Drop Stored Procedure Update tblPrijsType*/
If exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[spUpdatetblPrijsType]') and OBJECTPROPERTY(id,
N'IsProcedure') = 1) drop procedure [dbo].[spUpdatetblPrijsType]
GO
/* Stored Procedure Update tblPrijsType*/
CREATE PROCEDURE spUpdatetblPrijsType
@PTID int,
-- FK tblEenheidType.ETID
@ptETID int,
@ptCode varchar(50),
@ptOms varchar(200),
@ptFactor float,
@ptUDat datetime,
@ptUUsr int
As UPDATE tblPrijsType SET
ptETID = @ptETID,
ptCode = @ptCode,
ptOms = @ptOms,
ptFactor = @ptFactor,
ptUDat = @ptUDat,
ptUUsr = @ptUUsr
WHERE PTID = @PTID
GO
/* SP SELECT ON ID
Returns extra output parameter exist 1 if true -1 if false */
/*** Drop Stored Procedure Select tblPrijsType*/
If exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[spSelidtblPrijsType]') and OBJECTPROPERTY(id,
N'IsProcedure') = 1) drop procedure [dbo].[spSelidtblPrijsType]
GO
/* Stored Procedure select on id tblPrijsType*/
CREATE PROCEDURE spSelidtblPrijsType
@PTID int,
@exists int OUTPUT,
-- FK tblEenheidType.ETID
@ptETID int OUTPUT,
@ptCode varchar(50) OUTPUT,
@ptOms varchar(200) OUTPUT,
@ptFactor float OUTPUT,
@ptIDat datetime OUTPUT,
@ptUDat datetime OUTPUT,
@ptVDat datetime OUTPUT,
@ptIUsr int OUTPUT,
@ptUUsr int OUTPUT,
@ptVUsr int OUTPUT
As SELECT
@exists = PTID,
@ptETID = ptETID,
@ptCode = ptCode,
@ptOms = ptOms,
@ptFactor = ptFactor,
@ptIDat = ptIDat,
@ptUDat = ptUDat,
@ptVDat = ptVDat,
@ptIUsr = ptIUsr,
@ptUUsr = ptUUsr,
@ptVUsr = ptVUsr
FROM tblPrijsType
WHERE PTID = @PTID
if @exists is NULL
begin
select @exists = -1
end
else
begin
select @exists = 1
end
RETURN
GO
/* SP UPDATEV */
/*** Drop Stored Procedure UpdateV tblPrijsType*/
If exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[spUpdateVtblPrijsType]') and OBJECTPROPERTY(id,
N'IsProcedure') = 1) drop procedure [dbo].[spUpdateVtblPrijsType]
GO
/* Stored Procedure UpdateV tblPrijsType*/
CREATE PROCEDURE spUpdateVtblPrijsType
@PTID int,
@ptVDat datetime,
@ptVUsr int
As UPDATE tblPrijsType SET
ptVDat = @ptVDat,
ptVUsr = @ptVUsr
WHERE PTID = @PTID
GO
/* SP FilterColl */
/*** Drop Stored Procedure Filter tblPrijsType*/
If exists (select * from dbo.sysobjects where id =
object_id(N'[dbo].[spFilterColltblPrijsType]') and OBJECTPROPERTY(id,
N'IsProcedure') = 1) drop procedure [dbo].[spFilterColltblPrijsType]
GO
/* Stored Procedure FilterColl tblPrijsType*/
CREATE PROCEDURE spFilterColltblPrijsType
-- FK tblEenheidType.ETID
@ptETID int,
@blnptETID bit,
@ptCode varchar(50),
@blnptCode bit,
@ptOms varchar(200),
@blnptOms bit,
@ptFactor float,
@blnptFactor bit,
@ptIDat datetime,
@blnptIDat bit,
@ptUDat datetime,
@blnptUDat bit,
@ptVDat datetime,
@blnptVDat bit,
@ptIUsr int,
@blnptIUsr bit,
@ptUUsr int,
@blnptUUsr bit,
@ptVUsr int,
@blnptVUsr bit
As SELECT *
FROM tblPrijsType
WHERE (ptETID = @ptETID OR @blnptETID = 0)
AND
(ptCode like @ptCode OR @blnptCode = 0)
AND
(ptOms like @ptOms OR @blnptOms = 0)
AND
(ptFactor = @ptFactor OR @blnptFactor = 0)
AND
(ptIDat = @ptIDat OR @blnptIDat = 0)
AND
(ptUDat = @ptUDat OR @blnptUDat = 0)
AND
(ptVDat = @ptVDat OR @blnptVDat = 0)
AND
(ptIUsr = @ptIUsr OR @blnptIUsr = 0)
AND
(ptUUsr = @ptUUsr OR @blnptUUsr = 0)
AND
(ptVUsr = @ptVUsr OR @blnptVUsr = 0)
RETURN
GO
'******************* classes *******************
'******************* With class relations *******************
'class clstblPrijsType
'Do not change this class change clsPrijsType
<Serializable()> Public Class clstblPrijsType
Private intPTID AS Integer
Private clPTETID AS clstblEenheidType
Private strptCode AS String
Private strptOms AS String
Private dblptFactor AS Double
Private datptIDat AS DateTime
Private datptUDat AS DateTime
Private datptVDat AS DateTime
Private intptIUsr AS Integer
Private intptUUsr AS Integer
Private intptVUsr AS Integer
Public sub new (OPTIONAL Byval id as Integer = 0)
intPTID = id
clPTETID = New clstblEenheidType
strptCode = ""
strptOms = ""
dblptFactor = 0
datptIDat = "24/01/1930"
datptUDat = "24/01/1930"
datptVDat = "24/01/1930"
intptIUsr = 0
intptUUsr = 0
intptVUsr = 0
End Sub
Public READONLY Property ClassName() as String
Get
Return "clstblPrijsType"
End Get
End Property
Public Property ID() as Integer
Get
Return intPTID
End Get
Set(ByVal Value As Integer)
intPTID = Value
End Set
End Property
Public Property cPTETID() as clstblEenheidType
Get
Return clPTETID
End Get
Set(ByVal Value As clstblEenheidType)
clPTETID = Value
End Set
End Property
Public Property ptCode() as String
Get
Return strptCode
End Get
Set(ByVal Value As String)
strptCode = Value
End Set
End Property
Public Property ptOms() as String
Get
Return strptOms
End Get
Set(ByVal Value As String)
strptOms = Value
End Set
End Property
Public Property ptFactor() as Double
Get
Return dblptFactor
End Get
Set(ByVal Value As Double)
dblptFactor = Value
End Set
End Property
Public Property ptIDat() as DateTime
Get
Return datptIDat
End Get
Set(ByVal Value As DateTime)
datptIDat = Value
End Set
End Property
Public Property ptUDat() as DateTime
Get
Return datptUDat
End Get
Set(ByVal Value As DateTime)
datptUDat = Value
End Set
End Property
Public Property ptVDat() as DateTime
Get
Return datptVDat
End Get
Set(ByVal Value As DateTime)
datptVDat = Value
End Set
End Property
Public Property ptIUsr() as Integer
Get
Return intptIUsr
End Get
Set(ByVal Value As Integer)
intptIUsr = Value
End Set
End Property
Public Property ptUUsr() as Integer
Get
Return intptUUsr
End Get
Set(ByVal Value As Integer)
intptUUsr = Value
End Set
End Property
Public Property ptVUsr() as Integer
Get
Return intptVUsr
End Get
Set(ByVal Value As Integer)
intptVUsr = Value
End Set
End Property
'Call insert sp
Public Function SaveNew() as Boolean
Dim arParms() as system.Data.SqlClient.SqlParameter = new
system.Data.SqlClient.SqlParameter(10) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@ID", SqlDbType.bigint)
arParms(0).Direction = ParameterDirection.Output
arParms(1) = new system.Data.SqlClient.sqlParameter("@ptETID",
SqlDbType.int)
arParms(1).Value = clPTETID.ID
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptCode",
SqlDbType.varchar, 50)
arParms(2).Value = strptCode
arParms(3) = new system.Data.SqlClient.sqlParameter("@ptOms",
SqlDbType.varchar, 200)
arParms(3).Value = strptOms
arParms(4) = new system.Data.SqlClient.sqlParameter("@ptFactor",
SqlDbType.float)
arParms(4).Value = dblptFactor
arParms(5) = new system.Data.SqlClient.sqlParameter("@ptIDat",
SqlDbType.datetime)
arParms(5).Value = datptIDat
arParms(6) = new system.Data.SqlClient.sqlParameter("@ptUDat",
SqlDbType.datetime)
arParms(6).Value = datptUDat
arParms(7) = new system.Data.SqlClient.sqlParameter("@ptVDat",
SqlDbType.datetime)
arParms(7).Value = datptVDat
arParms(8) = new system.Data.SqlClient.sqlParameter("@ptIUsr",
SqlDbType.int)
arParms(8).Value = intptIUsr
arParms(9) = new system.Data.SqlClient.sqlParameter("@ptUUsr",
SqlDbType.int)
arParms(9).Value = intptUUsr
arParms(10) = new system.Data.SqlClient.sqlParameter("@ptVUsr",
SqlDbType.int)
arParms(10).Value = intptVUsr
Try
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.StoredProcedure,
"spInserttblPrijsType", arParms)
intPTID = arParms(0).value
Return True
Catch ex as exception
MessageBox.Show("Error in clstblPrijsType.savenew " & ex.message,"error in
insert", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
'Call update sp
Public Function SaveUpdate() as Boolean
'Id can't be 0
If Not intPTID = 0 then
Dim arParms() as system.Data.SqlClient.SqlParameter = new
system.Data.SqlClient.SqlParameter(6) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@PTID", SqlDbType.int)
arParms(0).Value = intPTID
arParms(1) = new system.Data.SqlClient.sqlParameter("@ptETID",
SqlDbType.int)
arParms(1).Value = clPTETID.ID
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptCode",
SqlDbType.varchar, 50)
arParms(2).Value = strptCode
arParms(3) = new system.Data.SqlClient.sqlParameter("@ptOms",
SqlDbType.varchar, 200)
arParms(3).Value = strptOms
arParms(4) = new system.Data.SqlClient.sqlParameter("@ptFactor",
SqlDbType.float)
arParms(4).Value = dblptFactor
arParms(5) = new system.Data.SqlClient.sqlParameter("@ptUDat",
SqlDbType.datetime)
arParms(5).Value = datptUDat
arParms(6) = new system.Data.SqlClient.sqlParameter("@ptUUsr",
SqlDbType.int)
arParms(6).Value = intptUUsr
Try
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.StoredProcedure,
"spUpdatetblPrijsType", arParms)
Return True
Catch ex as exception
MessageBox.Show("Error in clstblPrijsType.saveUpdate " & ex.message,"error
in update", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End If
End Function
'Call updateV sp
Public Function SaveUpdateV() as Boolean
'Id can't be 0
If Not intPTID = 0 then
Dim arParms() as system.Data.SqlClient.SqlParameter = new
system.Data.SqlClient.SqlParameter(2) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@PTID", SqlDbType.int)
arParms(0).Value = intPTID
arParms(1) = new system.Data.SqlClient.sqlParameter("@ptVDat",
SqlDbType.datetime)
arParms(1).Value = datptVDat
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptVUsr",
SqlDbType.int)
arParms(2).Value = intptVUsr
Try
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.StoredProcedure,
"spUpdateVtblPrijsType", arParms)
Return True
Catch ex as exception
MessageBox.Show("Error in clstblPrijsType.saveUpdate " & ex.message,"error
in updateV", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End If
End Function
'call spSelIDtblPrijsType
Public Function Opzoeken(Optional zoekID as Integer = 0) as Boolean
'Id can't be 0
If Not zoekID = 0 then
intPTID = zoekID
ElseIf intPTID = 0 Then
Return False
Exit function
End If
Dim arParms() as system.Data.SqlClient.SqlParameter = new
system.Data.SqlClient.SqlParameter(11) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@PTID", SqlDbType.int)
arParms(0).Value = intPTID
arParms(1) = new system.Data.SqlClient.sqlParameter("@exists",
SqlDbType.Int)
arParms(1).Direction = ParameterDirection.Output
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptETID",
SqlDbType.int)
arParms(2).Direction = ParameterDirection.Output
arParms(3) = new system.Data.SqlClient.sqlParameter("@ptCode",
SqlDbType.varchar, 50)
arParms(3).Direction = ParameterDirection.Output
arParms(4) = new system.Data.SqlClient.sqlParameter("@ptOms",
SqlDbType.varchar, 200)
arParms(4).Direction = ParameterDirection.Output
arParms(5) = new system.Data.SqlClient.sqlParameter("@ptFactor",
SqlDbType.float)
arParms(5).Direction = ParameterDirection.Output
arParms(6) = new system.Data.SqlClient.sqlParameter("@ptIDat",
SqlDbType.datetime)
arParms(6).Direction = ParameterDirection.Output
arParms(7) = new system.Data.SqlClient.sqlParameter("@ptUDat",
SqlDbType.datetime)
arParms(7).Direction = ParameterDirection.Output
arParms(8) = new system.Data.SqlClient.sqlParameter("@ptVDat",
SqlDbType.datetime)
arParms(8).Direction = ParameterDirection.Output
arParms(9) = new system.Data.SqlClient.sqlParameter("@ptIUsr",
SqlDbType.int)
arParms(9).Direction = ParameterDirection.Output
arParms(10) = new system.Data.SqlClient.sqlParameter("@ptUUsr",
SqlDbType.int)
arParms(10).Direction = ParameterDirection.Output
arParms(11) = new system.Data.SqlClient.sqlParameter("@ptVUsr",
SqlDbType.int)
arParms(11).Direction = ParameterDirection.Output
Try
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.StoredProcedure,
"spSelIDtblPrijsType", arParms)
if arparms(1).value = 1 Then
clPTETID.ID = CInt(arParms(2).value)
clPTETID.Opzoeken()
strptCode = CStr(arParms(3).value)
strptOms = CStr(arParms(4).value)
dblptFactor = CDbl(arParms(5).value)
datptIDat = CDate(arParms(6).value)
datptUDat = CDate(arParms(7).value)
datptVDat = CDate(arParms(8).value)
intptIUsr = CInt(arParms(9).value)
intptUUsr = CInt(arParms(10).value)
intptVUsr = CInt(arParms(11).value)
Return True
Else
Return False
End If
Return True
Catch ex as exception
MessageBox.Show("Error in clstblPrijsType.Opzoeken " & ex.message,"error in
opzoek", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
'call spSelIDNoClasstblPrijsType
Public Function OpzoekenNoClass(Optional zoekID as Integer = 0) as Boolean
'Id can't be 0
If Not zoekID = 0 then
intPTID = zoekID
ElseIf intPTID = 0 Then
Return False
Exit function
End If
Dim arParms() as system.Data.SqlClient.SqlParameter = new
system.Data.SqlClient.SqlParameter(11) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@PTID", SqlDbType.int)
arParms(0).Value = intPTID
arParms(1) = new system.Data.SqlClient.sqlParameter("@exists",
SqlDbType.Int)
arParms(1).Direction = ParameterDirection.Output
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptETID",
SqlDbType.int)
arParms(2).Direction = ParameterDirection.Output
arParms(3) = new system.Data.SqlClient.sqlParameter("@ptCode",
SqlDbType.varchar, 50)
arParms(3).Direction = ParameterDirection.Output
arParms(4) = new system.Data.SqlClient.sqlParameter("@ptOms",
SqlDbType.varchar, 200)
arParms(4).Direction = ParameterDirection.Output
arParms(5) = new system.Data.SqlClient.sqlParameter("@ptFactor",
SqlDbType.float)
arParms(5).Direction = ParameterDirection.Output
arParms(6) = new system.Data.SqlClient.sqlParameter("@ptIDat",
SqlDbType.datetime)
arParms(6).Direction = ParameterDirection.Output
arParms(7) = new system.Data.SqlClient.sqlParameter("@ptUDat",
SqlDbType.datetime)
arParms(7).Direction = ParameterDirection.Output
arParms(8) = new system.Data.SqlClient.sqlParameter("@ptVDat",
SqlDbType.datetime)
arParms(8).Direction = ParameterDirection.Output
arParms(9) = new system.Data.SqlClient.sqlParameter("@ptIUsr",
SqlDbType.int)
arParms(9).Direction = ParameterDirection.Output
arParms(10) = new system.Data.SqlClient.sqlParameter("@ptUUsr",
SqlDbType.int)
arParms(10).Direction = ParameterDirection.Output
arParms(11) = new system.Data.SqlClient.sqlParameter("@ptVUsr",
SqlDbType.int)
arParms(11).Direction = ParameterDirection.Output
Try
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.StoredProcedure,
"spSelIDtblPrijsType", arParms)
if arparms(1).value = 1 Then
clPTETID.ID = CInt(arParms(2).value)
strptCode = CStr(arParms(3).value)
strptOms = CStr(arParms(4).value)
dblptFactor = CDbl(arParms(5).value)
datptIDat = CDate(arParms(6).value)
datptUDat = CDate(arParms(7).value)
datptVDat = CDate(arParms(8).value)
intptIUsr = CInt(arParms(9).value)
intptUUsr = CInt(arParms(10).value)
intptVUsr = CInt(arParms(11).value)
Return True
Else
Return False
End If
Return True
Catch ex as exception
MessageBox.Show("Error in clstblPrijsType.Opzoeken " & ex.message,"error in
opzoek", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Public sub Wis()
intPTID= 0
clPTETID = New clstblEenheidType
strptCode = ""
strptOms = ""
dblptFactor = 0
datptIDat = "24/01/1930"
datptUDat = "24/01/1930"
datptVDat = "24/01/1930"
intptIUsr = 0
intptUUsr = 0
intptVUsr = 0
End Sub
Public Function DeleteRec() as Boolean
Try
Dim strSql as string
strSql = "DELETE FROM tblPrijsType WHERE PTID = " & intPTID.ToString
SqlHelper.ExecuteNonQuery(gstrCnn, CommandType.Text, strSql)
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class
'class clsPrijsType
'Put your own stuff here
<Serializable()> Public Class clsPrijsType
Inherits clstblPrijsType
Public sub new (OPTIONAL Byval id as Integer = 0)
'call to parent constructor
MyBase.New(id)
End Sub
Public Overloads READONLY Property ClassName() as String
Get
Return "clsPrijsType"
End Get
End Property
End Class
'class clsColltblPrijsType
<Serializable()> Public Class clsColltblPrijsType
Inherits System.collections.collectionBase
Public READONLY Property ClassName() as String
Get
Return "clsColltblPrijsType"
End Get
End Property
Public Function FilterPrijsType(Optional ByVal intptETID AS Integer = 0,
Optional Byval blnintptETID AS Boolean = False, Optional ByVal strptCode AS
String = "", Optional Byval blnstrptCode AS Boolean = False, Optional ByVal
strptOms AS String = "", Optional Byval blnstrptOms AS Boolean = False,
Optional ByVal dblptFactor AS Double = 0, Optional Byval blndblptFactor AS
Boolean = False, Optional ByVal datptIDat AS String = "24/01/1930", Optional
Byval blndatptIDat AS Boolean = False, Optional ByVal datptUDat AS String =
"24/01/1930", Optional Byval blndatptUDat AS Boolean = False, Optional ByVal
datptVDat AS String = "24/01/1930", Optional Byval blndatptVDat AS Boolean =
False, Optional ByVal intptIUsr AS Integer = 0, Optional Byval blnintptIUsr
AS Boolean = False, Optional ByVal intptUUsr AS Integer = 0, Optional Byval
blnintptUUsr AS Boolean = False, Optional ByVal intptVUsr AS Integer = 0,
Optional Byval blnintptVUsr AS Boolean = False) as DataSet
Dim arParms() as SqlParameter = New SqlParameter(19) {}
arParms(0) = new system.Data.SqlClient.sqlParameter("@ptETID",
SqlDbType.int)
arParms(0).Value = intptETID
arParms(1) = new system.Data.SqlClient.sqlParameter("@blnptETID",
SqlDbType.bit)
arParms(1).Value = blnintptETID
arParms(2) = new system.Data.SqlClient.sqlParameter("@ptCode",
SqlDbType.varchar, 50)
arParms(2).Value = strptCode
arParms(3) = new system.Data.SqlClient.sqlParameter("@blnptCode",
SqlDbType.bit)
arParms(3).Value = blnstrptCode
arParms(4) = new system.Data.SqlClient.sqlParameter("@ptOms",
SqlDbType.varchar, 200)
arParms(4).Value = strptOms
arParms(5) = new system.Data.SqlClient.sqlParameter("@blnptOms",
SqlDbType.bit)
arParms(5).Value = blnstrptOms
arParms(6) = new system.Data.SqlClient.sqlParameter("@ptFactor",
SqlDbType.float)
arParms(6).Value = dblptFactor
arParms(7) = new system.Data.SqlClient.sqlParameter("@blnptFactor",
SqlDbType.bit)
arParms(7).Value = blndblptFactor
arParms(8) = new system.Data.SqlClient.sqlParameter("@ptIDat",
SqlDbType.datetime)
arParms(8).Value = datptIDat
arParms(9) = new system.Data.SqlClient.sqlParameter("@blnptIDat",
SqlDbType.bit)
arParms(9).Value = blndatptIDat
arParms(10) = new system.Data.SqlClient.sqlParameter("@ptUDat",
SqlDbType.datetime)
arParms(10).Value = datptUDat
arParms(11) = new system.Data.SqlClient.sqlParameter("@blnptUDat",
SqlDbType.bit)
arParms(11).Value = blndatptUDat
arParms(12) = new system.Data.SqlClient.sqlParameter("@ptVDat",
SqlDbType.datetime)
arParms(12).Value = datptVDat
arParms(13) = new system.Data.SqlClient.sqlParameter("@blnptVDat",
SqlDbType.bit)
arParms(13).Value = blndatptVDat
arParms(14) = new system.Data.SqlClient.sqlParameter("@ptIUsr",
SqlDbType.int)
arParms(14).Value = intptIUsr
arParms(15) = new system.Data.SqlClient.sqlParameter("@blnptIUsr",
SqlDbType.bit)
arParms(15).Value = blnintptIUsr
arParms(16) = new system.Data.SqlClient.sqlParameter("@ptUUsr",
SqlDbType.int)
arParms(16).Value = intptUUsr
arParms(17) = new system.Data.SqlClient.sqlParameter("@blnptUUsr",
SqlDbType.bit)
arParms(17).Value = blnintptUUsr
arParms(18) = new system.Data.SqlClient.sqlParameter("@ptVUsr",
SqlDbType.int)
arParms(18).Value = intptVUsr
arParms(19) = new system.Data.SqlClient.sqlParameter("@blnptVUsr",
SqlDbType.bit)
arParms(19).Value = blnintptVUsr
Return SqlHelper.ExecuteDataset(gstrCnn, CommandType.StoredProcedure,
"spFilterColltblPrijsType", arParms)
End Function
Default Public Property Item(Byval index as Integer) as clsPrijsType
Get
Return Ctype(list(index), clsPrijsType)
End Get
Set(ByVal Value As clsPrijsType)
list(index) = Value
End Set
End Property
Public Function VulCollectie(Byval dsData As Dataset) As clsColltblPrijsType
Dim zelf as New clsColltblPrijsType
Dim dr as DataRow
Dim el as New clsPrijsType
For each dr in dsData.Tables(0).rows
el = new clsPrijsType
el.ID = CInt(dr(0))
el.cptETID.ID = CInt(dr(1))
el.ptCode = CStr(dr(2))
el.ptOms = CStr(dr(3))
el.ptFactor = CDbl(dr(4))
el.ptIDat = CDate(dr(5))
el.ptUDat = CDate(dr(6))
el.ptVDat = CDate(dr(7))
el.ptIUsr = CInt(dr(8))
el.ptUUsr = CInt(dr(9))
el.ptVUsr = CInt(dr(10))
zelf.List.Add(el)
Next
Return zelf
End Function
Public Sub Insert(ByVal index as Integer, Byval value As clsPrijsType)
list.Insert(index, value)
End Sub
Public Function Insert(Byval value As clsPrijsType) As Integer
Return list.Add(value)
End Function
Public Sub Remove(Byval value As clsPrijsType)
list.Remove(value)
End Sub
Public Function Contains(Byval value As clsPrijsType) As Boolean
Return list.Contains(value)
End Function
Public Function IndexOf(Byval value As clsPrijsType) As Integer
Return list.IndexOf(value)
End Function
End Class
Ken H said:
Hi I have a question about architecting solutions...
I have a part of a project which requires me to track person details (name, addresses, etc...)
Should I be creating Person objects, Address objects etc as Business layer
classes and then have an data access layer which actually save / updates /
delete to and from the DB...
If so, and bearing in mind the 'easiest' way to pass data between the
layers would be with a dataset - should my BL classes take dataset results
from the DAL and convert into class objects ??
E.g.
BL Person - Persist method calls DAL Person - persist method (which
actually saves the data to the underlying DB).
In the BL Person should the persist method first convert its own object
into a dataset and send that to the DAL persist method...
Also...
BL Persons (collection) GetBypostcode method - calls DAL
GetPersonsByPostcode method - should the DAL method return a dataset and
then the BL method converts that into a collection of Person objects for use
by the UI layer...
