home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD141651252001.psc / modCreateDatabase.bas < prev   
Encoding:
BASIC Source File  |  2001-01-25  |  2.4 KB  |  79 lines
  1. Attribute VB_Name = "modCreateDatabase"
  2. Option Explicit
  3. 'Included as Project References
  4. 'Microsoft Scripting Runtime
  5. 'Microsoft ADO Ext. for DDL and Security
  6. 'Microsoft ActiveX Data Object 2.x Library
  7. 'Microsoft DataBinding collection
  8.  
  9. 'Original codes by Legrev3@aol.com
  10. 'ADOX database creation, ADO databinding, Disconnected Recordsets demo
  11. 'Submitted for downloading Jan. 24, 2001
  12.  
  13. Public Type UserDefRec
  14.     strContactName As String
  15.     strCompany As String
  16.     strAddressLine1 As String
  17.     strCity As String
  18.     strState As String
  19.     strZipCode As String
  20. End Type
  21.  
  22. Public Contacts As ADOX.Catalog
  23. Public strFilespec As String
  24. Public strConn As String
  25.  
  26. 'If not exist create Access2000 database file Contacts.mdb
  27. Public Sub CreateDataFile()
  28.     Set Contacts = New ADOX.Catalog
  29.     Contacts.Create strConn
  30. End Sub
  31.  
  32. 'Create MailList table
  33. Public Sub CreateMailListTable()
  34.  
  35.     Dim tbl As ADOX.Table
  36.     Dim key As ADOX.key
  37.         
  38.     Set tbl = New ADOX.Table
  39. 'TableName.Columns.Append "ColumnName" is an ADOX
  40. 'method of creating columns of a table
  41.     With tbl
  42.         Set .ParentCatalog = Contacts
  43.         .Name = "MailList"
  44.         .Columns.Append "ContactName", adVarWChar, 70
  45.         .Columns.Append "CompanyName", adVarWChar, 70
  46.         .Columns("CompanyName").Attributes = adColNullable
  47.         .Columns.Append "AddressLine1", adVarWChar, 70
  48.         .Columns("AddressLine1").Attributes = adColNullable
  49.         .Columns.Append "City", adVarWChar, 70
  50.         .Columns("City").Attributes = adColNullable
  51.         .Columns.Append "State", adVarWChar, 30
  52.         .Columns("State").Attributes = adColNullable
  53.         .Columns.Append "ZipCode", adVarWChar, 30
  54.         .Columns("ZipCode").Attributes = adColNullable
  55. 'for demo purposes use ContactName as key. ContactId is usual
  56.         .Keys.Append "PrimaryKey", adKeyPrimary, "ContactName"
  57.     End With
  58. 'add table to database .mdb file
  59.     Contacts.Tables.Append tbl
  60. End Sub
  61.  
  62. 'determine database file exists in App.Path & "\Data\"
  63. 'returns True if database exists
  64. Public Function DatabaseExist() As Boolean
  65.     Dim fso As FileSystemObject
  66.     Dim fldr As String
  67.     
  68.     Set fso = CreateObject("Scripting.FileSystemObject")
  69.     
  70. 'check if folder \Data exists, if not, then create
  71.     fldr = App.Path & "\Data"
  72.     If Not (fso.FolderExists(fldr)) Then
  73.         fso.CreateFolder (fldr)
  74.     End If
  75.     
  76.     DatabaseExist = fso.FileExists(strFilespec)
  77. End Function
  78.  
  79.