MySQL, PHP и… Microsoft Office

Листинг 2

Option Explicit 
'-- Классдескрипто    р таблицы базы данных 
  
Private sTableName As String  ' имя таблицы 
Private oFields As Collection ' коллекция полей 
Private sPrimaryKey As String ' первичный ключ 
  
Private Sub Class_Initialize() 
'-- Конструктор класса 
  sTableName = "" 
  Set oFields = Nothing 
  sPrimaryKey = "Primary_Key" 
End Sub 
  
Public Property Get Name() As String 
  Name = sTableName 
End Property 
  
Public Property Let Name(ByVal sNewValue As String) 
  sTableName = sNewValue 
End Property 
  
Public Property Get Fields() As Collection 
  Set Fields = oFields 
End Property 
  
Public Property Set Fields(ByVal oNewValue As Collection) 
  Set oFields = oNewValue 
End Property 
  
Public Property Get Key() As String 
  Key = sPrimaryKey 
End Property 
  
Public Property Let Key(ByVal sNewValue As String) 
  sPrimaryKey = sNewValue 
End Property 

возврат

Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует