version 6.01 0 Form1 1 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 238 268 1 SQLDesktop.dll 1 SQLDevice.dll 3 cmd:Command con:Connection read:DataReader Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,Button2,155,195,75,23,"Read",212,208,200,0,0,0,True,True,9)@ addbutton(form1,Button1,70,195,75,23,"Write",212,208,200,0,0,0,True,True,9)@ addtable(form1,tbl,10,10,220,170,"",245,245,245,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. xCommand = "" xVal = true End Sub Sub App_Start Con.New1 Read.New1 Cmd.New1("",Con.Value) Form1.Show End Sub Sub Button1_Click Con.Open("Data Source = " & AppPath & "\TestBool.db3") xCommand="CREATE TABLE test_1 (m_id INTEGER, m_bool BOOLEAN)" Cmd.CommandText = xCommand Cmd.ExecuteNonQuery For k = 1 To 10 If k/2 = Int(k/2) Then xVal = true Else xVal = false End If '--show only True value If xVal Then Msgbox(k & " - " & xVal) End If '--Should write True/False xCommand="INSERT INTO test_1 VALUES (" & SurrItem(k) & SurrLast(xVal) &")" Cmd.CommandText = xCommand Cmd.ExecuteNonQuery Next k Con.Close End Sub Sub Button2_Click Con.Open("Data Source = " & AppPath & "\TestBool.db3") xCommand="SELECT * FROM test_1" Cmd.CommandText = xCommand Cmd.ExecuteTable("tbl",0) Con.Close End Sub Sub SurrItem(parm) Return "'" & parm & "', " End Sub Sub SurrLast(parm) Return "'" & parm & "'" End Sub