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: 580
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