option explicit
sub booleans()
dim db as dao.database
dim mdb_file_name as string
mdb_file_name = "c:\temp\booleans.mdb"
kill_file_if_exists(mdb_file_name)
set db = dao.createDatabase(mdb_file_name, dbLangGeneral, 0)
dim table_field as dao.field
dim table_def as dao.tableDef
set table_def = db.createTableDef("table_with_booleans")
set table_field = table_def.createField("txt", dbText, 42)
table_def.Fields.append table_field
' set table_field = table_def.createField("upd", dbText, 42)
' table_def.Fields.append table_field
set table_field = table_def.createField("bl" , dbBoolean)
table_def.Fields.append table_field
db.tableDefs.append table_def
dim rs as dao.recordSet
set rs = db.openRecordSet("table_with_booleans", dbOpentable)
rs.addNew
rs("txt") = "true"
rs("bl" ) = true
rs.update
rs.addNew
rs("txt") = "false"
rs("bl" ) = false
rs.update
db.execute("insert into table_with_booleans (txt, bl) values ('inserted: true' , true )")
db.execute("insert into table_with_booleans (txt, bl) values ('inserted: false', false)")
set rs = nothing
set db = nothing
end sub
private sub kill_file_if_exists(file_name as string)
dim fso as fileSystemObject
set fso = new fileSystemObject
if fso.fileExists(file_name) then
fso.deletefile(file_name)
end if
end sub