Avatar billede excession Nybegynder
26. september 2002 - 05:14 Der er 13 kommentarer og
2 løsninger

bør det her virke?

jeg prøver at gemme i en MySQL db, men det er første gang jeg prøver og den vil ikke rigtig det samme som mig.. den vil faktisk slet ikke

det kan være jeg har valgt de forkerte felter i db.. men jeg ved det ikke

id = tror jeg har sat det rigtigt op til auto_increment
sagsnr = TEXT
filename = TEXT
filepath = TEXT, men den er måske for lang til TEXT?
filesize = INT
width = INT
height = INT
descr = TEXT
filetype = TEXT
uploaddate = DATE
uploadtime = DATE
uploaduser = TEXT


                    Connect = "Driver={mySQL};SERVER=localhost;UID=admin;PWD=admin;DATABASE=hdejendomme;"

                    sagsnr = "5555-44"
                    uploaddate = FormatDateTime(Now, 2)
                    uploadtid = FormatDateTime(Now, 3)
                    uploaduser = "admin"

                    ' Build SQL INSERT statement
                    SQL = "INSERT INTO billeder(sagsnr, filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtime, uploaduser) VALUES("
                    SQL = SQL & "'" & sagsnr & "', "
                    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 & "#" & uploadtime & "#,"
                    SQL = SQL & "'" & uploaduser & "'"
                    SQL = SQL & ");"

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

                    ' Save to database
                    File.ToDatabase Connect, SQL

-- xs
Avatar billede medions Nybegynder
26. september 2002 - 07:19 #1
id = tror jeg har sat det rigtigt op til auto_increment
sagsnr = TEXT
filename = TEXT
filepath = TEXT, men den er måske for lang til TEXT?
filesize = INT
width = INT
height = INT
descr = TEXT
filetype = TEXT
uploaddate = DATE
uploadtime = DATE
uploaduser = TEXT


                    Connect = "Driver={mySQL};SERVER=localhost;UID=admin;PWD=admin;DATABASE=hdejendomme;"

                    sagsnr = "5555-44"
                    uploaddate = FormatDateTime(Now, 2)
                    uploadtid = FormatDateTime(Now, 3)
                    uploaduser = "admin"

                    ' Build SQL INSERT statement
                    SQL = "INSERT INTO billeder(sagsnr, filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtime, uploaduser) VALUES("
                    SQL = SQL & "'" & sagsnr & "', "
                    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 & "#" & uploadtime & "#,"
                    SQL = SQL & "'" & uploaduser & "'"
                    SQL = SQL & ");"

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

                    ' Save to database
                    Connect.Execute(SQL)

//>Rune
Avatar billede medions Nybegynder
26. september 2002 - 07:21 #2
objConn = Server.CreateObject("ADODB.Connection")                   
objConn.Open = "Driver={mySQL};SERVER=localhost;UID=admin;PWD=admin;DATABASE=hdejendomme;"

                    sagsnr = "5555-44"
                    uploaddate = FormatDateTime(Now, 2)
                    uploadtid = FormatDateTime(Now, 3)
                    uploaduser = "admin"

                    ' Build SQL INSERT statement
                    SQL = "INSERT INTO billeder(sagsnr, filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtime, uploaduser) VALUES("
                    SQL = SQL & "'" & sagsnr & "', "
                    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 & "#" & uploadtime & "#,"
                    SQL = SQL & "'" & uploaduser & "'"
                    SQL = SQL & ");"

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

                    ' Save to database
                    objConn.Execute(SQL)

Sorry, sådan her var det ;o)

//>Rune
Avatar billede dark-mixer Nybegynder
26. september 2002 - 07:57 #3
Det kan også gøres således :

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set rs = Server.CreateObject("ADODB.Recordset")
dbConn = "Driver={mySQL};SERVER=localhost;UID=admin;PWD=admin;DATABASE=hdejendomme;"

rs.Open "SELECT * FROM billeder;",dbConn,adOpenKeyset,adLockOptimistic
rs.AddNew
  rs("sagsnr") = sagsnr
  rs("filename") = File.Name
  rs("filepath") = File.Path
  rs("filesize") = File.Size
  rs("width") = File.ImageWidth
  rs("height") = File.ImageHeight
  ...
  ...
rs.Update
rs.Close
set rs = Nothing
Avatar billede medions Nybegynder
26. september 2002 - 08:58 #4
dark-mixer> Nope, det ville ikke virke på MySQL ;o)

//>Rune
Avatar billede wittnezz Nybegynder
26. september 2002 - 10:52 #5
Medions > Kan man ikke bruge recordset-objektet på MySql-databaser? (Har godt nok aldrig prøvet, men det lyder da mystikst)

Mvh Claus
Avatar billede burningice Nybegynder
26. september 2002 - 11:07 #6
wittnezz>> nope, no can do
Avatar billede dark-mixer Nybegynder
26. september 2002 - 13:05 #7
Det var ligegodt dælans da.. Jeg køre en masse data til og fra MySQL databaser via Recordset, så at det ikke skulle virke lyder for mig utroligt.
Hele http://www.boenhederne.dk køre via Recordset til en MySQL Server.
:-)
Avatar billede excession Nybegynder
26. september 2002 - 13:46 #8
ja det virker desværre hellere ikke.

grunden til at jeg bruger File.ToDatabase er fordi jeg uploader nogle filer, som jeg gemmer i mapper og så skriver jeg sti, filnavn osv til DB

skal datoen se sådan ud, når jeg skriver til en MySQL db?
Avatar billede excession Nybegynder
26. september 2002 - 14:07 #9
hvordan indsætter jeg tid i MySQL?
Avatar billede medions Nybegynder
26. september 2002 - 14:20 #10
SQL = "INSERT INTO billeder(sagsnr, filename, filepath, filesize, width, height, descr, filetype, uploaddate, uploadtime, uploaduser) VALUES("
                    SQL = SQL & "'" & sagsnr & "', "
                    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 & "'#" & uploadtime & "#',"
                    SQL = SQL & "'" & uploaduser & "'"
                    SQL = SQL & ");"

Prøv lige sådan her...

//>Rune
Avatar billede excession Nybegynder
26. september 2002 - 14:22 #11
hvorfor skal det egentlig være dato felt i DB? kunne man ikke ligeså godt bruge en TEXT felt og så bare sætte dato ind med det format man vil og så bare formatere datoen når man hiver den ud?
Avatar billede medions Nybegynder
26. september 2002 - 14:30 #12
Jov, du kunne sagtens bare bruge et TEXT felt...

//>Rune
Avatar billede burningice Nybegynder
26. september 2002 - 16:16 #13
dark-mixer>> du må ikke blande
Set RS = Conn.Execute(SQL)
sammen med
Set RS = Server.CreateObject("ADODB.RecordSet") -> RS.Open

Første eksempel har ikke noget med Recordset at gøre, og vil derfor virke fint på MySQL... andet eksempel gør ikke.
Avatar billede excession Nybegynder
27. september 2002 - 00:18 #14
jeg har fået det til at virke med den oprindelige kode (næsten) og lavet datofelterne om til tekst og så virker det
Avatar billede medions Nybegynder
27. september 2002 - 07:39 #15
Fair nok :o)
Thx 4 Poinz

//>Rune
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