Hi how would I go about combining these 2 tables to save them in one go, I have shortened the tables just to save space.
[quote] dim dr as New DatabaseRecord
dim rs as RecordSet
if golfer <> nil then
rs = golfer.SQLSelect("select * from course where PK = "+ str(coursepk))
end if
dr.column(“club”) = trim(club.text)
dr.column(“clubaddress”) = trim(clubaddress.text)
app.golfer.InsertRecord “course”, dr
app.golfer.commit
[/quote]
and the second table is
[code] dim dr as New DatabaseRecord
dim rs as RecordSet
if golfer <> nil then
rs = golfer.SQLSelect("select * from mens where PK = "+ str(menspk))
end if
dr.column(“mens1”) = trim(mens1.text)
dr.column(“mens2”) = trim(mens2.text)
app.golfer.InsertRecord “mens”, dr
app.golfer.commit
[/code]
Thanks Shane