Jämföra sträng innan update

4 svar · 255 visningar · startad av devotion 30 dec. 2005

devotionMedlem sedan jan. 20013 582 inlägg

Frågan30 dec. 2005 22:12#1

Tja! :e

Jag kör en loop där jag lägger in information i en databaspost...

Hur gör jag för att jämföra den strängen som står på tur med det som redan finns i databasen?

Dvs
-är CustomT1 tom lägg in ny post (dvs Update)
-står det redan Installation i posten och den sträng som är på tur har värdet "Installation" gör ingen förändring
-står det redan Installation i posten och den sträng som är på tur har värdet "Felsökning" lägg till felsökning, (resultat i db: Installation, Felsökning)

Den kod jag har är:

'Kontrollera CustomT1
sSQL = "SELECT CustomT1 From tblTask Where Id = " & iNewTaskId
Set objRS = objConn.Execute(sSQL)

'Om objRS("CustomT1) är EOF  ska SCustomT1 vara intakt

'Om objRS("CustomT1") inte är lika med sCustomT1 ska sCustomT1 innehålla de ursprungliga värdet och det nya kommaseparerat

'Om objRS("CustomT1") = sCustomT1 gör ingenting

sCustomT1 är en variabel som hämtas innan ovanstående kod..

Hoppas någon förstår...

Mvh
henrik

cyprysMedlem sedan dec. 20003 563 inlägg

30 dec. 2005 22:20#2

Loop kring hela alltet 
if objRs.eof then ' Om id't inte finns
  ' do jacks**t
else
  if objRs("customT1") <> sCustomT1 then ' Om värdena är olika...
    sCustomT1 = sCustomT1 & objRs("customT1") & ", " ' ...utöka sCustom
  end if
end if

devotionMedlem sedan jan. 20013 582 inlägg

30 dec. 2005 22:38#3

Tja tack för det!

Efter en liten modifiering:

'Kontrollera CustomT1
		sSQL = "SELECT CustomT1 From tblTask Where Id = " & iNewTaskId
		Set objRS = objConn.Execute(sSQL)
		
		If Not objRS.EOF Then
			if objRS("customT1") <> sCustomT1 then ' Om värdena är olika...
    			sCustomT1 = sCustomT1 & ", " & objRs("customT1")   ' ...utöka sCustom
  			end if	
		End If

Mvh
henrik

cyprysMedlem sedan dec. 20003 563 inlägg

30 dec. 2005 22:46#4

Ok. Jag gav en smått generell lösning då jag jag inte visste hur du satte strängvariabeln beroende på om det fanns någon rad med samma värde gentemot om det inte fanns någon alls med det id't. Men om det är så där du ska ha det är detta smått snyggare. ;)

sSQL = "SELECT CustomT1 From tblTask Where Id = " & iNewTaskId & " and customT1 <> " & scustomT1
Set objRS = objConn.Execute(sSQL)
if not objRS.eof then sCustomT1 = sCustomT1 & ", " & objRs("customT1")

devotionMedlem sedan jan. 20013 582 inlägg

30 dec. 2005 23:17#5

Tack för det!

Mvh
henrik

..men gonatt.. i morgon är det nyårsafton.... :bire