Automatic Data Entry

[Kim Kohen]

G'day Ruslan

> Well. Show on list your example of RB + mySQL
> Few lines of code.
€€€€
OK, display cursor in listbox without binding:

      TextWindow.ListBox2.deleteAllRows
      While not rs.eof
        TextWindow.ListBox2.addrow("")
        For i = 1 to rs.fieldcount
          TextWindow.ListBox2.cell(TextWindow.ListBox2.lastIndex,i
-1)=rs.IdxField(i).StringValue
        next
        rs.MoveNext
      wend

Also, a basic query using primary key - I don't understand how to directly
query the RecID when it's a 'hidden' field.

  if mydb.connect() then
  s = "select ID, story_name, heading, sub_heading, caption, body,
story_writer, section, publication, depth, page, comment from stories where
ID='"+str(storyID)+"'"

 there's others but these come to mind immediately.

Cheers

Kim




Kim Kohen
Group Pre-Press and Systems Manager
Torch Publishing Company P/L
47 Allingham St
Condell Park  NSW  2200
Australia
612 9795 0000
http://www.torchpublishing.com.au