|
| replace eller...? Fra : Lars Nedergaard |
Dato : 04-09-01 07:05 |
|
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
| |
Anders Holbøll (04-09-2001)
| Kommentar Fra : Anders Holbøll |
Dato : 04-09-01 15:38 |
|
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
| |
Lars Nedergaard (05-09-2001)
| Kommentar Fra : Lars Nedergaard |
Dato : 05-09-01 13:02 |
|
>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
| |
|
|