Problem med at indsætte i en access database

Hilfe...  snell  :)

De fleste sov jo nok på det tidspunkt :o)

Kan du ikke vise os din SkrivData-metode ?
Binder du data til teksboksene på noget tidspunkt ?
Har du sikkerhed for at du overhovedet får kørt den kode du har vist ?

Mvh

Har ASPNET kontoen "modify"-rettigheder på databasen? Fejler siden, eller sker der bare ingenting?

Og hvad er DataOleDB? En klasse du selv har skrevet?

Som sagt så burde det ikke være Rettigheder da jeg godt kan opdatere i databasen.. jeg kan bare ikke smide nyt i..

jeg smider lige resten af koden om et øjeblik

Har du opdateret data i databasen via websitet? Eller gennem Access? Hvis det er sidstnævnte, er det ikke ensbetydende med at rettighederne er sat korrekt.
Hvis du ingenting har gjort for at ændre rettighederne på mdb-filen, er det højst sandsynligt den det er galt med.

Opdateret via websitet.. :)

Fejler siden?
Hvordan ser tabellen ud?
Ved du, at din kode som den ser ud nu, er et klassisk tilfælde på et oplagt mål for SQL Injection Attacks?

ehm.. SQL Injection Attacks?

hvad er det?

SkrivData metoden:

        public function SkrivData(strSQL as string) as OledbDataReader
            Try
                objCmd = new OledbCommand(strSQL,ObjConn)
                objCmd.ExecuteNonQuery()
            Catch ex as exception
                'response.write(ex.tostring())
            end try
        end function

med hensyn til Tabellen..  som sagt så fungerer SQL'en fint i Access så der er ingen problemer der...

og nej siden fejler ikke..  den fanger hvertfald ingen exception.

SQL Injection Attacks er hvor en besøgende på dit website indtaster SQL i felterne, det kan være ret farligt alt efter hvor kreativ/dygtig vedkommende er. Prøv at Google efter det, der er skrevet mange kloge ord om emnet.

Prøv at fjerne din "try - catch", er du helt sikker på at den ikke fejler? Koden som du har vist, vil ikke skabe en fejl.

jeg har prøvet at fjerne try - catch..

ingen forskel :S

Er din connection open før du kører SQL'en (det er den formentlig, ellers ville du få en fejl).

Jeg kan desværre ikke lige huske hvordan man sammensætter tekststrenge i C#, er du sikker på at det virker? Prøv evt. at skrive din SQL ud lige før den bliver kørt.

Ja den er åben.

Jeg har prøvet at response.write() SQL'en og så teste den i Access og den fungerer fint.. 

jeg er helt konfus ligenu.. har bøvlet med det i flere dage nu..

Hvis du debugger - kommer du så overhovedet ind til dette kald :
objCmd.ExecuteNonQuery() ?

Hmm  hvordan debugger jeg?  Jeg har ikke VS.NET.

Så skriv et eller andet ud lige før linien.

Her lige prøvet med følgende kode:


            try
                DataOleDB.opendb("Tomo")
                Dim sSql as string = "INSERT INTO BRUGERE VALUES (" & NyBrugerID() & ",'" & txtOpretBrugernavn.text & "','" & txtOpretAdgangskode.text & "','" & txtOpretnavn.text & "','" & txtOpretemail.text & "','" & txtOpretland.text & "','" & txtOpretby.text & "',0,'" & txtOprethjemmeside.text & "',0,2);"
                    'response.write(sSql)
                objCmd = new OledbCommand(sSql,ObjConn)
                objCmd.ExecuteNonQuery()
                DataOleDB.closedb()
            catch ex as exception
                response.write(ex.tostring())
            end try

virker stadig ikke.. den vil bare ikke skrive til DB

Du skriver ikke noget ud i din try... Har du prøvet det ?
(linin er udkommenteret)

den kan ikke genkende "response" ..  det kompileres til en dll..  derfor er det udkommenteret

det er nok nærmere fordi det hedder Response.Write(sSql)... Det er med store forbogstaver.

Nope:

Name 'Response' is not declared.

Du burde kunne slippe afsted med denne her så :
HttpContext.Current.Response.Write

System.InvalidOperationException: ExecuteNonQuery: Connection property has not been initialized. at System.Data.OleDb.OleDbCommand.ValidateConnectionAndTransaction(String method, Int32& localState) at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteNonQuery() at Database.DataBaseOledb.SkrivData(String strSQL)

Og metoden SkrivData ser således ud:

        public function SkrivData(strSQL as string) as OledbDataReader
            Try
                objCmd = new OledbCommand(strSQL,ObjConn)
                objCmd.ExecuteNonQuery()
                HttpContext.Current.Response.Write("hejsa")
            Catch ex as exception
                HttpContext.Current.Response.Write(ex.tostring())
            end try
        end function

