Doesn't ADO provide a driver for CSV files like it does for Access? I thought ADO could access CSV, TAB, txt, and Excel files, as well as Access files, and even run queries against a CSV file just like it can against an Access table. I've never needed to do this, but I always thought that I would try it if I ever needed to access CSV/TAB files from within my ASP code. Anybody know if this can be done?
- Vieth > -----Original Message----- > From: Mark E [mailto:[EMAIL PROTECTED] > Sent: Tuesday, June 22, 2004 10:16 AM > To: [EMAIL PROTECTED] > Subject: Re: [ASP] import a csv file into ms access using asp. > > Hi, > > Below is some code that I use to open a csv file, parse out > the values I need and send them to a function that inserts > them into a SQL database. > > I removed some things in an attempt to keep it short and > simple, like error checking, the actual insert code, etc. > > Mark > > <% > > > '************************************************************* > *************************************' > '** This page is used to load records from an Excel > spreadsheet into the SQL database. **' > > '************************************************************* > *************************************' > > Const ForReading = 1 > Const strConnectionString = "Driver={SQL > Server};Server=TestServer;Database=DBName;User > Id=Your_ID;Password=Your_Password;" > > Dim myFile, objTextFile, strText > Dim objFSO, strPath > Dim strErrorLogString, strFailedCount, strFileNameToOpen > Dim myOutputFile > > 'Global vars for holding new item values. > Dim strValue1, strValue2 > > 'Reset our variables. > strValue1 = ("") > strValue2 = ("") > > 'Create our FSO. > set objFSO = Server.CreateObject("scripting.FileSystemObject") > > 'Set our source file name to open. > strFileNameToOpen = ("\PaymentList.csv") > > 'Set our path & file name. > strPath = server.MapPath("PaymentList") & strFileNameToOpen > > 'Check to make sure the file exists before we process. > if objFSO.FileExists(strPath) then > > 'Get the file that we will be reading. > set myFile = objFSO.GetFile (strPath) > > 'Open the text file. > set objTextFile = myFile.OpenAsTextStream(ForReading, -2) > > 'Loop thru the text file and get all the text, assign to variable. > Do While not objTextFile.AtEndOfStream > > 'Grab each line in the file, store in variable. > strText = objTextFile.ReadLine > > 'Evalute the line to see if data exists. > if len(trim(strText)) > 0 then > 'The line is not blank, process. > > 'Get the line into an array. > strMyArray = split(strString, ",") > > 'Get our values from the array. > strValue1 = (strMyArray(0)) > strValue2 = (strMyArray(1)) > > 'Now pass the values to a function that inserts the record. > InsertNewPaymentRecord(strValue1, strValue2) > > end if > Loop > > 'Close & destroy the file. > objTextFile.close > set objTextFile = nothing > > end if > > %> > > aliadon <[EMAIL PROTECTED]> wrote: > hi all, > > would like to seek a solution on how to import a csv file to > a database using asp. > > rgds > a l i > > > > > > > [Non-text portions of this message have been removed] > > > > > -------------------------------------------------------------- > ------- > Home : http://groups.yahoo.com/group/active-server-pages > --------------------------------------------------------------------- > Post : [EMAIL PROTECTED] > Subscribe : [EMAIL PROTECTED] > Unsubscribe: [EMAIL PROTECTED] > --------------------------------------------------------------------- > > > Yahoo! Groups SponsorADVERTISEMENT > > > --------------------------------- > Yahoo! Groups Links > > To visit your group on the web, go to: > http://groups.yahoo.com/group/active-server-pages/ > > To unsubscribe from this group, send an email to: > [EMAIL PROTECTED] > > Your use of Yahoo! Groups is subject to the Yahoo! Terms > of Service. > > > > [Non-text portions of this message have been removed] > > > > ------------------------ Yahoo! Groups Sponsor > --------------------~--> Yahoo! Domains - Claim yours for > only $14.70 http://us.click.yahoo.com/Z1wmxD/DREIAA/yQLSAA/17folB/TM > -------------------------------------------------------------- > ------~-> > > -------------------------------------------------------------- > ------- > Home : http://groups.yahoo.com/group/active-server-pages > --------------------------------------------------------------------- > Post : [EMAIL PROTECTED] > Subscribe : [EMAIL PROTECTED] > Unsubscribe: [EMAIL PROTECTED] > --------------------------------------------------------------------- > Yahoo! Groups Links > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar. Now with Pop-Up Blocker. Get it for free! http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/17folB/TM --------------------------------------------------------------------~-> --------------------------------------------------------------------- Home : http://groups.yahoo.com/group/active-server-pages --------------------------------------------------------------------- Post : [EMAIL PROTECTED] Subscribe : [EMAIL PROTECTED] Unsubscribe: [EMAIL PROTECTED] --------------------------------------------------------------------- Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/active-server-pages/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
