Microsoft.AspNetCore.Mvc.Localization.LocalizedHtmlStringuser upload / bulk add

user upload / bulk add

Printed from: Snitz™ Forums 2000
URL: https://forum.snitz.com/forumTopic/Posts/64768?pagenum=1
Printed on: 05 November 2025, 09:06

Topic

Author : chumbawumba
Subject : user upload / bulk add
Posted : 15 May 2007, 00:54
Message :

Hello

does anybody have code to bulk add users from a .csv file into snitz. I need the code to be able to open the text file and then insert the users into the DB

thanks

Replies ...

Reply Author: chumbawumba
Replied on: 17 May 2007, 21:46
Message:

does anyone have any similar code that I can use as a starting point? TIA<

Reply Author: HuwR
Replied on: 18 May 2007, 05:00
Message:

doesn't look like, it. in general you would copy user records from one db to another, why do you have them in a csv file ?
depending on the database you are using, there is usually functionality in the database tools to import data from a csv file<

Reply Author: chumbawumba
Replied on: 20 May 2007, 07:31
Message:

I have found some working code from wrox.com

The HR department have outputted a list of employees from one DB that need uploading into a different DB. The systems aren't linked. A convenient way to enter the users was through reading a csv file. Anyway thanks problem solved.<

Reply Author: muzishun
Replied on: 20 May 2007, 11:14
Message:

Would you mind posting the code (and possibly the format your csv file is in) for others who may need it in the future?<

Reply Author: kolucoms6
Replied on: 20 May 2007, 17:08
Message:

Right.<

Reply Author: chumbawumba
Replied on: 23 May 2007, 00:53
Message:

OK, here is the code to be used as a starting point:

Code:


<%
  'CONNECT TO THE DATABASE
  set objconn = Server.CreateObject("ADODB.Connection")
  objconn.Provider="Microsoft.Jet.OLEDB.4.0"
  objconn.Open Server.MapPath("csv.mdb")


  csv_to_read="test.csv"
  set fso = createobject("scripting.filesystemobject")
  set act = fso.opentextfile(server.mappath(csv_to_read),1,False)

  dim sline
  dim sSeg
  
  Do Until act.AtEndOfStream
  
  sline=act.readline
  sSeg=split(sline,",")

  dim strsql
  strsql="INSERT INTO CSV (Sequence, Text, Name, Grade)"
  strsql=strsql & "VALUES('"&sSeg(0)&"', '"&sSeg(1)&"',
  '"&sSeg(2)"', '"&sSeg(3)&"')"

  objconn.execute strsql
     
  loop
  act.close
  set act=nothing
   
  'CLOSE THE CONNECTION AND CLEAN UP
  objconn.close
  set objconn=nothing
%>