Connection property has not been initialized er den du skal bide mærke i.

Den har du ikke fået initialiseret.

Du skal både initialisere den, og åbne den inden du kan fyre kommandoen af.
(og så få den lukket bagefter :o)

Altså initialiseret er det ikke den her

ObjConn = new OledbConnection(strConn)
objConn.Open()


for den kører jeg i metoden: DataOleDB.opendb("Tomo")

Men i den kode du lige har postet, er der ikke noget kald til opendb.

public function OpenDB(databasenavn as string) as oledbconnection
            Try
                'DBSti = ConfigurationSettings.AppSettings("databaseoledb") & databasenavn & ".mdb"
                DBSti = HttpContext.Current.Request.PhysicalApplicationPath & "\db\" & databasenavn & ".mdb"
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
                strConn += "Data Source=" & DBSti
                ObjConn = new OledbConnection(strConn)
                objConn.Open()
            Catch ex as exception
                'response.write(ex.tostring())
            end try
        end function


den bliver kaldet her:

DataOleDB.opendb("Tomo")
Dim sSql as string = "INSERT INTO BRUGERE VALUES (" & NyBrugerID() & ",'" & txtOpretBrugernavn.text & "','" & txtOpretAdgangskode.text & "','" & txtOpretnavn.text & "','" & txtOpretemail.text & "','" & txtOpretland.text & "','" & txtOpretby.text & "',0,'" & txtOprethjemmeside.text & "',0,2);"

DataOleDB.SkrivData(sSql)
DataOleDB.closedb()

Kan du ikke poste DataOleDB klassen, og hvis du initialiserer den et sted vil jeg også gerne se det.

Public Class DataBaseOledb
        Public strConn as string
        Public objConn as OledbConnection
        Public DBsti as string   
        Public data As OledbDataReader
        Public ObjCmd As OledbCommand

        public function OpenDB(databasenavn as string) as oledbconnection
            Try
                'DBSti = ConfigurationSettings.AppSettings("databaseoledb") & databasenavn & ".mdb"
                DBSti = HttpContext.Current.Request.PhysicalApplicationPath & "\db\" & databasenavn & ".mdb"
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
                strConn += "Data Source=" & DBSti
                ObjConn = new OledbConnection(strConn)
                objConn.Open()
            Catch ex as exception
                'response.write(ex.tostring())
            end try
        end function

        public function DanData(strSQL as string) as OledbDataReader
            Try
                objCmd = new OledbCommand(strSQL,ObjConn)
                data = objCmd.ExecuteREader()
            Catch ex as exception
                'response.write(ex.tostring())
            end try
        end function

        public function SkrivData(strSQL as string) as OledbDataReader
            Try
                objCmd = new OledbCommand(strSQL,ObjConn)
                objCmd.ExecuteNonQuery()
                HttpContext.Current.Response.Write("hejsa")
            Catch ex as exception
                HttpContext.Current.Response.Write(ex.tostring())
            end try
        end function

        public function CloseDB() as oledbconnection
            Try
                ObjConn.Close
                ObjConn = Nothing
            Catch ex as exception
                'response.write(ex.tostring())
            end try
        end function
       
        public function SletBlank(Udtrukket as string) as string
            dim valgtstring as string
            valgtstring = Microsoft.VisualBasic.RTrim(Udtrukket)
            return valgtstring
        end function
       
    End Class   




Her har du hele DalaOleDB classen

Hvor initialiserer du den ? - kan du sende den kode også ?
(jeg har ikke set noget sted at du gør det)

Hvad mener du initialiserer?

jeg har da brugt præcis det der på andre webapplikationer :S

Du burde have sådan en linie her et sted :

DataBaseOledb DataOleDB = new DataBaseOledb();

Ellers kan du ikke kalde nogle af metoderne.

nååå

her.. :=




Option Strict Off

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Database
Imports System.Data
Imports System.Data.OleDB

Public Class opretbruger : Inherits usercontrol

Protected lblopretBrugertype as System.Web.UI.WebControls.label
Protected lblopretBrugerID as System.Web.UI.WebControls.label
Protected txtopretBrugernavn as System.Web.UI.WebControls.textbox
Protected txtopretAdgangskode as System.Web.UI.WebControls.textbox
Protected txtopretNavn as System.Web.UI.WebControls.textbox
Protected txtopretEmail as System.Web.UI.WebControls.textbox
Protected txtopretLand as System.Web.UI.WebControls.textbox
Protected txtopretBy as System.Web.UI.WebControls.textbox
Protected txtopretPostnummer as System.Web.UI.WebControls.textbox
Protected txtopretHjemmeside as System.Web.UI.WebControls.textbox
Public ObjCmd As OledbCommand
Public objConn as OledbConnection

