Problem with populating datagrid
-
i dont know why tis application wont works... it keep giving me the first records in the database and populate it twice, when i wanted both 2 different records to appear... if possible help me debug this or give me some comments... thanks in advance... Dim aryTest(2) as integer arytest(0) = 1 arytest(1) = 2 Dim objAdapter As New SqlDataAdapter Dim objDs As New DataSet Dim ojDataRow As DataRow Dim objArrayList As New ArrayList objCMDB = New cCMDB Dim i As Integer For i = 0 To 1 mobjcmd.CommandText = "SELECT Contract_Ref,Equipment_Status, " & _ "Technology_Refresh_Eligibility, Configuration_Item_Description, " & _ "Configuration_Type, Maintenance_Contract, Procurement_Vendor, " & _ "Warrenty_Ends, Warrenty_Period FROM tblCMDB WHERE" & _ "Configuration_Item_ID = "& aryTest(i) & "" mobjcmd.SelectCommand = mobjcmd objAdaptor.Fill(objDs, "tblcCMDBRecords") objDataRow = objDs.Tables("tblcCMDBRecords").Rows(0) objcCMDB.ContractReference = objDataRow.Item("Contract_Ref") objcCMDB.EquipmentStatus = objDataRow.Item("Equipment_Status") objcCMDB.TechnologyRefreshEligibility = objDataRow.Item ("Technology_Refresh_Eligibility") objcCMDB.ConfigurationItemDescription = objDataRow.Item ("Configuration_Item_Description") objcCMDB.ConfigurationType = objDataRow.Item("Configuration_Type") objcCMDB.MaintenanceContract = objDataRow.Item("Maintenance_Contract") objcCMDB.ProcurementVendor = objDataRow.Item("Procurement_Vendor") objcCMDB.WarrentyEnds = objDataRow.Item("Warrenty_Ends") objcCMDB.WarrentyPeriod = objDataRow.Item("Warrenty_Period") objArrayList.Add(objcCMDB) Next MobjCn.Close() Return objArrayList i@@
-
i dont know why tis application wont works... it keep giving me the first records in the database and populate it twice, when i wanted both 2 different records to appear... if possible help me debug this or give me some comments... thanks in advance... Dim aryTest(2) as integer arytest(0) = 1 arytest(1) = 2 Dim objAdapter As New SqlDataAdapter Dim objDs As New DataSet Dim ojDataRow As DataRow Dim objArrayList As New ArrayList objCMDB = New cCMDB Dim i As Integer For i = 0 To 1 mobjcmd.CommandText = "SELECT Contract_Ref,Equipment_Status, " & _ "Technology_Refresh_Eligibility, Configuration_Item_Description, " & _ "Configuration_Type, Maintenance_Contract, Procurement_Vendor, " & _ "Warrenty_Ends, Warrenty_Period FROM tblCMDB WHERE" & _ "Configuration_Item_ID = "& aryTest(i) & "" mobjcmd.SelectCommand = mobjcmd objAdaptor.Fill(objDs, "tblcCMDBRecords") objDataRow = objDs.Tables("tblcCMDBRecords").Rows(0) objcCMDB.ContractReference = objDataRow.Item("Contract_Ref") objcCMDB.EquipmentStatus = objDataRow.Item("Equipment_Status") objcCMDB.TechnologyRefreshEligibility = objDataRow.Item ("Technology_Refresh_Eligibility") objcCMDB.ConfigurationItemDescription = objDataRow.Item ("Configuration_Item_Description") objcCMDB.ConfigurationType = objDataRow.Item("Configuration_Type") objcCMDB.MaintenanceContract = objDataRow.Item("Maintenance_Contract") objcCMDB.ProcurementVendor = objDataRow.Item("Procurement_Vendor") objcCMDB.WarrentyEnds = objDataRow.Item("Warrenty_Ends") objcCMDB.WarrentyPeriod = objDataRow.Item("Warrenty_Period") objArrayList.Add(objcCMDB) Next MobjCn.Close() Return objArrayList i@@
-
You need to recreate the new objcCMDB object in the for loop statement, otherwise it will overrite the current object.