SQL parameter og Datareader

Prøv:

dim con as oledbconnection = Dataoledb.con("futty")
Dim sel As OleDbCommand = New OleDbCommand ("SELECT * from Manager where Email = @Brugernavn and Adgangskode = @Adgangskode;" , con)
sel.Parameters.Add("@brugernavn", OleDbType.VarChar)
sel.Parameters.Add("@adgangskode", OleDbType.VarChar)
sel.Parameters("@brugernavn").Value = txtbrugernavn.text
sel.Parameters("@adgangskode").Value = txtadgangskode.text
Dim rdr As OldDBDataReader = sel.ExexcuteReader

ExecuteNonQuery for INSERT

ExexcuteReader eller ExexcuteScalar for SELECT

hej igen..  får denne fejl:


Compiler Error Message: BC30002: Type 'OldDBDataReader' is not defined.

Source Error:



Line 64:             'response.write(con)
Line 65:             'ins.ExecuteNonQuery
Line 66:             Dim rdr As OldDBDataReader = sel.ExexcuteReader
Line 67:
Line 68:        

Jeg har importeret disse namespaces:
Imports System.Data
Imports System.Data.OleDb

hvad mangler der så?

det er mig som staver ad h..... til

OleDbDataReader

lol.. jeg så det hellere ikke :)

nu får jeg denne fejl:

Compiler Error Message: BC30456: 'ExexcuteReader' is not a member of 'System.Data.OleDb.OleDbCommand'.

Source Error:



Line 64:             'response.write(con)
Line 65:             'ins.ExecuteNonQuery
Line 66:             Dim rdr As OleDbDataReader = sel.ExexcuteReader
Line 67:
Line 68:

ditto

ExecuteReader

Takker..  det fungerer fino nu

smid et svar

svar

og undskyld de mange stave fejl

hej igen:

jeg har lige et lille problem mere:


con = Dataoledb.con("futty")
sel = New OleDbCommand ("UPDATE MANAGER SET antal_login = @nummer where ManagerID = @id;" , con)
sel.Parameters.Add("@id", OleDbType.Integer)
sel.Parameters.Add("@nummer", OleDbType.Integer)
sel.Parameters("@id").Value = id
sel.Parameters("@nummer").Value = nummer
           
sel.ExecuteNonQuery

Dette bliver ikke gemt i db'en. id og nummer indeholder begge data så det er ikke pga det.. hvad kan der være galt.

her er hele metoden:


    Function Antallogin(id as integer)
        dim nummer as integer
        DataOleDb.Opendb("futty")
       
            dim con as oledbconnection = Dataoledb.con("futty")
            Dim sel As OleDbCommand = New OleDbCommand ("SELECT antal_login from Manager where ManagerID = @id;" , con)
            sel.Parameters.Add("@id", OleDbType.Integer)
            sel.Parameters("@id").Value = id
           
            Dim Data As OleDbDataReader = sel.ExecuteReader
                If Data.read()
                    nummer = Data("antal_login")
                    response.write(nummer)
                end if
            Data.Close()
           
            nummer = nummer + 1
                       
            con = Dataoledb.con("futty")
            sel = New OleDbCommand ("UPDATE MANAGER SET antal_login = @nummer where ManagerID = @id;" , con)
            sel.Parameters.Add("@id", OleDbType.Integer)
            sel.Parameters.Add("@nummer", OleDbType.Integer)
            sel.Parameters("@id").Value = id
            sel.Parameters("@nummer").Value = nummer
           
            sel.ExecuteNonQuery
        DataOleDb.Closedb()
    end function

Ingen fejl ?

Eksisterer det pågældende ManagerID ?

PS: Jeg ville lave en ny OleDbCommand ved navn upd til dn UPDATE. Det gør bare koden
    nemmere at læse.

ja det eksisterer og der kommer ingen. det bliver simpelthen bare ikke smidt i databasen.

http://80.167.161.196/futty/

du kan teste selv:

koden bliver kørt når man logger ind:

email: l
pass: l

til venstre kan du se brugerne og der er et tal. Dette er Antal_login i databasen. som du kan se så ændrer det sig ikke

det skal lige siges at det fungerede fint før jeg skiftede til det parameter så jeg forstå det ikke helt

Du må have noget debug ind i koden, så du kan finde ud af hvad der sker.

Bliver den funktion kaldt ?

Sker der nogen exceptions ?

Har id og nummer de værdier de bør have ?

etc.etc.

hej igen

nu har jeg testet stort set alt og har dobbelttjekket det igen..


dim upd as oledbconnection = Dataoledb.con("futty")
dim sel2 as OleDbCommand = New OleDbCommand ("UPDATE MANAGER SET antal_login = @nummer where ManagerID = @id;" , upd)

sel2.Parameters.Add("@id", OleDbType.Integer)
sel2.Parameters.Add("@nummer", OleDbType.Integer)
sel2.Parameters("@id").Value = id
sel2.Parameters("@nummer").Value = nummer + 1
           
sel2.ExecuteNonQuery

denne koder virker ikke, men den bliver kørt.

men dette fungerer udmærket:

dim sql as string = "UPDATE MANAGER SET antal_login = " & (nummer + 1) & " where ManagerID = " & id & ";"
DataOleDB.SkrivData(sql)       
response.write(sql)


nogen ide om hvad det kan være?

Ikke umiddelbart !

Er felterne INTEGER i databasen ?

Ja har lige tjekket..

ManagerID og Antal_login er integer

hej igen

nu har jeg tjekket det om igen igen igen..

Når jeg bruger den her metode:

dim sql as string = "UPDATE MANAGER SET antal_login = " & (nummer + 1) & " where ManagerID = " & id & ";"
DataOleDB.SkrivData(sql)       

så virker det 100% alle stedet jeg bruger det.. 

men så snart jeg skifter til:

Tilføjelse til sidste indlæg:

dim upd as oledbconnection = Dataoledb.con("futty")
dim sel2 as OleDbCommand = New OleDbCommand ("UPDATE MANAGER SET antal_login = @nummer where ManagerID = @id;" , upd)

sel2.Parameters.Add("@id", OleDbType.Integer)
sel2.Parameters.Add("@nummer", OleDbType.Integer)
sel2.Parameters("@id").Value = id
sel2.Parameters("@nummer").Value = nummer + 1
           
sel2.ExecuteNonQuery

så virker det ikke..  dvs den vil ikke gemme i databasen, men alle stedet jeg har en SELECT sql så virker det med SQL parametre fint.. :/

har nogen en mulig løsning til det her..?

nå..  jeg fik det ikke løst, så jeg lukker bare spørgsmålet da der nok ikke sker mere :(

men takker for hjælpen.. :)