Example for adding an autonumber field to a database

This WebDNA talk-list message is from

2006


It keeps the original formatting.
numero = 63847
interpreted = N
texte = I wrote a simple fix for some databases I had that needed a SKU or ID field that is autonumbered. First I fixed the code where I appended records to include autonumbering, then I ran code below to add the field and autonumber it. I'm posting the code because it might help someone else. If there's a better way, please let me know. Thanks, Bill [!] ADD AN AUTONUMBERED FIELD TO A DATABASE SPECIFY THE DATABASE and THE INCREMENTFIELD [/!] [!]MAKE THE NEW.DB WITH NEW AND OLD FIELDS USING TABS[/!] [!]START SPECIFY THESE[/!] [text]olddb=DATABASE.db[/text] [text]incrementfield=SKU[/text] [!]END SPECIFY THESE[/!] [text]newdb=new_[olddb][/text][!]MAKE SURE THIS IS NOT AN EXISTING DATABASE[/!] [!]VALIDATION[/!] [if "[fileinfo file=[olddb]][exists][/fileinfo]"!"T"] [then] [text]errordetected=MISSING DATABASE[/text] [/then] [else] [listfields db=[olddb]] [showif [fieldname]=[incrementfield]] [text]errordetected=FIELD USED[/text] [/showif] [/listfields] [/else] [/if] [if "[errordetected]"="[raw][errordetected][/raw]"] [then] [writefile file=[newdb]][incrementfield][listfields db=[olddb]] [fieldname][/listfields] [/writefile] [!]COPY OLD RECORDS TO NEW.DB[/!] [search db=[olddb][listfields db=[olddb]]&ne[fieldname]datarq= [findall][/listfields]] [founditems] [append db=[newdb]&autonumber=[incrementfield]][listfields db= [olddb]]&[fieldname]=[interpret][[fieldname]][/interpret][/listfields] [/append] [/founditems] [/search] [!]ARCHIVE OLD AND SWAP IN NEW FILE[/!] [text]dbarchivefolder=dbarchive/[/text] [showif [fileinfo file=[dbarchive]][exists][/fileinfo]!T] [createfolder path=[dbarchivefolder]] [/showif] [exclusivelock db=[olddb]&db=[newdb]] [closedatabase db=[olddb]] [closedatabase db=[newdb]] [movefile from=[olddb]&to=[dbarchivefolder][olddb]_[math]{[date]}[/ math]_[math]{[time]}[/math]] [movefile from=[newdb]&to=[olddb]] [/exclusivelock]

[olddb] has been updated

[/then] [else]

[errordetected]

[/else] [/if] ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/ Associated Messages, from the most recent to the oldest:

    
  1. Example for adding an autonumber field to a database ( William DeVaul 2006)
I wrote a simple fix for some databases I had that needed a SKU or ID field that is autonumbered. First I fixed the code where I appended records to include autonumbering, then I ran code below to add the field and autonumber it. I'm posting the code because it might help someone else. If there's a better way, please let me know. Thanks, Bill [!] ADD AN AUTONUMBERED FIELD TO A DATABASE SPECIFY THE DATABASE and THE INCREMENTFIELD [/!] [!]MAKE THE NEW.DB WITH NEW AND OLD FIELDS USING TABS[/!] [!]START SPECIFY THESE[/!] [text]olddb=DATABASE.db[/text] [text]incrementfield=SKU[/text] [!]END SPECIFY THESE[/!] [text]newdb=new_[olddb][/text][!]MAKE SURE THIS IS NOT AN EXISTING DATABASE[/!] [!]VALIDATION[/!] [if "[fileinfo file=[olddb]][exists][/fileinfo]"!"T"] [then] [text]errordetected=MISSING DATABASE[/text] [/then] [else] [listfields db=[olddb]] [showif [fieldname]=[incrementfield]] [text]errordetected=FIELD USED[/text] [/showif] [/listfields] [/else] [/if] [if "[errordetected]"="[raw][errordetected][/raw]"] [then] [writefile file=[newdb]][incrementfield][listfields db=[olddb]] [fieldname][/listfields] [/writefile] [!]COPY OLD RECORDS TO NEW.DB[/!] [search db=[olddb][listfields db=[olddb]]&ne[fieldname]datarq= [findall][/listfields]] [founditems] [append db=[newdb]&autonumber=[incrementfield]][listfields db= [olddb]]&[fieldname]=[interpret][[fieldname]][/interpret][/listfields] [/append] [/founditems] [/search] [!]ARCHIVE OLD AND SWAP IN NEW FILE[/!] [text]dbarchivefolder=dbarchive/[/text] [showif [fileinfo file=[dbarchive]][exists][/fileinfo]!T] [createfolder path=[dbarchivefolder]] [/showif] [exclusivelock db=[olddb]&db=[newdb]] [closedatabase db=[olddb]] [closedatabase db=[newdb]] [movefile from=[olddb]&to=[dbarchivefolder][olddb]_[math]{[date]}[/ math]_[math]{[time]}[/math]] [movefile from=[newdb]&to=[olddb]] [/exclusivelock]

[olddb] has been updated

[/then] [else]

[errordetected]

[/else] [/if] ------------------------------------------------------------- This message is sent to you because you are subscribed to the mailing list . To unsubscribe, E-mail to: To switch to the DIGEST mode, E-mail to Web Archive of this list is at: http://webdna.smithmicro.com/ William DeVaul

DOWNLOAD WEBDNA NOW!

Top Articles:

Talk List

The WebDNA community talk-list is the best place to get some help: several hundred extremely proficient programmers with an excellent knowledge of WebDNA and an excellent spirit will deliver all the tips and tricks you can imagine...

Related Readings:

sorting and summarizing (1998) lineitems are gone (1998) Re:no [search] with NT (1997) Netscape v. IE (1997) Adding up line items. (2000) RAM variables (1997) Color options - modified (1999) Template Security error (1997) WebCat2b12 - nesting [tags] (1997) [OT] HTML Table Cell Problem (2003) WebDNA + SQL Server (2003) WebCat (or other) Indexing (1999) tcpconnect/tcpsend problem ... (2004) Opinion: [input] should be called [output] ... (1997) sort problems....bug or brain fart? (1997) WebCat2b12 CGI Mac -- Problems propagating the cart through frames...still (1997) 6.1 Patch - Form Data Back Button Issue (2006) MultiGroupChecker (2000) No Wanna Duppys (1998) Append again (1999)