[asp] Weer iets over acces db

[intrix]

Ok, laat ik dit topic eens anders doen...

wat is nou de snelste en de beste manier om een form uit te lezen
en naar een acces db weg te schrijven?

de db bevat de volgende col's:

Id (autonr)

UserId (=session id)

Titel
TitelKleur
TitelBackKleur

Bericht
BerichtPositie
BerichtKleur

nou ja et. hele lange lijst ...

die stuur je met je form naar een 2e asp bestand door die vervolgens alles
in de db zal gaan zetten. De database is een Ms Acces db!

code:

<!-- #INCLUDE FILE="datastore.inc" -->
<!-- #INCLUDE FILE="..\..\..\i&ascripts\adovbs.inc" -->

datastore bevat de connect string:

code:

<%
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Inetpub\intra\intrascripts\lichtkrant\lichtkrant.mdb;"
%>

dat andere bestand bevat adOpenStatic, adLockOptimistic en dergelijke
variabelen die gebruikt moeten worden om de db te locken enzo.

Ik loop me rot te zoeken op allerlei tutorial sites maar ik vind vervolgens
echt 12 manieren om het uit te voeren en ik geloof dat ik telkens een soort
mengelmoes tot stand heb gebracht maar wat zou nou de meest juiste manier
zijn dan?

[ Voor 88% gewijzigd door intrix op 03-02-2004 15:05 ]

[CrashOne]

Kijk eens op http://www.4guysfromrolla.com/ dit is nl best wel erg basic.

[CrashOne]

Basic stuff, maar gooi er eens een %> in.

[ Voor 6% gewijzigd door CrashOne op 03-02-2004 14:02 . Reden: bovenste bericht komt uit dubbel topic... ]

[DeverauX]

Wat is de foutmelding die je krijgt? En waarom maak je gebruik van de .addnew methode en niet gewoon een INSERT-query

[intrix]

CrashOne schreef op 03 februari 2004 @ 13:58:
Kijk eens op http://www.4guysfromrolla.com/ dit is nl best wel erg basic.

yo thanx, schoot even in de stress vandaar dat dit hele topic er niet uitziet nu
maar goed ga even adem halen en die site doorbladeren

[intrix]

DeverauX schreef op 03 februari 2004 @ 14:02:
Wat is de foutmelding die je krijgt? En waarom maak je gebruik van de .addnew methode en niet gewoon een INSERT-query

ja dat schijnt makkelijker te zijn volgens die lui hier?!

en ik kan niet goed vinden hoe je met asp en queries moet werken
ik ben gewend aan php daar doe ik alles met sql queries

maar asp + MS acces db schijnt dat lastiger te zijn ofzo?

[Verwijderd]

Die query's hebben niks met asp of php te maken maar met het soort database wat erachter hangt. Het insert statement zou gewoon moeten werken

[intrix]

Verwijderd schreef op 03 februari 2004 @ 14:12:
Die query's hebben niks met asp of php te maken maar met het soort database wat erachter hangt. Het insert statement zou gewoon moeten werken

Nee het probleem zit als volgt, het schijnt dus dat lange Sql queries zoals deze
problemen geven. Ze schijnen niet uitgevoerd te worden of te blijven
hagen zo wordt beweerd

[DeverauX]

Zonder foutmelding blijft het een beetje moeilijk te achterhalen wat het probleem is.
Het gebruik van een normale insert-query vind ik persoonlijk overzichtelijker dan d.m.v. de addnew methode.

Voorbeeld:

ASP:

Call db_connect

Dim sqlString
    sqlString = "INSERT INTO tabel ( veld ) VALUES ( 'blaat' )"
    Con.Execute sqlString

Con.Close
Set Con = Nothing

[Cai]

Das onzin Urno:

beetje slordig maar werkt prima.

ASP.NET Visual Basic:

a = "INSERT INTO dbo.AK_enquete (s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12,s13,s14,s15,s16,s17,s18,s19,s20,ta1,ta2,ta3,ta4,ta5,tf1,tf2,tf3,tf4,tf5,tf6,tf7) Values("
a = a & request.form("select1") & "," &  request.form("select2") & "," & request.form("select3") & "," & request.form("select4") & "," & request.form("select5") & "," & request.form("select6") & "," & request.form("select7") & "," & request.form("select8") & "," & request.form("select9") & "," & request.form("select10") & "," & request.form("select11") &  "," &request.form("select12") & "," & request.form("select13") & "," & request.form("select14") &  "," &request.form("select15") & "," & request.form("select16") & "," & request.form("select17") & "," & request.form("select18") &  "," &request.form("select19") & ",'" & request.form("select20")&  "','" 
a = a &  ta1 &"','" & ta2 & "','" &ta3 &"','" & ta4 &"','" & ta5 & "','" &tf1 &"','" & tf2 & "','" &tf3 & "','" &tf4 & "','" &tf5 & "','" &tf6 & "','" &tf7 & "')"
response.write a
Recordset1.Source = a

offtopic:
Bevalt stage een beetje? Groeten, daan

[ Voor 40% gewijzigd door Cai op 03-02-2004 14:28 ]

[intrix]

wordt ineens wakker loop zwaar te kutten ..


gaat goed komen ..


en eh daan about stage, tja .. ach beetje asp boek doorlezen en
dan zorgen dat de lichtkrant hier gaat werken

[ Voor 179% gewijzigd door intrix op 03-02-2004 14:33 ]

