database - MS Access: programmatically rename columns -


I need to update all column names in the access database of 8 tables. In short, each underscore in column name Should be replaced with the location. Can you recommend a quick way to do this?

I wrote the code for an app last week: 

 < code> public sub RenameFields (TDF DAO.TableDef as ByRef) dim fld DAO.Field dim strFieldName string dim strNewName string "========== as as as DebugkPrint === ================================= "& amp; VbCrLf & amp; UCase (tdf.Name) select FLD tdf.Fields strFieldName = fld.Name strNewName = Middle (strFieldName, 4) for each episode Left (strFieldName, 3) episode "Boo", "here", "CUR" " Dat "," Haif "," Int "," Mem "," Oz "," TCTT "FDL. Name = StrNeweweb debug.print TDF. No & amp; "." & Amp; StrFieldName & amp; "= & Gt;" & Amp; Select strNewName End Next fld set FLD = Nothing End Sub

In this case, it was used to name a previous developer absurdly VBA variable naming conventions Field (txtLastName what final names, for example, should be) and I had all of them need to remove the code for this is called like: 

  dim TDF each TDF in DAO.TableDef as CurrentDB.TableDefs Then left (tdf.Name, 3) = "tbl" then say '& lt; = This line can vary for you. RenameFields (tdf) is done if you set the next tdf tdf = nothing

You can easily rename () for RenameFields () sub, the new name to use something like this: 

  public sub RenameFields (TDF DAO.TableDef as ByRef) dim fld DAO.Field dim strFieldName string dim strNewName As String Debug.Print As "========== ========================== ========== "& amp; VbCrLf & amp; In UCase (tdf.Name) for each Feldi tdf.Fields strFieldName = fld.Name strNewName = Change (strFieldName, "_", "") If strFieldName & lt; & Gt; StrNew name then debug fld.Name = strNewName. Print tdf.Name & amp; "." & Amp; StrFieldName & amp; "= & Gt;" & Amp; StrNewName end if the next fld set fld = nothing end sub

all said, I really, really strongly suggest that you not with spaces Because of the underscore, because it creates more, it is much more difficult to work with field names in SQL and code. I would use a black case with no underscore or location or dash, so that the line above has changed (): 

  strNewName = change (StrConv (change (strFieldName, "_ "," "," Last name "or" last name "will be changed to" last name "," vbProper "," ", vbNullString)

field names Camel cases for readability are standard for access developers as long as I'm programming in Access (since 1996), and special characters or Rick The location is touted to be causing issues (ie, the square brackets).


Comments

Post a Comment

Popular posts from this blog

sql - dynamically varied number of conditions in the 'where' statement using LINQ -

I am using my first project LINQ (in mvc), so maybe there's something very simple that I remember. However, a day of searching and experimenting does not work, so it works. I am trying to write a LINQ query (Linux to SQL) in which in many cases where the statement is different from an OR or an AND. We do not know how many conditions are going in the query till runtime. This search is for filter control, where the user can choose multiple criteria for filtering. Select from table where table.col = 1 or table.col = 2 or table.col = 7 .... 'Other number of conditions Before I just create the SQL query as a string, while looping over all the situations. However, it seems that there should be a good way to do this in LINQ. I tried to use Expression trees, but they had a second thought for this moment on my head, where the lambda function was to be executed inside the statement such as: values ​​for matchingRows = matchingRows for each value Where (function (row) row.c...
Read more

asp.net mvc - Dynamically Generated Ajax.BeginForm -

I have a problem with ASP.NET MVC Ajax forms. I generate many Ajax form in a table such as: & Lt; Input type = "submit" name = "activity" value = "add activity" / & gt; & Lt;%}% & gt; & Lt; / TD & gt; & Lt; / TR & gt; & Lt;%}% & gt; So far so good. When I post one of those forms, it gives a partial view in a div, and in this new partial view a new Ajax Beginnform (which is not in Genesis form) This second Ajax Beginnorf is exactly like the ones I got on the table, but when I post it, I do not get the "Ajax Post", but a normal post that sends me to a new page, I do not know whether the two Ajax forms What is the reason for the difference between, why is it the "dynamically generated" Ajax form behaves like a normal HTML form? By the way, I know that I can do it in different ways using javascript, but I would like to understand whether it can only be done using MVC helplars and Ajax lib...
Read more

Debug on symbian -

I am using trk for phone debug This works well for the Holorld project But when I start the project in phone debug mode 1) the load failed 2) TrkProtocolPlugin: to target the specified file Failure (please verify If any body understands what problem I am experiencing, then this problem helps me Pre-release If the application has the privileges assigned (with the appropriate certificate) itemprop = "text" > In your case, I will check: / li> If there is no conflict of application ID with any other application of device If there are problematic commands in the installation package (for example copy copy for non-accessible directories)
Read more