• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Creates access database on the fly. You don't need to have Access installed on your machine. Was wr

Creates access database on the fly. You don't need to have Access installed on your machine. Was wr

Creates access database on the fly. You don't need to have Access installed on your machine. Was written for amateur radio logbook program.

Rate Creates access database on the fly. You don't need to have Access installed on your machine. Was wr

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Unload Me

End Sub

Private Sub cmdOK_Click()
On Error GoTo Errad
Dim LogCount As Integer, DetCount As Integer, SchedCount As Integer, LogonCount As Integer
Dim DB As Database, Ws As Workspace
Dim LogTd As TableDef, DetailsTd As TableDef, SchedTd As TableDef, LogonTd As TableDef
Dim LogFlds(15) As Field, DetailsFlds(22) As Field, SchedFlds(8) As Field, LogonFlds(2) As Field

    Set Ws = DBEngine.Workspaces(0)
    Set DB = Ws.CreateDatabase(App.Path & "\" & TxtDbname, dbLangGeneral, dbVersion20)
    Set LogTd = DB.CreateTableDef("TblLog")
    Set DetailsTd = DB.CreateTableDef("TblDetails")
    Set SchedTd = DB.CreateTableDef("TblSched")
    Set LogonTd = DB.CreateTableDef("TblLogon")
'TblLog
        Set LogFlds(0) = LogTd.CreateField("CallId", dbLong)
            LogFlds(0).Attributes = dbAutoIncrField
        
        Set LogFlds(1) = LogTd.CreateField("Date", dbDate)
            LogFlds(1).Required = True
            'LogFlds(1).Size = 50
        
        Set LogFlds(2) = LogTd.CreateField("TimeOn", dbDate)
            LogFlds(2).Required = True
            'LogFlds(2).Size = 10
            
        Set LogFlds(3) = LogTd.CreateField("Callsign", dbText)
            LogFlds(3).Size = 12
            LogFlds(3).Required = True
            LogFlds(3).AllowZeroLength = False
            
        Set LogFlds(4) = LogTd.CreateField("Band", dbText)
            LogFlds(4).Size = 10
            LogFlds(4).Required = True
            LogFlds(4).AllowZeroLength = False
        
        Set LogFlds(5) = LogTd.CreateField("Mode", dbText)
            LogFlds(5).Size = 5
            LogFlds(5).Required = True
            LogFlds(5).AllowZeroLength = False
        
        Set LogFlds(6) = LogTd.CreateField("Power", dbText)
            LogFlds(6).Size = 10
            LogFlds(6).Required = True
            LogFlds(6).AllowZeroLength = False
        
        Set LogFlds(7) = LogTd.CreateField("HisRst", dbText)
            LogFlds(7).Size = 7
            LogFlds(7).AllowZeroLength = True
            LogFlds(7).Required = False
        
        Set LogFlds(8) = LogTd.CreateField("MyRst", dbText)
            LogFlds(8).Size = 7
            LogFlds(8).AllowZeroLength = True
            LogFlds(8).Required = False
            
        Set LogFlds(9) = LogTd.CreateField("QslSent", dbText)
            LogFlds(9).Size = 3
            LogFlds(9).AllowZeroLength = True
            LogFlds(9).Required = False
        
        Set LogFlds(10) = LogTd.CreateField("QslRcvd", dbText)
            LogFlds(10).Size = 3
            LogFlds(10).AllowZeroLength = True
            LogFlds(10).Required = False
        
        Set LogFlds(11) = LogTd.CreateField("WAB", dbText)
            LogFlds(11).Size = 10
            LogFlds(11).AllowZeroLength = True
            LogFlds(11).Required = False
        
        Set LogFlds(12) = LogTd.CreateField("IARU", dbText)
            LogFlds(12).Size = 10
            LogFlds(12).AllowZeroLength = True
            LogFlds(12).Required = False
        
        Set LogFlds(13) = LogTd.CreateField("Comments", dbMemo)
            LogFlds(13).AllowZeroLength = True
            LogFlds(13).Required = False
            
        Set LogFlds(14) = LogTd.CreateField("TimeOff", dbDate)
            'LogFlds(14).Size = 10
            LogFlds(14).Required = True
            
'TblDetails
        Set DetailsFlds(0) = DetailsTd.CreateField("Callsign", dbText)
            DetailsFlds(0).Size = 12
            DetailsFlds(0).AllowZeroLength = True
            DetailsFlds(0).Required = False
            
        Set DetailsFlds(1) = DetailsTd.CreateField("Name", dbText)
            DetailsFlds(1).Size = 25
            DetailsFlds(1).AllowZeroLength = True
            DetailsFlds(1).Required = False
            
        Set DetailsFlds(2) = DetailsTd.CreateField("Address1", dbText)
            DetailsFlds(2).Size = 25
            DetailsFlds(2).AllowZeroLength = True
            DetailsFlds(2).Required = False
            
        Set DetailsFlds(3) = DetailsTd.CreateField("Address2", dbText)
            DetailsFlds(3).Size = 25
            DetailsFlds(3).AllowZeroLength = True
            DetailsFlds(3).Required = False
            
        Set DetailsFlds(4) = DetailsTd.CreateField("Address3", dbText)
            DetailsFlds(4).Size = 25
            DetailsFlds(4).AllowZeroLength = True
            DetailsFlds(4).Required = False
            
        Set DetailsFlds(5) = DetailsTd.CreateField("Address4", dbText)
            DetailsFlds(5).Size = 25
            DetailsFlds(5).AllowZeroLength = True
            DetailsFlds(5).Required = False
            
        Set DetailsFlds(6) = DetailsTd.CreateField("Phone", dbText)
            DetailsFlds(6).Size = 20
            DetailsFlds(6).AllowZeroLength = True
            DetailsFlds(6).Required = False
            
        Set DetailsFlds(7) = DetailsTd.CreateField("Mobile", dbText)
            DetailsFlds(7).Size = 20
            DetailsFlds(7).AllowZeroLength = True
            DetailsFlds(7).Required = False
            
        Set DetailsFlds(8) = DetailsTd.CreateField("Fax", dbText)
            DetailsFlds(8).Size = 20
            DetailsFlds(8).AllowZeroLength = True
            DetailsFlds(8).Required = False
            
        Set DetailsFlds(9) = DetailsTd.CreateField("Email", dbText)
            DetailsFlds(9).Size = 50
            DetailsFlds(9).AllowZeroLength = True
            DetailsFlds(9).Required = False
            
        Set DetailsFlds(10) = DetailsTd.CreateField("Website", dbText)
            DetailsFlds(10).Size = 50
            DetailsFlds(10).AllowZeroLength = True
            DetailsFlds(10).Required = False
            
        Set DetailsFlds(11) = DetailsTd.CreateField("WrkAddress1", dbText)
            DetailsFlds(11).Size = 50
            DetailsFlds(11).AllowZeroLength = True
            DetailsFlds(11).Required = False
            
        Set DetailsFlds(12) = DetailsTd.CreateField("WrkAddress2", dbText)
            DetailsFlds(12).Size = 50
            DetailsFlds(12).AllowZeroLength = True
            DetailsFlds(12).Required = False
            
        Set DetailsFlds(13) = DetailsTd.CreateField("WrkAddress3", dbText)
            DetailsFlds(13).Size = 50
            DetailsFlds(13).AllowZeroLength = True
            DetailsFlds(13).Required = False
            
        Set DetailsFlds(14) = DetailsTd.CreateField("WrkAddress4", dbText)
            DetailsFlds(14).Size = 50
            DetailsFlds(14).AllowZeroLength = True
            DetailsFlds(14).Required = False
            
        Set DetailsFlds(15) = DetailsTd.CreateField("Position", dbText)
            DetailsFlds(15).Size = 20
            DetailsFlds(15).AllowZeroLength = True
            DetailsFlds(15).Required = False
            
        Set DetailsFlds(16) = DetailsTd.CreateField("Dept", dbText)
            DetailsFlds(16).Size = 15
            DetailsFlds(16).AllowZeroLength = True
            DetailsFlds(16).Required = False
            
        Set DetailsFlds(17) = DetailsTd.CreateField("WrkPhone", dbText)
            DetailsFlds(17).Size = 20
            DetailsFlds(17).AllowZeroLength = True
            DetailsFlds(17).Required = False
            
        Set DetailsFlds(18) = DetailsTd.CreateField("Extn", dbText)
            DetailsFlds(18).Size = 7
            DetailsFlds(18).AllowZeroLength = True
            DetailsFlds(18).Required = False
            
        Set DetailsFlds(19) = DetailsTd.CreateField("WrkFax", dbText)
            DetailsFlds(19).Size = 20
            DetailsFlds(19).AllowZeroLength = True
            DetailsFlds(19).Required = False
            
            
        Set DetailsFlds(20) = DetailsTd.CreateField("WrkEmail", dbText)
            DetailsFlds(20).Size = 50
            DetailsFlds(20).AllowZeroLength = True
            DetailsFlds(20).Required = False
            
            
        Set DetailsFlds(21) = DetailsTd.CreateField("WrkWebsite", dbText)
            DetailsFlds(21).Size = 50
            DetailsFlds(21).AllowZeroLength = True
            DetailsFlds(21).Required = False
            
'TblSched
        Set SchedFlds(0) = SchedTd.CreateField("Date", dbDate)
            SchedFlds(0).Required = True
            
        Set SchedFlds(1) = SchedTd.CreateField("Time", dbDate)
            SchedFlds(1).Required = True
            
        Set SchedFlds(2) = SchedTd.CreateField("CallSign", dbText)
            SchedFlds(2).Size = 12
            SchedFlds(2).Required = True
            
        Set SchedFlds(3) = SchedTd.CreateField("Frequency", dbText)
            SchedFlds(3).Size = 12
            SchedFlds(3).Required = False
            
        Set SchedFlds(4) = SchedTd.CreateField("Mode", dbText)
            SchedFlds(4).Size = 4
            SchedFlds(4).Required = False
            
        Set SchedFlds(5) = SchedTd.CreateField("Recurring", dbBoolean)
            SchedFlds(5).Required = False
        
            
        Set SchedFlds(6) = SchedTd.CreateField("Notes", dbMemo)
            SchedFlds(6).Required = False
            
        Set SchedFlds(7) = SchedTd.CreateField("Recurrance", dbText)
            SchedFlds(7).Required = False
            
 'TblLogon
        Set LogonFlds(0) = LogonTd.CreateField("Logon Name", dbText)
            LogonFlds(0).Required = True
            
        Set LogonFlds(1) = LogonTd.CreateField("Password", dbText)
            LogonFlds(1).Required = True
            
            
    For LogCount = 0 To 14
        LogTd.Fields.Append LogFlds(LogCount)
    Next
    
    For DetCount = 0 To 21
        DetailsTd.Fields.Append DetailsFlds(DetCount)
    Next
    
    For SchedCount = 0 To 7
        SchedTd.Fields.Append SchedFlds(SchedCount)
    Next
    
    For LogonCount = 0 To 1
        LogonTd.Fields.Append LogonFlds(LogonCount)
    Next
    
    DB.TableDefs.Append LogTd
    DB.TableDefs.Append DetailsTd
    DB.TableDefs.Append SchedTd
    DB.TableDefs.Append LogonTd
    
DB.Close