hej, ja vill bara lägga till en grej om den inte finns från en ett recordset. Om grejen redan finns så ska den skippa den posten å gå till nästa.. men selectera ut det mha Mycket kreativ kod om jag får säga det. Men det är som Jompa säger. Bäst att öppna recordsetet med vilkor för det man vill hitta:inte samma flera gånger...
Hur gör ja..? försökte något i den här stilen...
<%
Function kollkoll
Dim Index
For Index = 0 to RecSet.EOF
If Text = RecSet("grej") Then
'göra inget
End IF
Next
RecSet('"& Text &"')
End function
%>Sv: inte samma flera gånger...
SELECT * FROM [xxxx] WHERE [grejjtabellen] <> 'GREJ'
eller?
// JompaSv: inte samma flera gånger...
<code>
Dim con as ADODB.Connection
Dim rs as ADODB.Recordset
Set con = New ADODB.Connection
con.Open "<<<Skriv din anslutnings sträng>>>"
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM <<<TabellNamn>>> WHERE grej = '" & Replace(Text, "'", "''") & "'", con, adOpenKeyset, adLockOptimistic
If rs.EOF Then
rs.AddNew
rs("grej") = Text
rs.Update
Else
Msgbox "Post finns redan!"
End If
</code>