|
|
You're in the
sql server data mining
group:Code to include a one-up suffix to a field value
sql server data mining:
to modify it so that the value of the field "Location" will be passed to SQL server with a one-up suffix (example: on the 1st pass, append "1" to the location Dallas, to get "Dallas 1" on the 2nd pass, Dallas 2, ect -- ) to track versions. I'm not sure how I would write the code to automatically affix the next higher number. How would I go about doing this? Many thanks in advance. Here's my code: ======================================== Sub ProductData() Dim oConn As Object Dim sSQL As String Application.ScreenUpdating = False Set wsSheet = ActiveWorkbook.Sheets("Products") Set oConn = CreateObject("ADODB.Connection") oConn.Open = "Provider=sqloledb;" & _ "Data Source=xxx.xx.xx;" & _ "Initial Catalog=Products;" & _ "User Id=xxxxx;" & _ "Password=xxxxx" For i = 2 To Range("A65536").End(xlUp).Row sSQL = "INSERT INTO Upload_Specific " & _ "([Location], [Product Type], [Quantity], [Product Name], [Style], [Features]) " & _ " VALUES ('" & Range("A"&i).Value & "', '" & Range("B"&i).Value & "', '" & _ Range("C"&i).Value & "', '" & Range("D"&i).Value & "', '" & _ Range("E"&i).Value & "', '" & _ Range("F"&i).Value & "')" oConn.Execute sSQL Next i oConn.Close Set oConn = Nothing End Sub
An "after-thought" here -- would it be possible to give the value a one-up
alpha suffix (rather than numeric)? I'm thinking that I could modify the following code, but I'm not quite sure where to begin ... ============= Sub SaveUniqueFilename2() Dim Path As String Dim FileName As String Dim pSuffix As String Dim inputFN As String Dim i As Long pSuffix = Format(Now, "MM-dd-yy") Path = "C:\Batch Folder\" FileName = InputBox("Enter a file name.", "File Name") inputFN = FileName If Dir$(Path & FileName & ".doc") = "" Then ActiveDocument.SaveAs (Path & FileName & ".doc") Else FileName = FileName & " " & pSuffix If Dir$(Path & FileName & ".doc") = "" Then ActiveDocument.SaveAs (Path & FileName & ".doc") MsgBox inputFN & " already exits. This file was saved as: " _ & FileName Else i = 2 Do While Dir$(Path & FileName & " " & i & ".doc") <> "" i = i + 1 Loop ActiveDocument.SaveAs (Path & FileName & " " & i & ".doc") FileName = FileName & " " & i MsgBox inputFN & " already exits. This file was saved as: " _ & FileName End If End If End Sub ============================================== [quoted text, click to view] "Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message news:uYBiQeBMHHA.420@TK2MSFTNGP06.phx.gbl... >I have the following INSERT statement (which works fine) -- what I need is >to modify it so that the value of the field "Location" will be passed to >SQL server with a one-up suffix (example: on the 1st pass, append "1" to >the location Dallas, to get "Dallas 1" on the 2nd pass, Dallas 2, ect -- ) >to track versions. I'm not sure how I would write the code to >automatically affix the next higher number. How would I go about doing >this? > > Many thanks in advance. > > Here's my code: > ======================================== > Sub ProductData() > > Dim oConn As Object > Dim sSQL As String > > Application.ScreenUpdating = False > Set wsSheet = ActiveWorkbook.Sheets("Products") > Set oConn = CreateObject("ADODB.Connection") > oConn.Open = "Provider=sqloledb;" & _ > "Data Source=xxx.xx.xx;" & _ > "Initial Catalog=Products;" & _ > "User Id=xxxxx;" & _ > "Password=xxxxx" > > For i = 2 To Range("A65536").End(xlUp).Row > sSQL = "INSERT INTO Upload_Specific " & _ > "([Location], [Product Type], [Quantity], [Product Name], [Style], > [Features]) " & _ > " VALUES ('" & Range("A"&i).Value & "', '" & Range("B"&i).Value & "', > '" & _ > Range("C"&i).Value & "', '" & Range("D"&i).Value & "', '" & _ > Range("E"&i).Value & "', '" & _ > Range("F"&i).Value & "')" > oConn.Execute sSQL > Next i > > > oConn.Close > Set oConn = Nothing > > > End Sub > >
Bob,
Thank you for your quick reply -- let me see if I understand you correctly .... When I open Excel, and run the Sub ProductData() routine, I should insert a query just prior to the Insert Statement? Could you give me an example of what the code might look like? When I open Excel, I have the current value, I just need to append a suffix value (preferable an alpha suffix if possible) ================================ [quoted text, click to view] "Bob Phillips" <bob.NGs@xxxx.com> wrote in message news:eYVQLlBMHHA.1252@TK2MSFTNGP02.phx.gbl... > Do a query prior to the insert to get the MAX value where the field > contains Dallas, and then just add 1 to the count. > > -- > --- > HTH > > Bob > > (change the xxxx to gmail if mailing direct) > > > "Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message > news:uYBiQeBMHHA.420@TK2MSFTNGP06.phx.gbl... >>I have the following INSERT statement (which works fine) -- what I need is >>to modify it so that the value of the field "Location" will be passed to >>SQL server with a one-up suffix (example: on the 1st pass, append "1" to >>the location Dallas, to get "Dallas 1" on the 2nd pass, Dallas 2, ect -- ) >>to track versions. I'm not sure how I would write the code to >>automatically affix the next higher number. How would I go about doing >>this? >> >> Many thanks in advance. >> >> Here's my code: >> ======================================== >> Sub ProductData() >> >> Dim oConn As Object >> Dim sSQL As String >> >> Application.ScreenUpdating = False >> Set wsSheet = ActiveWorkbook.Sheets("Products") >> Set oConn = CreateObject("ADODB.Connection") >> oConn.Open = "Provider=sqloledb;" & _ >> "Data Source=xxx.xx.xx;" & _ >> "Initial Catalog=Products;" & _ >> "User Id=xxxxx;" & _ >> "Password=xxxxx" >> >> For i = 2 To Range("A65536").End(xlUp).Row >> sSQL = "INSERT INTO Upload_Specific " & _ >> "([Location], [Product Type], [Quantity], [Product Name], [Style], >> [Features]) " & _ >> " VALUES ('" & Range("A"&i).Value & "', '" & Range("B"&i).Value & "', >> '" & _ >> Range("C"&i).Value & "', '" & Range("D"&i).Value & "', '" & _ >> Range("E"&i).Value & "', '" & _ >> Range("F"&i).Value & "')" >> oConn.Execute sSQL >> Next i >> >> >> oConn.Close >> Set oConn = Nothing >> >> >> End Sub >> >> > >
Do a query prior to the insert to get the MAX value where the field contains
Dallas, and then just add 1 to the count. -- --- HTH Bob (change the xxxx to gmail if mailing direct) [quoted text, click to view] "Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message news:uYBiQeBMHHA.420@TK2MSFTNGP06.phx.gbl... >I have the following INSERT statement (which works fine) -- what I need is >to modify it so that the value of the field "Location" will be passed to >SQL server with a one-up suffix (example: on the 1st pass, append "1" to >the location Dallas, to get "Dallas 1" on the 2nd pass, Dallas 2, ect -- ) >to track versions. I'm not sure how I would write the code to >automatically affix the next higher number. How would I go about doing >this? > > Many thanks in advance. > > Here's my code: > ======================================== > Sub ProductData() > > Dim oConn As Object > Dim sSQL As String > > Application.ScreenUpdating = False > Set wsSheet = ActiveWorkbook.Sheets("Products") > Set oConn = CreateObject("ADODB.Connection") > oConn.Open = "Provider=sqloledb;" & _ > "Data Source=xxx.xx.xx;" & _ > "Initial Catalog=Products;" & _ > "User Id=xxxxx;" & _ > "Password=xxxxx" > > For i = 2 To Range("A65536").End(xlUp).Row > sSQL = "INSERT INTO Upload_Specific " & _ > "([Location], [Product Type], [Quantity], [Product Name], [Style], > [Features]) " & _ > " VALUES ('" & Range("A"&i).Value & "', '" & Range("B"&i).Value & "', > '" & _ > Range("C"&i).Value & "', '" & Range("D"&i).Value & "', '" & _ > Range("E"&i).Value & "', '" & _ > Range("F"&i).Value & "')" > oConn.Execute sSQL > Next i > > > oConn.Close > Set oConn = Nothing > > > End Sub > >
This is the sort of query I was envisaging
sSQL = "SELECT Location FROM [Sheet1$A1:B20] WHERE Location LIKE 'Dallas%'" oRS.Open sSQL, sConnect, adOpenForwardOnly, _ adLockReadOnly, adCmdText ' Check to make sure we received data. If Not oRS.EOF Then ary = Application.Transpose(Application.Transpose(oRS.getrows)) On Error Resume Next iMax = ActiveSheet.Evaluate("MAX(--SUBSTITUTE({""" & Join(ary, """,""") & """},""Dallas "",""""))") On Error GoTo 0 MsgBox iMax +1 Else MsgBox "No records returned.", vbCritical End If I ran it against an Excel workbook, but the principles are the same. First I queried against any location start with Dallas. I then extracted the MAX value from the returned array, using array handling if none found and add 1 to it. -- --- HTH Bob (change the xxxx to gmail if mailing direct) [quoted text, click to view] "Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message news:usABzvBMHHA.4992@TK2MSFTNGP04.phx.gbl... > Bob, > > Thank you for your quick reply -- let me see if I understand you correctly > ... > When I open Excel, and run the Sub ProductData() routine, I should insert > a query just prior to the Insert Statement? > > Could you give me an example of what the code might look like? > > When I open Excel, I have the current value, I just need to append a > suffix value (preferable an alpha suffix if possible) > > ================================ > "Bob Phillips" <bob.NGs@xxxx.com> wrote in message > news:eYVQLlBMHHA.1252@TK2MSFTNGP02.phx.gbl... >> Do a query prior to the insert to get the MAX value where the field >> contains Dallas, and then just add 1 to the count. >> >> -- >> --- >> HTH >> >> Bob >> >> (change the xxxx to gmail if mailing direct) >> >> >> "Doctorjones_md" <xxxDoctorjones_mdxxx@xxxyahoo.com> wrote in message >> news:uYBiQeBMHHA.420@TK2MSFTNGP06.phx.gbl... >>>I have the following INSERT statement (which works fine) -- what I need >>>is to modify it so that the value of the field "Location" will be passed >>>to SQL server with a one-up suffix (example: on the 1st pass, append "1" >>>to the location Dallas, to get "Dallas 1" on the 2nd pass, Dallas 2, >>>ect -- ) to track versions. I'm not sure how I would write the code to >>>automatically affix the next higher number. How would I go about doing >>>this? >>> >>> Many thanks in advance. >>> >>> Here's my code: >>> ======================================== >>> Sub ProductData() >>> >>> Dim oConn As Object >>> Dim sSQL As String >>> >>> Application.ScreenUpdating = False >>> Set wsSheet = ActiveWorkbook.Sheets("Products") >>> Set oConn = CreateObject("ADODB.Connection") >>> oConn.Open = "Provider=sqloledb;" & _ >>> "Data Source=xxx.xx.xx;" & _ >>> "Initial Catalog=Products;" & _ >>> "User Id=xxxxx;" & _ >>> "Password=xxxxx" >>> >>> For i = 2 To Range("A65536").End(xlUp).Row >>> sSQL = "INSERT INTO Upload_Specific " & _ >>> "([Location], [Product Type], [Quantity], [Product Name], [Style], >>> [Features]) " & _ >>> " VALUES ('" & Range("A"&i).Value & "', '" & Range("B"&i).Value & "', >>> '" & _ >>> Range("C"&i).Value & "', '" & Range("D"&i).Value & "', '" & _ >>> Range("E"&i).Value & "', '" & _ >>> Range("F"&i).Value & "')" >>> oConn.Execute sSQL >>> Next i >>> >>> >>> oConn.Close >>> Set oConn = Nothing >>> >>> >>> End Sub >>> >>> >> >> > >
Don't see what you're looking for? Try a search.
|
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
| home · blog · groups | Questions? Comments? Contact the dn |