Subject Re: field type binary not working on my form
From Mervyn Bick <invalid@invalid.invalid>
Date Mon, 18 Sep 2023 09:55:43 +0200
Newsgroups dbase.getting-started
Attachment(s) seek_fish.wfm

On 2023/09/17 20:10, Ken Mayer wrote:

>> I didn't think about it at the time.  I have, however, tried it now
>> and I'm afraid it doesn't work. :-(
 >
> Huh. I am in the middle of several things, but need to look. It's worked
> for me for a lot of things, but I don't tend to store images in the
> table ...
To save you some time, a copy of Agostinho's form is attached.


Mervyn.



if not file('fish4.dbf')
   copy table :dbasesamples:fish to fish4
endif
** END HEADER -- do not remove this line
//
// Generated on 2023-09-17
//
parameter bModal
local f
f = new SEEK_FISHForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class SEEK_FISHForm of FORM
   with (this)
      height = 16.0
      left = 50.1429
      top = -0.2273
      width = 55.2857
      text = ""
   endwith

   this.FISH41 = new QUERY(this)
   with (this.FISH41)
      left = 25.0
      top = 4.0
      width = 4.0
      height = 1.0
      sql = 'select * from "FISH4.dbf" where lower(name)  like lower(:ag)'
      params["ag"] = "%"
      active = true
   endwith

   this.GRID1 = new GRID(this)
   with (this.GRID1)
      dataLink = form.fish41.rowset
      height = 6.16
      left = 2.3333
      top = 5.72
      width = 50.5556
   endwith

   this.ENTRYFIELD1 = new ENTRYFIELD(this)
   with (this.ENTRYFIELD1)
      onKey = class::ENTRYFIELD1_ONKEY
      height = 1.76
      left = 24.1111
      top = 12.76
      width = 24.1111
      value = ""
   endwith

   this.IMAGE1 = new IMAGE(this)
   with (this.IMAGE1)
      height = 3.96
      left = 4.6667
      top = 0.44
      width = 17.1111
      dataSource = form.fish41.rowset.fields["fish image"]
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.76
      left = 0.7778
      top = 12.76
      width = 18.6667
      text = "Search Fish By Name"
   endwith

   this.rowset = this.fish41.rowset

   function ENTRYFIELD1_onKey(nChar, nPosition,bShift,bControl)
      form.fish41.params['ag'] = '%'+this.value+'%'
      try
         form.fish41.requery()
      catch(exception e)
         form.fish41.requery()
      endtry
//      form.fish41.rowset.refreshControls()
      form.image1.dataSource = form.fish41.rowset.fields["fish image"]
      return

endclass