Hejsan... och välkommen hit...
Såhär:
SQLStmt = "Insert Into Visa "
SQLStmt = SQLStmt & "(Tid, Show, Tidnamn, Tidtid, Datum) "
SQLStmt = SQLStmt & "VALUES("&GetRandomNumber (1,1000000)&",'" &(Request.Form("Lektionsdatum")) ...osv
3 svar · 271 visningar · startad av eriks
Hej! Jag vill lägga in data i en databas (från ett formulär) och vill då även lägga in ett slumptal. Detta har jag skrivit:
<%
Function GetRandomNumber (LowerBound,UpperBound)
Randomize()
GetRandomNumber = Int((upperbound-lowerbound+1) *Rnd +lowerbound)
End Function
Set Connection = ......osv
SQLStmt = "Insert Into Visa "
SQLStmt = SQLStmt & "(Tid, Show, Tidnamn, Tidtid, Datum) "
SQLStmt = SQLStmt & "VALUES('SLUMPTALET!','" &(Request.Form("Lektionsdatum")) ...osv
Hur ska jag skriva för att anropa funtionen GetRandomNumber där jag har skrivit SLUMPTALET? Typ " & GetRandomNumber (1,1000000) & ". Jag har provat olika varianter, men jag får inte rätt på det.
Kort sagt. Någon som vet hur jag ska skriva för att anropa funktionen och lägga in ett slumptal i databasen?
Tack! /Erik
Hejsan... och välkommen hit...
Såhär:
SQLStmt = "Insert Into Visa "
SQLStmt = SQLStmt & "(Tid, Show, Tidnamn, Tidtid, Datum) "
SQLStmt = SQLStmt & "VALUES("&GetRandomNumber (1,1000000)&",'" &(Request.Form("Lektionsdatum")) ...osv
SQLStmt = "Insert Into Visa "
SQLStmt = SQLStmt & "(Tid, Show, Tidnamn, Tidtid, Datum) "
SQLStmt = SQLStmt & "VALUES(" & _
GetRandomNumber (1,1000000) & _
",'" & Request.Form("Lektionsdatum")&
Jag förutsätter att kolumnen tid är nunmerisk.
Om det här inte hjälper så kan du återkomma med mer information, t.ex. hela statementet, vilket fel du får, vilken databas du använder, vilka datatyper som du har i de olika kolumnerna (till att börja med
Tack! Det fungerade nu!