Excel VBA to Update SQL Table
        Posted  
        
            by user307655
        on Stack Overflow
        
        See other posts from Stack Overflow
        
            or by user307655
        
        
        
        Published on 2010-04-03T03:48:56Z
        Indexed on 
            2010/04/03
            3:53 UTC
        
        
        Read the original article
        Hit count: 664
        
Hi All,
I have a small excel program that is use to upload data to an SQL server.
This has been working well for a while.
My problem now is that I would like to offer to users a function to update an existing record in SQL.
As each row on this table has a unique id columne. There is a column call UID which is the primary key.
This is part of the code currently to upload new data:
Set Cn = New ADODB.Connection Cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & _ ";Uid=" & UserID & ";Pwd=" & Password & ";"
rs.Open TableName, Cn, adOpenKeyset, adLockOptimistic
For RowCounter = StartRow To EndRow
    rs.AddNew
    For ColCounter = 1 To NoOfFields
        rs(ColCounter - 1) = shtSheetToWork.Cells(RowCounter, ColCounter)
    Next ColCounter
Next RowCounter
rs.UpdateBatch
 ' Tidy up
rs.Close
Set rs = Nothing
Cn.Close
Set Cn = Nothing
Is there anyway i can modify this code to update a particular UID rather than importing new records?
Thanks again for your help
© Stack Overflow or respective owner