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 DATABASESPECIFY 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:
|
- 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 DATABASESPECIFY 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:
Protect and Serve (1999)
OT: Please set your computer's clock (1997)
creative use of webcatalog (1998)
Help! WebCat2 bug (1997)
What am I doing wrong? (2000)
Need relative path explanation (1997)
Can I invoke an ssi plugin from within a webcat page (1997)
format and math on the fly (1998)
File Upload (1997)
Re:no [search] with NT (1997)
Domain name & WebDNA 5.0 (2003)
Cart Question (1998)
How to show via drop down menu? (2000)
Frames and WebCat (1997)
Some Questions (1997)
U&P IIS concept (1998)
OT: Need (a tiny bit) of help setting up MySQL (2000)
PGP encrypted email (1998)
PhotoMill -> PhotoMaster (1997)
File not found error message (1998)