declare @field table (fieldname varchar(50), fieldtype varchar(50))
declare @table_name varchar(50)
set @table_name = 'TargetTable'  -- this is the table name

insert into @field
Select sc.name, st.name
from 
	sysobjects so, 
	syscolumns sc,
	systypes st
where 
	so.id = sc.id 
	and so.xtype = 'U'
	and so.name = @table_name
	and st.xtype = sc.xtype

print 'Public Class ' + @table_name

declare @fieldname varchar(50)
declare @fieldtype varchar(50)
declare @constructor varchar(500)
declare @assign varchar(500)

declare cur cursor for
select fieldname, fieldtype
from @field

open cur

fetch next from cur
into @fieldname, @fieldtype

set @constructor = ''
set @assign = ''

while @@fetch_status = 0
begin
	set @fieldtype = case @fieldtype
			when 'int' then 'Int32'
			when 'tinyint' then 'Int32'
			when 'varchar' then 'String'
			when 'bit' then 'Boolean'
			when 'float' then 'Double'
			when 'datetime' then 'Datetime'
			else @fieldtype
		end

	set @constructor = @constructor + 'ByVal v' + @fieldname + ' AS ' + @fieldtype + ', '
	set @assign = @assign + '_' + @fieldname + ' = v' + @fieldname + ' : '

	print ''
	print 'Private _' + @fieldname + ' AS ' + @fieldtype
	print 'Public Property ' + @fieldname + '() AS ' + @fieldtype
	print '   Get'
	print '     return _' + @fieldname
	print '   End Get'
	print '   Set (value AS ' + @fieldtype + ')'
	print '     _' + @fieldname + ' = value'
	print '   End Set'
	print 'End Property'
	print ''

	fetch next from cur
	into @fieldname, @fieldtype
end

print 'Public Sub New(' + substring(@constructor, 0, len(@constructor)) + ')'
print '   ' + substring(@assign, 0, len(@assign) -1)
print 'End Sub'

print 'End Class'

create proc spVB_Make_Class as
--from Lambert Antonio, 26-jun-2008

Set NoCount ON

declare @field table (id int identity primary key clustered, fieldname varchar(50), fieldtype varchar(50))
declare @table_name varchar(50)
set @table_name = 'TargetTable'  -- this is the table name

insert into @field
 Select sc.name
  , case st.name
            when 'int' then 'Int32'
            when 'tinyint' then 'Int32'
            when 'varchar' then 'String'
            when 'bit' then 'Boolean'
            when 'float' then 'Double'
            when 'datetime' then 'Datetime'
            else st.name
        end As [name]
  from 
        sysobjects so, 
        syscolumns sc,
        systypes st
  where 
        so.id = sc.id 
        and so.xtype = 'U'
        and so.name = @table_name
        and st.xtype = sc.xtype

declare @VB table (id int identity primary key clustered, Line varchar(8000))
declare @constructor table (id int identity(1000000,1) primary key clustered, Line varchar(8000))
declare @assign table (id int identity(1000000,1) primary key clustered, Line varchar(8000))

Insert into @VB(Line) Select 'Public Class ' + @table_name

Insert into @VB(Line)
 Select '
	Private _' + fieldname + ' AS ' + fieldtype + '
	Public Property ' + fieldname + '() AS ' + fieldtype + '
	   Get
		 return _' + fieldname + '
	   End Get
	   Set (value AS ' + fieldtype + ')
		 _' + fieldname + ' = value
	   End Set
	End Property
'
 From @field
 Order By ID


Insert into @constructor(Line)
 Select 'ByVal v' + fieldname + ' AS ' + fieldtype + ', '
  From @field
  Order By ID

Insert into @assign(Line)
 Select '_' + fieldname + ' = v' + fieldname
  From @field
  Order By ID


Insert into @VB(Line) Select '	Public Sub New(' 
Insert into @VB(Line) Select '			' + Line From @constructor Order By ID
Insert into @VB(Line) Select '			)'
Insert into @VB(Line) Select '		' + Line From @assign Order By ID
Insert into @VB(Line) Select '
	End Sub

End Class'

Select Line From @VB Order By ID

create proc spCSharpe_Make_Class as
--from Lambert Antonio, 26-jun-2008 
--converted to C# David Kelly, 06/27/2008

Set NoCount ON

declare @field table (id int identity primary key clustered, fieldname varchar(50), fieldtype varchar(50))
declare @table_name varchar(50)
set @table_name = 'JBMTest'  -- this is the table name

insert into @field
 Select sc.name
  , case st.name
            --when 'int' then 'Int32'
	when 'money' then 'double'
            when 'tinyint' then 'int'
            when 'varchar' then 'string'
            when 'bit' then 'bool'
            when 'float' then 'double'
            when 'datetime' then 'DateTime'
            else st.name
        end As [name]
  from 
        sysobjects so, 
        syscolumns sc,
        systypes st
  where 
        so.id = sc.id 
        and so.xtype = 'U'
        and so.name = @table_name
        and st.xtype = sc.xtype

declare @CSharpe table (id int identity primary key clustered, Line varchar(8000))
declare @constructor table (id int identity(1000000,1) primary key clustered, Line varchar(8000))
declare @assign table (id int identity(1000000,1) primary key clustered, Line varchar(8000))

Insert into @CSharpe(Line) Select 'using System'
Insert into @CSharpe(Line) Select 'using System.Collections.Generic'
Insert into @CSharpe(Line) Select 'using System.Text';
Insert into @CSharpe(Line) Select ''; -- blank line

Insert into @CSharpe(Line) Select 'namespace MCL' -- Namespace

Insert into @CSharpe(Line) Select '{' -- Namespace 
Insert into @CSharpe(Line) Select '     class ' + @table_name -- Class definition
Insert into @CSharpe(Line) Select '    {' -- Class
Insert into @CSharpe(Line)
 Select '
        private ' + fieldtype + ' m_' +fieldtype + fieldname + ';
        public ' + fieldtype + ' prop'+ fieldname + '
		{
			get { return m_' + fieldname + '; } 
			set {
					m_' +fieldtype+ fieldname + ' = value;
				}
		}
		'
 From @field
 Order By ID


Insert into @constructor(Line)
 Select 'ByVal v' + fieldname + ' AS ' + fieldtype + ', '
  From @field
  Order By ID

Insert into @assign(Line)
 Select '_' + fieldname + ' = v' + fieldname
  From @field
  Order By ID


Insert into @CSharpe(Line) Select '        public '+ @table_name+'()' 
Insert into @CSharpe(Line) Select '        {' 
Insert into @CSharpe(Line) Select '        }'

Insert into @CSharpe(Line) Select '     } // do not go below this line'  -- End Class'

Insert into @CSharpe(Line) Select '}' -- End namespace
Select Line From @CSharpe Order By ID