Final version. I think I have it.
Code:'------------------------------------ 'NEXT, ADD RECORDS TO PAYROLLMASTER '------------------------------------ ' Dim filetoparse As String Dim strreader As StreamReader strreader = New StreamReader("z:\PR\PAYROLLMASTER.csv") filetoparse = strreader.ReadLine Dim cnxn2 As SqlClient.SqlConnection cnxn2 = New SqlClient.SqlConnection(cnxnstring) cnxn2.Open() Dim sqlInsert As New SqlClient.SqlCommand While strreader.Peek <> -1 Dim fieldarray() As String = filetoparse.Split(",") ' sqlInsert.CommandText = "INSERT INTO PAYROLLMASTER ([EMPLOYEEID],[LASTNAME],[FIRSTNAME],[MIDDLENAME],[SSN]) " sqlInsert.CommandText += "VALUES(@employeeid,@lastname,@firstname,@middlename,@ssn)" sqlInsert.Parameters.AddWithValue("@employeeid", fieldarray(0)) sqlInsert.Parameters.AddWithValue("@lastname", fieldarray(1)) sqlInsert.Parameters.AddWithValue("@firstname", fieldarray(2)) sqlInsert.Parameters.AddWithValue("@middlename", fieldarray(3)) sqlInsert.Parameters.AddWithValue("@ssn", fieldarray(4)) sqlInsert.ExecuteNonQuery() End While sqlInsert.Dispose() cnxn2.Close() cnxn2.Dispose() strreader.Close() '=============




Reply With Quote