Dim DataOleDB as new DataBaseOleDB()

    Public sub Page_Load(Source as Object, E as EventArgs)
        lblopretbrugerid.text = nyBrugerID()
        lblopretbrugertype.text = "bruger"
    end sub

    Public sub click_annuller(Source as Object, E as EventArgs)
        response.redirect(request.path)
    end sub

    Public sub click_opret(Source as Object, E as EventArgs)
   
        'If tjekBrugernavn(txtOpretBrugernavn.text) = true
        '    lblopretBrugerID.text = "Brugernavnet findes allerede"
        '    lblopretbrugerID.ForeColor = System.Drawing.Color.Red
        '    'exit sub
        'elseif tjekBrugernavn(txtOpretBrugernavn.text) = false
        '    lblopretbrugerID.ForeColor = System.Drawing.Color.Black
           
            Dim postnummer as integer
           
            If txtOpretpostnummer.text = nothing
                postnummer = 0
            else
                postnummer = txtOpretpostnummer.text
            end if
           
            try
                DataOleDB.OpenDB("Tomo")
                Dim sSql as string = "INSERT INTO BRUGERE VALUES (" & NyBrugerID() & ",'" & txtOpretBrugernavn.text & "','" & txtOpretAdgangskode.text & "','" & txtOpretnavn.text & "','" & txtOpretemail.text & "','" & txtOpretland.text & "','" & txtOpretby.text & "',0,'" & txtOprethjemmeside.text & "',0,2);"
                    'response.write(sSql)
                    DataOleDB.SkrivData(sSql)
                DataOleDB.Closedb()
            catch ex as exception
                response.write(ex.tostring())
            end try
           
            try
                DataOleDB.OpenDB("Tomo")
                Dim Sql2 as string = "SELECT * from Brugere WHERE Brugernavn = '" & lblopretBrugerID.text & "';"
                    'response.write(sSql)
                    DataOleDB.Dandata(SQL2)
                    If DataOleDB.Data.read() then
                        lblopretBrugerID.text = "Brugeren er nu oprettet"
                        lblopretbrugerID.ForeColor = System.Drawing.Color.blue
                    else
                        lblopretBrugerID.text = "Brugeren er ikke oprettet"
                        lblopretbrugerID.ForeColor = System.Drawing.Color.red
                    end if
                DataOleDB.CloseDB()
            catch ex as exception
                response.write(ex.tostring())
            end try
       
        'end if
       
        'response.redirect(request.rawurl)

    end sub
   
    function nyBrugerid() as integer
        dim nummer as integer
        try
            DataOleDB.opendb("tomo")
                DataOleDB.DanData("SELECT BrugerID FROM Brugere ORDER BY BrugerID desc;")
                If DataOleDB.Data.read() then
                    nummer = DataOleDB.Data("BrugerID")
                else
                    nummer = 0
                end if
            DataOleDB.closedb()
        catch ex as exception
            response.write(ex.tostring())
        end try
        nummer = nummer + 1
        return nummer
    end function
   
    function tjekBrugernavn(Bn as string) as string
        dim nummer as integer
        try
            DataOleDB.opendb("tomo")
                DataOleDB.DanData("SELECT * FROM Brugere Where Brugernavn ='" & Bn & "';")
                If DataOleDB.Data.read() then
                    return "true"
                else
                    return "false"
                end if
            DataOleDB.closedb()
        catch ex as exception
            response.write(ex.tostring())
        end try
    end function

end Class



og før du hagler min kode ned så er den ikke færdig endnu. :)  har kun arbejdet i 2 dage. :P

Hvordan bliver den her kaldt ?
Public sub click_opret(Source as Object, E as EventArgs)

når man trykker på Opret knappen.. :)

du kan se siden her og teste selv
http://80.167.161.196/tomo.dk/

Nu er pointen så, at jeg ikke kan se nogen knap i din kode.

Så jeg kan ikke rigtig se hvordan metoden skulle blive kaldt.

men jeg kan rigtig godt lide din side... har u selv lavet al grafikken ?

<asp:linkbutton ID="lnkopret" OnClick="click_opret" Text="Opret Bruger" runat="server" />

jep..  alt 100% hjemmelavet :)

Hvilket udviklingsmiljø bruger du ?

Jeg bruger Photoshop 8.0 CS og Dreamweaver 2004 MX

lækker side :P

Jeg kan bedst lide at skrive AL koden i hånden.. ikke bruge drag n' drop eller noget.. 

og VS.NET har jeg hørt opretter en milliard små filer og andet..  det gider jeg ikke :)

Takker  :)

Nå for... ja det har jeg ikke noget forstand på. Ved ikke hvordan det funger.

Er du bombesikker på at metoden bliver kaldt ? - jeg ville tro at det var nødvendigt for dig at have sådan en her i koden :
Protected WithEvents lnkopret As System.Web.UI.WebControls.LinkButton

Metoden bliver kaldt.. 100% sikkert..

