VB Code:
Dim InstitutionFileReader As New System.IO.StreamReader("C:\Documents and Settings\CSchexnaydre\Desktop\TEST SHEETS\Institution\HD2010.csv")
InstitutionFileReader.ReadLine() 'Reads header line
Dim i As Integer
INSERT_INST_COMMAND = WFSDSTRING.CreateCommand()
INSERT_INST_COMMAND.CommandText = "SET QUOTED_IDENTIFIER OFF"
INSERT_INST_COMMAND.ExecuteNonQuery()
InstitutionFileReader.ReadLine() 'reads first line of data
While Not InstitutionFileReader.EndOfStream
INSERT_INST_COMMAND.CommandText = "INSERT INTO Institution_UPLOAD (Institution_ID, Institution_Name, Address_1, City, State_Code, Zip, FIPS, OBE_Region_ID, Chief_Admin_Name_ID, Chief_Admin_Title_ID, Institution_Phone, ENI, OPE_Number, OPEFLAG_ID, Institution_Web, Admission_Web, Financial_Web, Application_Web, SECTOR, Type_Of_Institution_ID, Level_Of_Institution_ID, HLOFFER_ID, UGOFFER_ID, GROFFER_ID, HDEGOFR1_ID, DEGGRANT_ID, Historic_Black_College_ID, Hospital_Available_ID, Medical_Degree_ID, Tribal_College_ID, Location_ID, Open_To_Public, ACT_ID, New_ID, Deleted_Year, Closed_Date, CYACTIVE_ID, POSTEC_ID, PSEFLAG_ID, PSET4FLG_ID, RPTMTH_ID, ALIAS, INSTCAT_ID, CCBASIC_ID, CCIPUG_ID, CCIPGRAD_ID, CCUGPROF_ID, CCENPRF_ID, CCSIZSET_ID, CARNEGIE_ID, TENURSYS_ID, Land_Grant_Institution_ID, Size_Of_Institution_ID, CBSA_ID, CBSATYPE_ID, CSA_ID, NECTA_ID, F1SYSTYP_ID, F1SYSNAM, Institution_Fax) " & _
"VALUES (" & InstitutionFileReader.ReadLine() & ")" 'reads 2nd & subsequent lines of data
i = INSERT_INST_COMMAND.ExecuteNonQuery()
End While
InstitutionFileReader.Close()
InstitutionFileReader = Nothing
End If