I have 2 record sets I wish to save at the same time, how do I combine them into one
1st set
[quote] Dim dr as new DatabaseRecord
dim rs as recordset = karter.SQLSelect("select * from myclubs where PK = "+ str(myclubspk))
rs.Edit
rs.field(“club”).StringValue = trim(txtclub.text)
rs.field(“website”).StringValue = trim(txtwebsite.text)
rs.field(“phone”).StringValue = trim(txtphone.text)
rs.field(“email”).StringValue = trim(txtemail.text)
rs.field(“contact”) .StringValue= trim(txtcontact.text)
rs.field(“president”).StringValue = trim(txtpresident.text)
rs.field(“member”).StringValue = trim(txtmember.text)
rs.field(“friendly”).StringValue = trim(txtfriendly.text)
rs.field(“address”).StringValue = trim(txtaddress.text)
rs.field(“track”).StringValue = trim(txttrack.text)
rs.field(“pit”).StringValue = trim(txtpit.text)
rs.field(“canteen”).StringValue = trim(txtcanteen.text)
rs.field(“other”).StringValue = trim(txtother.text)
rs.field(“trackcond”).StringValue = trim(txttrackcond.text)
rs.field(“shared”).StringValue = trim(txtshared.text)
rs.field(“showers”).StringValue = trim(txtshowers.text)
rs.field(“practice”).StringValue = trim(txtpractice.text)
rs.field(“covered”).StringValue = trim(txtcovered.text)
rs.field(“available”).StringValue = trim(txtavailable.text)
rs.field(“comments”).StringValue = trim(txtcomments.text)
rs.field(“photo”).StringValue = pictureToString( imagewell1.image )
rs.update
karter.commit
msgbox"Record has been Updated"[/quote]
2nd set
[quote] Dim dr as new DatabaseRecord
dim rs as recordset = karter.SQLSelect("select * from mydriver where PK = "+ str(mydriverpk))
rs.Edit
rs.field(“name”).StringValue = trim(txtname.text)
rs.field(“licenseno”).StringValue = trim(txtlicenseno.text)
rs.field(“licenseex”).StringValue = trim(txtlicenseex.text)
rs.field(“transno”).StringValue = trim(txttransno.text)
rs.field(“raceno”) .StringValue= trim(txtraceno.text)
rs.field(“classes”).StringValue = trim(txtclasses.text)
rs.field(“raceteam”).StringValue = trim(txtraceteam.text)
rs.field(“sponsors”).StringValue = trim(txtsponsors.text)
rs.field(“club”).StringValue = trim(txtclub.text)
rs.field(“clubmemno”).StringValue = trim(txtclubmemno.text)
rs.field(“clubwebsite”).StringValue = trim(txtclubwebsite.text)
rs.field(“clubhometrack”).StringValue = trim(txtclubhometrack.text)
rs.field(“clubemail”).StringValue = trim(txtclubemail.text)
rs.field(“clubcontact”).StringValue = trim(txtclubcontact.text)
rs.field(“clubmailing”).StringValue = trim(txtclubmailing.text)
rs.field(“comments”).StringValue = trim(txtcomments.text)
rs.update
'end
karter.commit
msgbox"Record has been Updated"[/quote]
Can they be combined into one or do they need to be saved seperately.
Thanks Shane.