jeg forstår det bare ikke..

Gider du sørge for at den skriver noget ud på siden når man klikker på den... Så jeg kan prøve det på den du sendte link til ?

ahh... det gør den jo... det var en forkert opretknap jeg prøve først :o)

bare tryp på opret Bruger...

og så tryk på Opret nede i bunden..

så kan du se Fejlen i topper af siden og at udfor BrugerID står der "Brugeren blev ikke oprettet"

ok :)

Gider du kommentere den response.write du har i din catch her ind igen :

            Try
                'DBSti = ConfigurationSettings.AppSettings("databaseoledb") & databasenavn & ".mdb"
                DBSti = HttpContext.Current.Request.PhysicalApplicationPath & "\db\" & databasenavn & ".mdb"
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
                strConn += "Data Source=" & DBSti
                ObjConn = new OledbConnection(strConn)
                objConn.Open()
            Catch ex as exception
                'response.write(ex.tostring())
            end try

er gjort

kan du ikke sætte nogle traces ind, så du i din opret_click har :

Trace.Write("DBCHECK","Calling OpenDB");
DataOleDB.OpenDB("Tomo")
Dim sSql as string = "..."
Trace.Write("DBCHECK","Calling SkrivData");
DataOleDB.SkrivData(sSql)
Trace.Write("DBCHECK","Calling CloseDB");
DataOleDB.Closedb()

Og så i de respektive metoder... så du kan se nøjagtig hvor det går galt.

hvor skal jeg sætte dem ind?  altså præcist?  eller er det ligemeget?

Nu har jeg smidt dem ind i de forskellige Metoder lige før Try sætningen

Før de væsentlige trin i dine metoder... så kan vi se hvor langt den kommer.

Altså i min DLL?

jeg har smidt den som det første i de respektive metoder, men der sker ikke noget..

det ser sådan ud nu:

f.eks. OpenDB

        public function OpenDB(databasenavn as string) as oledbconnection
            HttpContext.Current.Trace.Write("DBCHECK","Calling OpenDB")

            Try
                'DBSti = ConfigurationSettings.AppSettings("databaseoledb") & databasenavn & ".mdb"
                DBSti = HttpContext.Current.Request.PhysicalApplicationPath & "\db\" & databasenavn & ".mdb"
                strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
                strConn += "Data Source=" & DBSti
                ObjConn = new OledbConnection(strConn)
                objConn.Open()
            Catch ex as exception
                HttpContext.Current.Response.Write(ex.tostring())
            end try
        end function

du skal sørge for - under din tracesection - i web.config, at sætte enable = true;
så kan du kalde tracet på http://80.167.161.196/tomo.dk/trace.axd

sådan...

Hvis jeg også skal have lov til at kigge, skal du lige sørge for at jeg får lov her :

localOnly="false" i din tracesection

Så kan folk udefra glugge med :)

er gjort..  :)

Det her ser lidt specielt ud :
DBCHECK Calling OpenDB 0,312024 0,001980
DBCHECK Calling OpenDB 0,531398 0,219374
DBCHECK Calling CloseDB 0,656387 0,124989
DBCHECK Calling SkrivData 0,683643 0,027256
DBCHECK Calling CloseDB 0,714550 0,030908
DBCHECK Calling OpenDB 0,714730 0,000180
DBCHECK Calling CloseDB
læg mærke til sekvensen af open og close

hvis sætter sætter pageoutput = false i trace sektionen... kan du se tracet ved at kalde trace.axd istedet.

Er gjort.. 

Kan man ikke se præcis hvor i koden de forskellige Opendb()og closedb() bliver kaldt?

jeg kan ikke rigtigt se i koden hvor det der sker..

men du skulle gerne skrive noget fornuftigt i dit trace, så du kan se hvad der sker hvornår.

Jeg har fundet ud af det..  det er fordi jeg har en funktion der henter den nyeste ID fra databasen.. den lukker jo forbindelsen.. så jeg skal lige have fundet en løsning..  tror jeg har den.. :)

bare rolig  du får pointsene..:)

Kører det så nu ? - det ville da være fedt :o)

YES!!!    det virker nu.. :) og så er siden endda hurtigere end sidst.. :)

takker  smid lige et svar..

et STORT svar endda :P

stort svar :o)

Sådan  jeg smider lige 140 points mere på.. :D

jeg var gået helt i stå... der gik lige 3-4 dage uden at jeg kunne komme videre..  så dette har virkelig hjulpet mig meget..

så igen.. takker

oh..  by the way.. 

You be da boss, maan.. :)

Jeg takker for alle pointene... Men det er altså også meget fint uden... Jeg skal nok svare på din spørgsmål alligevel :o)
Fedt at at du fik det til at funge.
Mvh

lolz.... Hvis du spørger min kone er jeg nok ikke boss :D