?
Solved

Excel VBA SQL statement to get last ID

Posted on 2011-09-10
6
Medium Priority
?
449 Views
Last Modified: 2012-05-12
Hi

In Excel VBA I am trying to get the last ID entered in a SQL table
How do I modify the following code to assign the
results of my SELECT statement to a string variable
called sMyLastID?
Dim oSQL As String
    
    On Error GoTo EH
    
    Set con = New ADODB.Connection
    
    con.Open "Provider=SQLOLEDB;Data Source=196.220.43.237,1441;Network Library=DBMSSOCN;Initial Catalog=test;User ID=murbhhh;Password=chfff;"

    Set cmd = New ADODB.Command
    
    'Check last ID ---------------------------
    Dim oLastID As Variant
    oLastID = "SELECT MAX(ID) FROM Table1"
    With cmd
        .CommandText = oLastID
        .CommandType = adCmdText
        .ActiveConnection = con
        .Execute
    End With
    '------------------------------------------

Open in new window

0
Comment
Question by:Murray Brown
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 4

Expert Comment

by:Friman001
ID: 36516536
I could help easier if this was C#, but from what I see, you should just be able to say oLastId.ToString() and that should be holding the last ID.
0
 
LVL 60

Expert Comment

by:Kevin Cross
ID: 36516685
You want to assign it to variable during the execute.
e.g.,
intID = .ExecuteScalar()

Open in new window

0
 
LVL 60

Expert Comment

by:Kevin Cross
ID: 36516694
Sorry, it has been awhile since I messed with ADODB. You are using the Command object, so there is only Execute. Principle is the same, but looks more like this:
oLastID = "SELECT MAX(ID) AS ID FROM Table1"
With cmd
    .CommandText = oLastID
    .CommandType = adCmdText
    .ActiveConnection = con
    Set rs = .Execute
End With

Open in new window


Where rs is an ADODB.Recordset, so you can get at the ID (note: I added an alias to your SQL string) like rs("ID"). You could use the column index since there will be only one. The index array starts at 1 if I am not mistaken so rs(1) but can always try rs(0). *smile*
0
Get real performance insights from real users

Key features:
- Total Pages Views and Load times
- Top Pages Viewed and Load Times
- Real Time Site Page Build Performance
- Users’ Browser and Platform Performance
- Geographic User Breakdown
- And more

 
LVL 4

Accepted Solution

by:
AgeOfEmpires earned 2000 total points
ID: 36517147
I typically use a command object if executing a stored procedure or a query that doesn't return info.  Otherwise I use a recordset to access the data.  I've not included any error checking for failed connection, incorrect query statements, etc.

Sub test()
  Dim sMyLastID As String
  Dim con As ADODB.Connection
  Dim rs As ADODB.Recordset
  
  Set con = New ADODB.Connection
  con.Open   ----your connection string here----
  
  Set rs = New ADODB.Recordset
  
  rs.Open "Select MAX(ID) From Table1", con, adOpenForwardOnly, adLockReadOnly
  If Not rs.EOF() Then
    sMyLastID = CStr(rs.Fields(0).Value)
    MsgBox "Max ID = " & sMyLastID
  Else
    MsgBox "Error processing query"
  End If
  
  rs.Close
  con.Close
  Set rs = Nothing
  Set con = Nothing
  
End Sub

Open in new window

0
 

Author Closing Comment

by:Murray Brown
ID: 36517304
Thanks very much
0
 
LVL 4

Expert Comment

by:AgeOfEmpires
ID: 36517450
Glad I could help
0

Featured Post

Enroll in August's Course of the Month

August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to reset the password of the sa account on a Microsoft SQL Server.  The steps in this article work in SQL 2005, 2008, 2008 R2, 2012, 2014 and 2016.
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

801 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question