Jag hade nog istället byggt upp en lista med artikelnummer och kört en SQL-fråga som skulle se ut typ:
sSQL = "UPDATE tblArticle SET Modified = GETDATE(), Category = 'Vanlig mtrl' WHERE [Nr] IN ('bla1', 'bla2', 'bla3')"
mvh
Frågan#1
Hej,
Jag har följande lilla kod:
Set TextFile = Fs.Opentextfile(sPath & sFileName, 1, True)
'Loopa igenom textfilen
while not TextFile.AtEndOfStream
a = split(TextFile.Readline, VbTab)
sArtNo = a(0)
sArtName = a(1)
sSQL = sSQL & "UPDATE tblArticle SET Modified = GETDATE(), Category = 'Vanlig mtrl' WHERE [Nr] = '" & sArtNo & "'" & VbCrLf
i = i + 1
wend
TextFile.Close
Set TextFile = Nothing
Set Fs = Nothing
'Öppna databasen
Set Conn=CreateObject("ADODB.Connection")
Conn.Open Application.sDbConnectionString
Conn.Execute sSQL, ra, 128
Conn.Close
Set Conn=Nothing
För att undvika att göra en update i loopen, så bygger jag på SQL-frågan och exekverar den när loopen är klar.
Fungerar ju fint, men, är det en bra lösning? Finns det något negativt? Kan man göra på något bättre/säkrare sätt?
Mvh
Henrik