Hvordan samler jeg en sql streng?

Det er tekststrenge, du skal bygge, så kommaerne skal med i strengene:

sqlvalues=dato & "," & sagsnr & "," osv osv

sqlTables er god nok, selv om navnet måske er lidt misvisende. sqlFields ville have været bedre, synes jeg.

Men sqlValues skal bygges som en streng, der er en blanding af "," og dine variabler

Måske du kan se hvad jeg gør forkert her:

' Fakta om grund
Dim sagnr,vej, nr, zip, by, pris
dato    = Now()
sagnr    = Request.Form("sagnr")
vej        = Request.Form("vej")
nr        = Request.Form("nr")
zip        = Request.Form("zip")
city    = Request.Form("city")
pris    = Request.Form("pris")
' Fakta om sælger
Dim firma, navn, tlf1, tlf2, fax, mail,evt
firma    = Request.Form("firma")
navn    = Request.Form("navn")
tlf1    = Request.Form("tlf1")
tlf2    = Request.Form("tlf2")
fax        = Request.Form("fax")
mail    = Request.Form("mail")
evt        = Request.Form("evt")


' Sæt ind i database - Grundezip,pris
sqlFields = "tid,sagnr,adr,nr,city,pris"
sqlValues = dato&","&sagnr&","&vej&","&nr&","&city&","&pris
Rs.open "INSERT INTO Grunde("&sqlFields&") Values('"&sqlValues&"')",con


Mvh Frederik

sqlFields = "tid, sagnr, adr, nr, city, pris"

sqlValues = dato & "," & sagnr & ",'" & vej & "'," & nr & "," &city& "," & pris

Rs.open "INSERT INTO Grunde(" & sqlFields & ") Values('" & sqlValues & "')",con

prøv at bruge mellemrumstasten OG
hvis eks feltet [adr] er et tekstfelt HUSK de små ' som  vist.

Niels

city er ikke dim'et, men du bruger nok ikke option explicit (anbefales!), så det giver ikke nogen fejl. Hvilken fejl. forresten?
"BY" er et reserveret ord i SQL, så det var en god ide at skifte til city. Hvad hedder feltet i databasen? city forhåbentlig.

Og nih har selvfølgelig set rigtigt, der mangler ' om tekstfelterne.

Bortset fra det er det en god idé at samle hele sit sql-statement i en string, for så kan man lægge en response.write minSQLstreng ind, når man skal finde fejl.

Neteffect>> Ja det tror jeg næsten jeg gør for jeg kan stadig ikke få det til at virker... (irriterende ;-)

Min streng ser nu sådan ud:


' Sæt ind i database - Grundezip,pris
sqlFields = "tid,sagnr,adr,nr,city,pris"
sqlValues = "dato & "," & sagnr & "," & vej & "," & nr & "," & city & "," & pris"
Rs.open "INSERT INTO Grunde("&sqlFields&") Values('"&sqlValues&"')",con

fejl til følge:

Slut på sætning var ventet
/admin/script/grund_tilfoj_db.asp, line 28, column 21
sqlValues = "dato & "," & sagnr & "," & vej & "," & nr & "," & city & "," & pris"
--------------------^

Okay har lige fjernet de to " " til sidst...

Får nu denne fejl:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.
/admin/script/grund_tilfoj_db.asp, line 29

Og den første ;)

Jah ;-)

Prøv at se hvad jeg får hvis jeg laver dette;

sqlFields = "tid,sagnr,adr,nr,city,pris"
sqlValues = dato & "," & sagnr & "," & vej & "," & nr & "," & city & "," & pris
response.write sqlvalues
response.end

Resultat: 22-07-2002 23:03:41,,,,,

Er der ikke noget galt her??

Okay nu er sql'en så'en her ud og den virker:

Rs.open "INSERT INTO Grunde(tid,sagnr,adr,nr,city,pris,firma,navn,tlf1,tlf2,fax,email,evt)" _
& "Values('"&dato&"','"&sagnr&"','"&vej&"','"&nr&"','"&city&"','"&pris&"','"&firma&"','"&navn&"','"&tlf1&"','"&tlf2&"','"&fax&"','"&mail&"','"&evt&"')",con


Er der en "pænere" måde at bryde/sætte den op på?

I får begge points.. Tag for hjælpen..

Mvh Frederik

takker for pts.
Jeg plejer at opdele den således
strInto = "INSERT INTO Grunde"
strFelt = "(tid, sagnr, adr, nr, city, pris, firma, navn, tlf1, tlf2, fax, email, evt)"
strVal  = "Values (" & dato & "','" & sagnr &"','" & vej &" osv.....
strSQL = strInto & strFelt & strVal

Rs.open strSQL,con

Niels

Det ser godt ud!

Takker mange gange Niels og NetEffect...

Sov godt! ;-)

Godmorgen! - Og tak for points.