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
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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
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
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
26. september 2002 - 08:58
#4
dark-mixer> Nope, det ville ikke virke på MySQL ;o) //>Rune
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
26. september 2002 - 11:07
#6
wittnezz>> nope, no can do
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.
:-)
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?
26. september 2002 - 14:07
#9
hvordan indsætter jeg tid i MySQL?
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
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?
26. september 2002 - 14:30
#12
Jov, du kunne sagtens bare bruge et TEXT felt... //>Rune
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.
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
27. september 2002 - 07:39
#15
Fair nok :o) Thx 4 Poinz //>Rune
Kurser inden for grundlæggende programmering