Hi! Everyone can you help me to fix this code wherein the error comes out with this message "Object reference not set to an instance of an object."
Const CSV_CONNECTIONSTRING As String = "Data Source=192.168.0.4;Initial Catalog=CYBERYA;Persist Security Info=True;User ID=cyberya;Password=Piso4minutes;MultipleActiveResultSets=True"
Dim CSVpath As String = "C:\"
Dim AllFiles = New DirectoryInfo(CSVpath).GetFiles("*.CSV")
Dim File_Name As String = String.Empty
Dim ConStr As String = ConfigurationManager.ConnectionStrings("ConStr").ConnectionString
For i As Integer = 0 To AllFiles.Length - 1
Try
File_Name = AllFiles(i).Name
Dim dt As New DataTable()
Using con As New OleDbConnection(String.Format(CSV_CONNECTIONSTRING, CSVpath))
Using da As New OleDbDataAdapter("select * from [" & File_Name & "]", con)
da.Fill(dt)
End Using
End Using
Using bulkCopy As New SqlBulkCopy(ConStr)
bulkCopy.ColumnMappings.Add("status", "status")
bulkCopy.ColumnMappings.Add("SRN", "SRN")
bulkCopy.ColumnMappings.Add("SrCode", "SrCode")
bulkCopy.ColumnMappings.Add("CustomerName", "CustomerName")
bulkCopy.ColumnMappings.Add("HomeContact", "HomeContact")
bulkCopy.ColumnMappings.Add("BusinessContact", "BusinessContact")
bulkCopy.ColumnMappings.Add("MobileContact", "MobileContact")
bulkCopy.ColumnMappings.Add("LotHouseNo", "LotHouseNo")
bulkCopy.ColumnMappings.Add("RoomUnitStall", "RoomUnitStall")
bulkCopy.ColumnMappings.Add("BldgFloor", "BldgFloor")
bulkCopy.ColumnMappings.Add("BldgName", "BldgName")
bulkCopy.ColumnMappings.Add("Street", "Street")
bulkCopy.ColumnMappings.Add("Subdivision", "Subdivision")
bulkCopy.ColumnMappings.Add("Barangay", "Barangay")
bulkCopy.ColumnMappings.Add("CityMunicipality", "CityMunicipality")
bulkCopy.ColumnMappings.Add("Province", "Province")
bulkCopy.ColumnMappings.Add("Region", "Region")
bulkCopy.ColumnMappings.Add("Package", "Package")
bulkCopy.ColumnMappings.Add("PromoCode", "PromoCode")
bulkCopy.ColumnMappings.Add("PaymentType", "PaymentType")
bulkCopy.ColumnMappings.Add("ApplicationDate", "ApplicationDate")
bulkCopy.ColumnMappings.Add("Endorseddate", "Endorseddate")
bulkCopy.ColumnMappings.Add("loanstatus", "loanstatus")
bulkCopy.ColumnMappings.Add("PaymentDate", "PaymentDate")
bulkCopy.ColumnMappings.Add("ScheduleDate", "ScheduleDate")
bulkCopy.ColumnMappings.Add("ActivationDate", "ActivationDate")
bulkCopy.ColumnMappings.Add("PCDelivery", "PCDelivery")
bulkCopy.ColumnMappings.Add("NoPCAvailed", "NoPCAvailed")
bulkCopy.ColumnMappings.Add("DatePCPickUp", "DatePCPickUp")
bulkCopy.ColumnMappings.Add("SalesAgent", "SalesAgent")
bulkCopy.ColumnMappings.Add("Coordinator", "Coordinator")
bulkCopy.ColumnMappings.Add("SalesChannel", "SalesChannel")
bulkCopy.ColumnMappings.Add("SalesGroup", "SalesGroup")
bulkCopy.ColumnMappings.Add("Created by", "Created by")
bulkCopy.ColumnMappings.Add("TimeStamp", "TimeStamp")
bulkCopy.DestinationTableName = "tblsummaryIMPORT"
bulkCopy.BatchSize = dt.Rows.Count
bulkCopy.WriteToServer(dt)
bulkCopy.Close()
End Using
which is the source error is this:
Line 249: Dim AllFiles = New DirectoryInfo(CSVpath).GetFiles("*.CSV")
Line 250: Dim File_Name As String = String.Empty
Line 251: Dim ConStr As String = ConfigurationManager.ConnectionStrings("ConStr").ConnectionString
Line 252:
Line 253: 'ConnectionString