Hej!
Jag använder Getrows() för at hämta ut ID från en tabell enligt nedanstående kod.
Nu vill jag bygga ut det lite och även få med [Note].
Set Conn=CreateObject("ADODB.Connection")
Conn.Open Application.sDbConnectionString
Set Rs=CreateObject("ADODB.Recordset")
sSQL="SELECT [Id], [Note] FROM [tblArticle]"
Rs.Open sSQL, Conn
aRow=Rs.getrows()
Rs.Close
Set Rs = Nothing
for i = 0 to ubound (aRow, 2)
'sNote= wee
'if foo <>"" then sNote = vbCrLf&sNote
sSQL= "DECLARE @ptrval varbinary(16)" & vbCrLf _
& "SELECT @ptrval = TEXTPTR(Note) FROM [tblArticle] WHERE [Id] = " & aRow(0,i) & vbCrLf _
& "UPDATETEXT [tblArticle].[Note] @ptrval NULL NULL '" & sNote & "'" & vbCrlf _
& "UPDATE [tblArticle] SET [Price] = [Price] * " & fPercentValue & ", [Modified] = GETDATE() WHERE [Id] = " & aRow(0,i)
Conn.Execute sSQL
Next
Set Conn=Nothing
Hur får jag ut [Note] från arrayen?
Min tanker är att kolla om [Note] är tom. Är den det ska infot bara läggas till, Finns något lagrat i [Note] ska det läggas till ett vbCrLf först...
Hoppas någon fattar!
Mvh
Henrik