/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
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




Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408868
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste