Avatar billede excession Nybegynder
24. september 2002 - 02:23 Der er 8 kommentarer og
1 løsning

hvodan er det jeg får vist

Hejsa

Hvordan er det jeg får vist de records som jeg netop har sat ind?

jeg har en formular hvor jeg har mulighed for at uploade nogle filer.  filerne uploades og sti osv lægges i db.

hvordan er det jeg kan få vist de records jeg har skrevet til DB?

hvis det kun er 3 ud af 5 filer det er lykkedes at skrive til db vil jeg gerne have at brugeren får at vide at de og de records er blevet oprettet..

-- xs
Avatar billede medions Nybegynder
24. september 2002 - 08:12 #1
Find ud af hvor mange records det drejer sig om, og Lav en TOP() funktion!

lngAntal = 12
strSQL = "SELECT TOP " & lngAntal & " FROM tabel"
Set objRs = objConn.Execute(strSQL)

//>Rune
Avatar billede cyb Nybegynder
24. september 2002 - 10:39 #2
ved hver insert - lav en select @@identity.
Put dine id'er i et array.
Avatar billede excession Nybegynder
24. september 2002 - 14:39 #3
jeg ved netop ikke hvor mange records der bliver skrevet...
Avatar billede cyb Nybegynder
25. september 2002 - 00:51 #4
Jammen du skriver vel en record ad gangen. Så i det stykke kode hvor du skriver recorden tjekker du om det er gået godt og får id'et på recorden tilbage ved at lave en select @@identity.
Avatar billede excession Nybegynder
25. september 2002 - 02:27 #5
kan du giv mig et eksempel på hvordan det skal se ud?

jeg kan nemlig ikke få det til at virke.  her er koden jeg bruger:

                    SQL = "INSERT INTO billeder(filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtid) VALUES("
                    SQL = SQL & "'" & File.Filename & "', "
                    SQL = SQL & "'" & File.Path & "', "
                    SQL = SQL & "'" & File.Size & "', "
                    SQL = SQL & "'" & File.ImageWidth & "', "
                    SQL = SQL & "'" & File.ImageHeight & "', "
                    SQL = SQL & "'" & descr & "', "
                    SQL = SQL & "'" & File.ImageType & "', "
                    SQL = SQL & "#" & uploaddate & "#, "
                    SQL = SQL & "#" & uploadtid & "#"
                    SQL = SQL & ");"

                'IF descr = "" THEN
                '    Upload.DeleteFile File.Path
                'END IF

                ' Save to database
                File.ToDatabase Connect, SQL
               
                Set rs = Server.CreateObject("ADODB.RecordSet")
               
                SQL = "SELECT @@identity AS succesLog FROM billeder"
                rs.open SQL, Connect
               
                Do While Not rs.EOF
                    succesLog = rs("succesLog")
                rs.movenext
                Loop
                gemteFiler = gemteFiler & "<BR>" & succesLogs
                strFiles = strFiles & File.Filename & "<BR>"
Avatar billede excession Nybegynder
25. september 2002 - 04:31 #6
ved du om man kan bruge @@identity i Access? eller skal det være MySQL?
Avatar billede excession Nybegynder
25. september 2002 - 04:32 #7
den skriver nemlig 0 til dem allesammen
Avatar billede excession Nybegynder
25. september 2002 - 14:45 #8
man kan godt bruge den med access hvis man bruger Jet driveren...
Avatar billede cyb Nybegynder
26. september 2002 - 08:05 #9
Jep .. @@identity virker i Access med Jet driveren, kender detsvære ikke så meget til andre access drivere :-(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester