<% whichname="../cgi-files/FKODE.txt" myDSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("hardware.mdb") & ";DriverId=25;FIL=MS Access" mySQL="select tcompanyproducts.Kode, tcompanyproducts.PricePerUnit, tcompanyproducts.Fkode from tcompanyproducts where Fkode='F16041' order by kode & Fkode" showblank="" shownull="<null>" linestart=chr(34) lineend=chr(34) delimiter=chr(34) & "," & chr(34) delimitersub="" whichFN=server.mappath(whichname) Set fstemp= Server.CreateObject("Scripting.FileSystemObject") Set filetemp = fstemp.CreateTextFile(whichFN, true) set conntemp=server.createobject("adodb.connection") conntemp.open myDSN set rstemp=conntemp.execute(mySQL) If rstemp.eof then response.write "Der er ingen data at konvertere<br>" response.write mySQL & "<br>" connection.close set connection=nothing response.end end if DO UNTIL rstemp.eof thisline=linestart for each whatever in rstemp.fields thisfield=whatever.value if isnull(thisfield) then thisfield=shownull end if if trim(thisfield)="" then thisfield=showblank end if thisfield=replace(thisfield,delimiter,delimitersub) thisline=thisline & thisfield & delimiter next tempLen=len(thisline) tempLenDelim=len(delimiter) thisline=mid(thisline,1,tempLEN-tempLenDelim) & lineend filetemp.WriteLine(thisline) ' response.write thisline & "<br>" rstemp.movenext LOOP filetemp.Close set filetemp=nothing set fstemp=nothing rstemp.close set rstemp=nothing conntemp.close set conntemp=nothing
If err.number=0 then response.write "Filen blev konverteret 100%<br>" response.write "Klik Hér for at se filens indhold. <a href='" response.write whichname & "'> <br><br><strong><b>! HENT TEXTFIL !</b></strong> </a>" else response.write "VBScript Errors Occured!<br>" response.write "Fejl Nummer=#<b>" & err.number & "</b><br>" response.write "Fejl Beskrivelse. =<b>" & err.description & "</b><br>" response.write "Hjælp sti =<b>" & err.helppath & "</b><br>" response.write "Grund fejl=<b>" & err.nativeerror & "</b><br>" response.write "fejl i Source =<b>" & err.source & "</b><br>" response.write "fejl i SQL State=#<b>" & err.sqlstate & "</b><br>" end if %> </div> </body> </html>
___________________________________ Hvis du kan lidt ASP kan du sikkert se hvor du ænder informationer om dine tabeller, osv.
Åhh i seeeee. Den er jeg blank på. At indsætte en tabel i en database, jo fanme jo. 30 minutter, så har jeg rodet mine tykke bøger igennem, og så kommer jeg tilbage. Dog er jeg ret sikker på at det kun kan lade sig gøre ved en MS SQL, eller en SYBASE SQL..........`|´
Problemet er (roder med det samme som dig) at jeg har en indkøbskurv - kunden retter sine priser til de aktuelle i sit regnskabsprog - skal derefter have smidt dem online hurtigst muligt!! :o)
I vil gerne have en kommasepareret txt fil ind i en DB?
Det kan man i hvertfald gøre i acceess. (Filer - Hent eksterne data - Importer). Herefter vælger man sin kommaseparede tekstfil og følger guiden "Tekstimport" eller hvad den nu hedder, og kan man vælge at importere ind i en ny tabel eller i en allerede eksisterende.
Men jeg ikke helt sikker på at det har den funktionalitet I er ude efter (ASP-understøttelse). Det ser ud til at det bare er en importwizard, men jeg ved ikke helt.
Jeg har en Comcorde C5 med samtlige moduler inkl. ODBC adgang. Kan det umildbart lade sig gøre at lave en slags FTP connection imellem min Corcorde C5 og min webshop ude på nettet. (Shoppen køre på en Access DB).
Formålet er self. med denne \"sammensmeltning\", at jeg ikke konstant skal oprette mine vare 2 stedet=>concorde lagerkartotek og i shoppen på nettet.
Kontakt mig venligst på ICQ 33868092 eller via email jens@bosscom.dk.
Har du fået problemet løst Jens ??? og er det evt. noget du vil dele ??
Synes godt om
Ny brugerNybegynder
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.