[intrix]

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/intrascripts/lichtkrant/addreal.asp, line 32

Set strSQL = "INSERT INTO lichtkrant (User, Title, TitleColor, TitelBgr, BanTop, BanTopPos, Msg, MsgColor, MsgBgr, MsgFont, MsgPos, Img, ImgPos, Time)
------------------------------------------------------------------------------------------------------------------------------------------------------^


dit blijft ie geven ik doe echt iets fout
heb het zelfs zo geprobeerd:

ASP:

<!-- #INCLUDE FILE="datastore.inc" -->
<!-- #INCLUDE FILE="..\..\..\i&ascripts\adovbs.inc" -->
<%
server.scripttimeout=15

Dim objConn
Dim strSQL

User = Session("id")

Titel = Request("Titel")
TitelColor = Request("TitelColor")
TitelBgr = Request("TitelBgr")

BanTop = Request("BanTop")
BanTopPos = Request("BanTopPos")

BanBot = Request("BanBot")
BanBotPos = Request("BanBotPos")

Msg = Request("Msg")
MsgColor = Request("MsgColor")
MsgBgr = Request("MsgBgr")
MsgFont = Request("MsgFont")
MsgPos = Request("MsgPos")

Img = Request("Img")
ImgPos = Request("ImgPos")
Time = Request("Time")

Set objConn = Server.CreateObject("ADODB.Connection")
Set strSQL = "INSERT INTO lichtkrant (User, Title, TitleColor, TitelBgr, BanTop, BanTopPos, Msg, MsgColor, MsgBgr, MsgFont, MsgPos, Img, ImgPos, Time) 
VALUES(" & User & ", " & Title & ", " & TitleColor & ", " & TitelBgr & ", " & BanTop & ", " & BanTopPos & ", " & Msg & ", " & MsgColor & ", " & MsgBgr & ", " & MsgFont & ", " & MsgPos & ", " & Img & ", " & ImgPos & ", " & Time & ")" 


objConn.Open strSQL, strConnect, adOpenStatic, adLockOptimistic

%>

[faabman]

DeverauX schreef op 03 februari 2004 @ 14:25:
Zonder foutmelding blijft het een beetje moeilijk te achterhalen wat het probleem is.
Het gebruik van een normale insert-query vind ik persoonlijk overzichtelijker dan d.m.v. de addnew methode.

Voorbeeld:

ASP:

Call db_connect

Dim sqlString
    sqlString = "INSERT INTO tabel ( veld ) VALUES ( 'blaat' )"
    Con.Execute sqlString

Con.Close
Set Con = Nothing

ach, dat is volgens mij een kwestie van smaak, via de .addnew methode weet je wel meteen zeker dat je geen last hebt van injection-attacks via de waarden die je opgeeft. Als je dit verhaal via een sqlstring wil doen moet je gebruik maken van parameterized queries, hierover is e.e.a. te vinden in de faq en via google...

.addnew is wel nadelig voor de snelheid

[Verwijderd]

Als iets in tekst geschreven is moet er enkele quotes omheen (')
bij datum (#) eromheen
en bij nummeriek niets

[pistole]

intrix schreef op 03 februari 2004 @ 14:40:
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/intrascripts/lichtkrant/addreal.asp, line 32

sorrie hoor, maar dit is een hele simpele syntactische fout, heeft helemaal niets met je sql query te maken.

Je kan een regel afbreken door _ te gebruiken.
Dus bijvoorbeeld

code:

sql="hier een hele hoop meuk " & _
    "hier nog meer meuk"

En vervolgens checken of je haakjes, quotes, e.d. kloppen

[ Voor 33% gewijzigd door pistole op 03-02-2004 21:28 ]

[Verwijderd]

En natuurlijk hopen dat je geen quotes hebt staan in de gegevens die je ophaalt, ander gaat het natuurlijk goed fout

[Verwijderd]

Ik zelf zou zoiets als dit doen (niet om je in verwarring te brengen )

(tis in VB opgemaakt dus niet getest )

code:

    Dim objComm As ADODB.Command
    Dim objRs As ADODB.Recordset
    Set objComm = New ADODB.Command
    Dim objParam(15) As Variant
    'geef je parameters op
    objParam(0) = Session("id")
    objParam(1) = IIf(Request("Titel") <> "", CStr(Request("Titel")), Null)
    objParam(2) = Request("TitelColor")  <---- nog valideren, de overigen ook!
    objParam(3) = Request("TitelBgr")
    objParam(4) = Request("BanTop")
    objParam(5) = Request("BanTopPos")
    objParam(6) = Request("BanBot")
    objParam(7) = Request("BanBotPos")
    objParam(8) = Request("Msg")
    objParam(9) = Request("MsgColor")
    objParam(10) = Request("MsgBgr")
    objParam(11) = Request("MsgFont")
    objParam(12) = Request("MsgPos")
    objParam(13) = Request("Img")
    objParam(14) = Request("ImgPos")
    objParam(15) = Request("Time")
    
    With objSPComm
        .ActiveConnection = jouwConnection
        .CommandType = adCmdStoredProc
        .CommandText = "jouwQueryInAcces"
    End With
    
    Set objRs = objSPComm.Execute(, objParam)
    Set objRs = Nothing
    Set objComm = Nothing

[ Voor 13% gewijzigd door Verwijderd op 03-02-2004 22:49 ]