update current record

[richard2007]

i need to update a record in a table with a value. i think i am kind of getting there slowly, but am stuck.

i have this code so far (adapted from steves white paper)

<%A5
dim msg as c = ""
dim tbl as p
session.v_itemid = "000000000004"


if eval_valid("cmd")

    file.from_blob("[PathAlias.ADB_Path]\photos\\" + FileToUpload.filename, FileToUpload.data)

	dta="Image =" + "[PathAlias.ADB_path]\photos\\" + FileToUpload.filename

	tbl=table.open("[PathAlias_ADB_path][COLOR="Red"]\titems.dbf","itemid="+quote(session.v_itemid)[/COLOR])
	tbl.change_begin()
	tbl.Image= dta
	tbl.change_end()
	tbl.close()

    msg = "<a href=\"/" + FileToUpload.filename + "\" target=\"_blank\">" + FileToUpload.filename + "</a> was uploaded<br /><br />"
end if
	
%>

i know the red highlighted code is wrong, but im really not sure how to do this. would appreciate any help. i have looked through the help files and this message board.

[richard2007]

Re: update current record

hi, i just want to bump this as im stuck with my project.

all i really need to do is update a record in a table from an .a5w page but i cant seem to workout how to identify the id of a particular record to update.

any help appreciated

thanks

richard

[marvinbase]

Re: update current record

A quick search in the help docs yields this- it looks like it does what you're looking for. Be sure that you set the primary index for the table before performing the fetch_find().

___________________________________________________
<TBL>.FETCH_FIND()

Syntax

Record_Number as N = <TBL>.FETCH_FIND( Matching_Expression as A )

Argument
Description

Matching_Expression
An expression used to select a record. The Matching_Expression and the table�s or set's primary index key must have the same data type. Alpha Five will automatically pad the Matching_Expression with trailing blanks if necessary so that the length of Matching_Expression matches the index key length. If the table�s or set's primary index is record number order, then Matching_Expression is the record number that you want to find.


Description

The <TBL>.FETCH_FIND() method retrieves the first record in the table or set referenced by <TBL> with a primary index key equal to the Matching_Expression parameter.

If <TBL>.FETCH_FIND()is successful, the found record is retrieved and its Record_Number is returned. If no exact match is found, a negative number corresponding to the record number of the closest matching record is returned.

Supported By

Alpha Five Version 5 and Above

Example

This script is on a button on a form for a set in which the inv_item table is a child table. The script opens the product table. It then finds the record that matches product_id in the inv_item table, and assigns the value from the qty_stock field in product to the on_hand variable.

dim tbl_product as P

dim indx_1 as P

tbl_product = table.open("c:\data\product.dbf")

indx_1 = tbl_product.index_primary_put("id_index")

rec = tbl_product.fetch_find(inv_item->product_id)

if (rec > 0) then

    on_hand = tbl_product.qty_stock

else

    ui_msg_box("Record not found", "The closest match is record number " + abs(rec)")

end if

tbl_product.close()

[richard2007]

Re: update current record

i managed to get this done with help from tommy thompson

tbl = table.open("[PathAlias.ADB_Path]\titems.dbf")
query.description = ""
query.order = ""
query.filter = "itemID='"+ session.v_itemid + "'"   
query.options = ""
qry = tbl.query_create()
cnt = qry.records_get()
tbl.fetch_first()
while cnt <> 0
c= c+1
If c = 1 then
    tbl.fetch_first()
else
tbl.fetch_next()
end if
tbl.change_begin()
tbl.Image = dta
tbl.change_end()
cnt = cnt -1
end while
tbl.close()

thnaks for your help