Hi, quite a few examples of this in the forum.
One way would be to use a vb macro linked to a button.
The user makes selections and with the button writes a predefined output back to an SQL database.
See the example macro below, and keep in mind that this example also has a truncate command in it.
You might want to remove that before testing as it empties the target table.
This is not very fast so don't try this with more then a 100K records or so.
The number,type,color fields are just some example fields to write back.
sub writeback ()
dim sServer, sConn, oConn,oRS
sServer="[SERVERNAME]"
sConn="Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=SERVERNAME;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;;Use Encryption for Data=False;Tag with column collation when possible=False;MARS Connection=False;DataTypeCompatibility=0;Trust Server Certificate=False"
Set oConn = CreateObject("ADODB.Connection")
oConn.Open sConn
Set oTT =CreateObject("ADODB.Recordset")
oTT.open "TRUNCATE TABLE [DATABASENAME].dbo.[TABLENAME]", oConn
Set oRS =CreateObject("ADODB.Recordset")
set table = ActiveDocument.GetSheetObject("TB01")
For RowIter = 1 to table.GetRowCount-1
set Number = table.GetCell(RowIter,0)
set Type = table.GetCell(RowIter,1)
set Color = table.GetCell(RowIter,2)
sqlstr="INSERT INTO [DATABASENAME].dbo.[TABLENAME] (Number,Type,Color) values('" & RowIter & "','" & Type.Text & "','" & Color.Text & "')"
oRS.open sqlstr, oConn
next
end sub
