---

Hej
I min database har jeg nogle info som brugerne skal skifte ud men hvordan
gør jeg det med SQL i stedet for ADO ?
det skal gøres via en formular hvor der er et ID felt og et INFO felt,
infoen skal ændres hvor id nummeret er det id nummer der er i databasen

M.v.h.
Lars Nedergaard

---

Lars Nedergaard wrote:
>
> I min database har jeg nogle info som brugerne skal skifte ud men
> hvordan gør jeg det med SQL i stedet for ADO ?
> det skal gøres via en formular hvor der er et ID felt og et INFO
> felt, infoen skal ændres hvor id nummeret er det id nummer der er
> i databasen

Dim Id, Info

Id = StrToInt(Request("Id"), "")
Info = Trim(Request("Info"))

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "...whatever..."

Conn.Execute "UPDATE dintabel " & _
"SET info=" & StrToSql(Info) & " " & _
"WHERE Id=" & Id, , 129

Conn.Close
Set Conn = Nothing

Function StrToInt(ByVal Value, ByVal Default)
If (Trim("" & Value) = "") Or Not IsNumeric(Value) Then
StrToInt = Default
Else
StrToInt = CLng(Value)
End If
End Function

Function StrToSql(ByVal Value)
Value = Trim("" & Value)
If (Value = "") Then
StrToSql = "NULL"
Else
StrToSql = "'" & Replace(Value, "'", "''") & "'"
End If
End Function

--
Anders

---

>SNIP
> Dim Id, Info
>
> Id = StrToInt(Request("Id"), "")
> Info = Trim(Request("Info"))
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> Conn.Open "...whatever..."
>
> Conn.Execute "UPDATE dintabel " & _
> "SET info=" & StrToSql(Info) & " " & _
> "WHERE Id=" & Id, , 129
>
> Conn.Close
> Set Conn = Nothing
>
> Function StrToInt(ByVal Value, ByVal Default)
> If (Trim("" & Value) = "") Or Not IsNumeric(Value) Then
> StrToInt = Default
> Else
> StrToInt = CLng(Value)
> End If
> End Function
>
> Function StrToSql(ByVal Value)
> Value = Trim("" & Value)
> If (Value = "") Then
> StrToSql = "NULL"
> Else
> StrToSql = "'" & Replace(Value, "'", "''") & "'"
> End If
> End Function
>
> --
> Anders

Virker ikke!!

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.


i denne linie: Conn.Execute "UPDATE billedinfo " & _


Er der ikke et sted på nettet hvor man kan lære hvad alle de forskellige ' '
' """ betyder i SQL ?

M.v.h.
Lars Nedergaard