All pastes #40614 Raw Edit

Something

public text v1 · immutable
#40614 ·published 2006-02-07 22:17 UTC
rendered paste body
// Remove items from SQL Table
				clsTableAltering.taTableAlteringType = "DeleteRow"; // DeleteRow , UpDate, Select, Insert							  
				clsTableAltering.taTableName = "VendorAuthorization";
				clsTableAltering.taTableWhere = " ( " + " CompanyID > " + "'" + 0 + "'" + " ) ";
				clsTableAltering.clsTableUpDate();
										  				
				// open Paradox Table
				clsParadox.PaTableLocation = ParadoxFileLocation.Text;
				clsParadox.PaAlteringType = "Select"; // DeleteRow , UpDate, Select, Insert			
				clsParadox.PaName = "VendorAuth";
				clsParadox.PaWhere = "";    // "(CompanyID = " + CompNo + ")";
				clsParadox.PaOrderedBy = "vaCompanyNo";
				clsParadox.PaSelectCol = "vaCompanyNo,VendorNo,AuthorizationNo, VendorAuth.No AS NewNo,VContact ,VDescription";
				try
				{
					 clsParadox.clsPaUpDate();  	 iCount = 0;   paoRd = clsParadox.PaODcmd.ExecuteReader( CommandBehavior.CloseConnection );
					 if ( paoRd.HasRows )
					 {
						  while ( paoRd.Read() )
						  {
								iCount += 1;
								// Insert items into SQL Table
								clsTLTableLookup.TLAlteringType = "Insert"; // DeleteRow , UpDate, Select, Insert	
								clsTLTableLookup.TLName = "VendorAuthorization";
								clsTLTableLookup.TLSelectCol = "( CompanyID, VendorID, vaAuthorizationNo, vaRecNo, vaContact, vaDescription, vaCreatedDate, vaCreatedBy )";
								//CustomerStatus , BilltoSameAs, BillToContactID, BillToContactName,	 ContractPriceID,	ContractPriceExpiryDate, , StatementDelivery, CustomerGroup, LastStatementDate			
							
								clsTLTableLookup.TLSelectColValues = " ('" +
													 paoRd[ "vaCompanyNo" ].ToString() + "','" +
													 paoRd[ "VendorNo" ].ToString() + "','" +
													 paoRd[ "AuthorizationNo" ].ToString() + "','" +
													 paoRd[ "NewNo" ].ToString() + "','" +
													 paoRd[ "VContact" ].ToString() + "','" +
													 paoRd[ "VDescription" ].ToString() + "','" +
													 DT + "','" +
													 UN + "')";
								clsTLTableLookup.clsTLUpDate();
						  }
					 }
					 btnVendorAuthorizationTXT.Text = Convert.ToString( iCount );
					 paoRd.Close();
				}
				catch ( SqlException ex )
				{
					 MessageBox.Show( "Paradox Database error has occurred: " + clsTLTableLookup.TLName  + "\n" + ex.ToString() );
				}